用autolisp编写绘制的命令
答案:1 悬赏:50 手机版
解决时间 2021-11-15 09:24
- 提问者网友：记得曾经
- 2021-11-14 12:56
用autolisp编写绘制的命令
最佳答案
- 五星知识达人网友：痴妹与他
- 2021-11-14 13:46
源程序如下：
(defun c:box (/ p p1 p2 a)
(setq p (getpoint "Left & Bottom point: ")
a (getdist p "A=")
)
(command "PLINE" p (setq p1 (polar p 0 a)) (setq p2 (polar p1 (/ pi 2) a)) (polar p2 (- pi) a) "C")
)
(defun c:box (/ p p1 p2 a)
(setq p (getpoint "Left & Bottom point: ")
a (getdist p "A=")
)
(command "PLINE" p (setq p1 (polar p 0 a)) (setq p2 (polar p1 (/ pi 2) a)) (polar p2 (- pi) a) "C")
)
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯