AUTO CAD 中如何画螺旋线?(请教思路)

如题所述

1、打开CAD后,找工具/AUTOLISP/VISUALLISP编辑器,打开.点新建文件2、然后输入(defun c:luoxuan(/)(setq b1 (getpoint "请指定螺旋线基点: "))(setq r (getreal "请输入螺纹平均半径: "))(setq disp (getreal "请输入螺纹节距: "))(setq n (getint "请输入每圈细化段数: "))(setq delta (/ (* 2.0 pi) n))(setq j (/ disp n))(setq bb (caddr b1))(setq ang 0)(setq jj 0)(Command "UCS" "o" b1)(Command "3dpoly" (list r 0 0))(repeat n(setq jj(+ jj 1)(setq ang(+ delta ang))
温馨提示:答案为网友推荐,仅供参考
相似回答