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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值