1255| 13
|
[提问] 关于标注的求助 |
10明经币
最佳答案(defun c:NM(/ oldlay p1 p2 p3 p33 p3a ss1 try-pt-toline)
(defun try-Pt-ToLine(pt p1 p2 ) (inters p1 p2 pt (polar pt(+ (* 0.5 pi) (angle p1 p2) )10) nil))
(setq p1 (getpoint "\n请选择标注第一点:")
p2 (getpoint "\n请选择标注第二点:" p1)
p3 (getpoint "\n请指定方向:" P2)
P33(try-Pt-ToLine P3 P1 P2)
P3A(polar p2(angl ...
| ||
发表于 2022-11-11 13:52:09
|
显示全部楼层
评分 | ||
| ||
发表于 2022-11-11 16:11:49
|
显示全部楼层
| ||
| ||
发表于 2022-11-11 16:52:24
|
显示全部楼层
| ||
| ||
发表于 2022-11-11 17:13:20
|
显示全部楼层
| ||
| ||
| ||