CAD高手进,我看过有人用CAD自己编命令,怎么弄啊?

呵呵,这个就是lisp吗
给你个画弹簧的lisp
把下面的命令全部复制到CAD命令行里,然后输入tanhuang 再回车试试看,三维立体的哦
(defun c:tanhuang(/)
(setq p1 (getpoint "请指定螺旋线基点："))
(setq r (getreal "请输入弹簧平均半径："))
(setq d0 (getreal "请输入弹簧丝直径："))
(setq disp (getreal "请输入弹簧节距："))
(setq n0 (getint "请输入弹簧工作圈数："))
(setq n (getint "请输入每圈细化段数 （32/36/40/44/48/52/56/60） ："))
(setq n1 (* 1.25 n)) ;支撑圈细化段数
(setq n1 (fix n1))
(setq n2 (* n0 n)) ;工作圈细化段数
(setq delta (/ (* 2.0 pi) n)) ;单位转角
(setq j (/ disp n)) ;工作圈轴向位移量
(setq j0 (/ d0 n)) ;支撑圈轴向位移量
(setq bb (caddr p1))
(setq ang 0)
(setq jj 0)
(command "ucs" "n" p1)
(setq pt1 (list r 0 0))
(command "3dpoly" pt1)
(repeat n1 ;绘制下支撑圈
(setq jj (+ jj 1))
(setq ang (+ delta ang))