cad lisp 螺栓_ATUOCAD螺纹lisp程序

ATUOCAD

螺纹

lisp

程序

(defun shuru ()       ;

输入参数

(setq zhijing (getREAL "

公称直径

:"))

(setq luoju (getreal "

螺距

:"))

(SETQ QUANSHU (GETREAL "

螺纹有效圈数

:"))

(SETQ JINGDU (GETint "

每转切割次数

:"))

(setq QIDIAN (getpoint "

输入起始点

:"))

)

(defun JISUAN ()      ;

计算螺纹参数

(setq H (* 0.8660254 luoju))

(setq D2 (- zhijing (* 2 0.375 H)))

(SETQ LD2 (* D2 PI))

(SETQ LUOXUANJIAO (ATAN (/ LUOJU LD2)))

(SETQ LXJ (* 180 (/ LUOXUANJIAO pi)))

(setq banjiao(atan(/ luoju zhijing)))

(setq djxc (sqrt(+ (expt luoju 2) (expt zhijing 2))))

(setq pyj (+ banjiao luoxuanjiao))

(setq pianyi (* (sin pyj) djxc))

(setq pianyi (/ pianyi 2.0000))