Mechanical Link

(defun c:DRAW_LINK () ;; Set units and precision (setvar "LUNITS" 2) (setvar "LUPREC" 2) ;; Drawing Parameters (setq C 200.0) ; Center-to-center distance (setq b 30.0) ; Link width (setq t_th 12.0) ; Link thickness (setq dh 12.5) ; Hole diameter (setq R 15.0) ; End radius (b / 2) (setq e 20.0) ; End distance ;; Base Insertion Point (Center of left hole for Front View) (setq pt1 '(100.0 100.0 0.0)) (setq pt2 (list (+ (car pt1) C) (cadr pt1) 0.0)) ;; --- FRONT VIEW --- ;; Draw Holes (command "_CIRCLE" pt1 "D" dh) (command "_CIRCLE" pt2 "D" dh) ;; Draw Outer Boundary (Rounded Link) (setq top_left (list (car pt1) (+ (cadr pt1) R) 0.0)) (setq top_right (list (car pt2) (+ (cadr pt2) R) 0.0)) (setq bot_left (list (car pt1) (- (cadr pt1) R) 0.0)) (setq bot_right (list (car pt2) (- (cadr pt2) R) 0.0)) (command "_LINE" top_left top_right "") (command "_LINE" bot_left bot_right "") (command "_ARC" top_left "_E" bot_left "_R" R) (command "_ARC" bot_right "_E" top_right "_R" R) ;; --- TOP VIEW --- (setq gap 60.0) ; Distance between views (setq top_y (- (cadr pt1) gap)) (setq bot_y (- top_y t_th)) (setq tv_x1 (- (car pt1) R)) (setq tv_x2 (+ (car pt2) R)) ;; Top View Outer Rectangle (command "_RECTANGLE" (list tv_x1 top_y 0.0) (list tv_x2 bot_y 0.0)) (princ "\nMechanical Link drawn successfully!") (princ) )

Parameters

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.