cad的lisp画线_Lisp CAD 求助高手!怎么通过代码实现连续画直线?

共回答了17个问题采纳率：94.1%

(defun c:ww (/ group)

;循环读入数据 2可调为你想要的数据个数

(setq group '())

(repeat 2

(setq group (cons (getreal) group))

)

(setq group (reverse group))

x05x05

;根据数的个数循环处理每一个长度

(setq number (length group))

(repeat number

(setq item (car group))

(setq p1 (getpoint "选择起点"))

(setq ang 0)

(if (setq ang_test (getangle "选择角度"));默认ang为0 若有输入ang 则为ang值

(setq ang ang_test) x05x05x05x05x05

)

(setq p2 (polar p1 ang item) );使用极坐标通过起点以及角度长度获取终点坐标

(command "line" p1 p2 "")

(command "circle" p2 4)

(setq group (cdr group))

)

)

不知道是不是你想要的

1年前

3