用Autolisp或者用VBA用程式来画。。可以上网搜一下程式。。
我还没用过,不知道你们说的是不时能行。有时间我一定要试试。
(defun C:jkx ()
(setq pi1 (/ pi 180))
(setq po0 (getpoint "
请输入中心点:"))
(if (= po0 nil)
(setq po0 (list 0 0 0))
)
(SETQ d (GETREAL "
请输入分度圆直径:"))
(if (= d nil)
(setq d 100)
)
(setq step (getreal "
渐开线精细度(0
三楼的程式有点小问题,应是这样的
(defun C:jkx ()
(setq pi1 (/ pi 180))
(setq po0 (getpoint "
请输入中心点:"))
(if (= po0 nil)
(setq po0 (list 0 0 0))
)
(SETQ d (GETREAL "
请输入分度圆直径:"))
(if (= d nil)
(setq d 100)
)
(setq step (getreal "
渐开线精细度(0
擦,只是点了一下~~就扣了我10点威望,总的扣了我20威望~~~心疼~~
楼上的程序也不对,运行后
命令: jkx
请输入中心点:
请输入分度圆直径:100
渐开线精细度(0
我已经将使用方法做成录象,你下载后即可观看。
不过该程序好象有问题,最后提示“; 错误: no function definition: GETVER”,我不会修改,你再找找还有没别的了。