hob.lsp

[Anonymous]

I'm looking for the old hob.lsp file. Is it still available? My email address is jamessean517@gmail.com

[Kent1Cooper]

Have you Searched, on the internet generally as well as on these Forums?  What does it do?  Someone may have something else that does the same thing, if you can't find it.

[john.uhden]

Might this help?

http://www.homemodelenginemachinist.com/showthread.php?t=23640

[Kent1Cooper]

If gear teeth are what it's about, >>here<< is a thread with some related routines, as well as some links to other possibilities.

[lando7189]

Is it this?

(defun c:HOB ()
   (command "SNAP" "OFF")
   (setq cpg (list 0 0))
   (setq ntg (getreal "\nEnter number of teeth on gear: "))
   (setq ngh 18)
   (setq odg (+ 2 ngh))
   (setq pdg (getreal "\nEnter generating pitch dia of gear: "))
   (setq dpg 1.000)

   (setq xi (/ (* -0.25 pi pdg) ntg))
   (setq mx (/ pi ngh 2))
   (setq sph (list (* -48.0 mx) (* 0.5 pdg)))
   (setq rot (/ -180.0 (* ntg ngh)))
   (setq cnt -51)
   (setq pt1 (list (* -2.2 odg) (* -1.85 odg)))
   (setq pt2 (list (* 2.2 odg) (* 1.85 odg)))

  (command "OSNAP" "OFF")
  (command "SNAP" "OFF")
   (command "zoom" "w" pt1 pt2)

  (while (< cnt 51)
  (progn
     (command "INSERT" "HOB" sph 1 1 0 )
     (command "rotate" "W" pt1 pt2 "" cpg rot)
     (setq sph (list (+ (car sph) mx) (cadr sph)))
     (setq cnt (+ cnt 1))
  ))
)

Source:

http://www.eng-tips.com/viewthread.cfm?qid=67055

[Anonymous]

No, it isn't. The lisp file I'm talking about draws the gear and generates
the gear data as text in the drawing/

[lando7189]

How about this?  It says it was HobMaster back in 1994 but became MyGEARilla over the years.  It appears the Author retired in 2009... but searching for it appears difficult.

https://www.scribd.com/document/26586523/My-Gear-Ill-a-Help-and-Legal