Lobe Pump

(defun c:PUMP1 () (setq osm (getvar "osmode")) (setvar "osmode" 0) ;; Body 190 x 135 (command "_.RECTANG" "0,0" "190,135") ;; Flange holes 4x d9 (command "_.CIRCLE" "10,10" "4.5") (command "_.CIRCLE" "180,10" "4.5") (command "_.CIRCLE" "10,125" "4.5") (command "_.CIRCLE" "180,125" "4.5") ;; Inlet Outlet 1 inch = 25.4mm (command "_.CIRCLE" "0,67.5" "12.7") (command "_.CIRCLE" "190,67.5" "12.7") ;; Center distance 45mm (setq c1x 72.5 c1y 67.5) (setq c2x 117.5 c2y 67.5) ;; Lobe OD 64mm (command "_.CIRCLE" (strcat (rtos c1x) "," (rtos c1y)) "32") (command "_.CIRCLE" (strcat (rtos c2x) "," (rtos c2y)) "32") ;; Shaft 16mm (command "_.CIRCLE" (strcat (rtos c1x) "," (rtos c1y)) "8") (command "_.CIRCLE" (strcat (rtos c2x) "," (rtos c2y)) "8") ;; Keyway 5mm (command "_.RECTANG" (strcat (rtos (- c1x 2.5)) ",75") (strcat (rtos (+ c1x 2.5)) ",78")) (command "_.RECTANG" (strcat (rtos (- c2x 2.5)) ",75") (strcat (rtos (+ c2x 2.5)) ",78")) ;; Dimensions (command "_.DIMLINEAR" "0,0" "190,0" "190,-10") (command "_.DIMLINEAR" "0,0" "0,135" "-10,67.5") (command "_.DIMLINEAR" (strcat (rtos c1x) "," (rtos c1y)) (strcat (rtos c2x) "," (rtos c2y)) "95,145") (command "_.DIMDIAMETER" (strcat (rtos c1x) "," (rtos c1y)) "72.5,105") ;; Text Notes (command "_.MTEXT" "95,160" "95,170" "Lobe Pump 1 inch - 2 Lobe - Face Width 28mm - Clearance 0.25mm") (setvar "osmode" osm) (princ "\nDrawing Complete. Type PUMP1 to run again") ) (princ "\nType PUMP1 to draw pump")

Parameters

This model was generated without adjustable parameters. Open it in the editor to add your own dimensions.

Every value above is a live dimension. Open a model like this in the editor and each one becomes a slider you can drag before exporting.