cad lisp 螺栓_用autolisp编程圆柱头螺钉

用

autolisp

编程圆柱头螺钉

1.

数据程序

程序如下

:

(defun dbolt1( )



(setq dblt1

′

((M4 38 7 2.6 1.2 1.1)



(M5 38 8.5 3.3 1.2 1.3)



(M6 38 10 3.9 1.6 1.6)



(M8 38 13 5 2 2)



(M10 38 16 6 2.5 2.4)



)



)

)

2.

参数化绘图程序

程序如下

:

(defun blt1 (x0 y0 d b dk k n t1 L a /  x1 x2 x3 x4 x5 x6 y1 y2 y3 y4)

(setq x1 (- x0 (/ dk 2.0)) x2 (- x0 (/ d 2.0)) x3 (- x0 (/ n 2.0))

x4 (+ x3 n) x5 (+ x2 d) x6 (+ x1 dk) y1 (- y0 L) y2 (+ y1 b)

y4 (+ y0 k) y3 (- y4 t1)

)

)

(command

″

pline

″

(list x2 y0) (list x2 y1) (list x5 y1) (list x5 y0)

″″

)

(command

″

pline

″