cad阀门插件lisp_cad lisp程序中看不出怎么输入命令

加入化海川流化工人平台，对接专业人技术圈

您需要 登录 才可以下载或查看，没有帐号？注册

x

小弟最近下载了一个阀门的绘制程序，但加载之后不知道怎么使用，程序如下，请前辈指教！

(defun *ERROR* (st)

(menucmd "s=s")

(command "osnap" "none")

(command "layer" "s" cl "")

(setvar "regenmode" 1)

(princ st)

(terpri)

)

(defun qs ()

(setq fc (* 5.0 *bl))

(menucmd "s=s")

(initget "Y N")

(if (not *yffl) (setq *yffl "N"))

(princ "/n有否法兰: [ Y/N ]< ")

(princ *yffl)

(setq fl (getkword " >"))

(if (not fl) (setq fl *yffl) (setq *yffl fl))

) (defun dfw ( )

(command "OSNAP" "NEAR")

(setq e1 (entsel "/n阀心位置:"))

(command "osnap" "none")

(defun gy()

(setq zx (cadr e1)

e2 (entget (car e1))

p01 (cdr (assoc 10 e2))

p02 (cdr (assoc 11 e2))

zj (+ (* (/ 1.0 2.0) pi) (angle p01 p02))

l1 (/ fc 1.732)

l2 (/ l1 1.0)

p1 (polar zx (+ zj (* (/ 2.0 3.0) pi)) l2)

p2 (polar zx (+ zj (* (/ 1.0 3.0) pi)) l2)

p3 (polar zx (+ zj (* (/ 4.0 3.0) pi)) l2)

p4 (polar zx (+ zj (* (/ 5.0 3.0) pi)) l2)

p11 (polar zx (+ zj (* (/ 1.0 2.0) pi)) (* 0.867 l2))

p21 (polar zx (+ zj (* (/ 2.0 3.0) pi)) (* 0.48 l1))

p22 (polar zx (+ zj (* (/ 1.0 3.0) pi)) (* 0.48 l1))

p23 (polar zx (+ zj (* (/ 4.0 3.0) pi)) (* 0.48 l1))

p24 (polar zx (&#