画公路
(defun c:fz();c后为函数名，可自定义。
(setvar "CMDECHO" 0);取消回选
(if (and
(setq p1 (getpoint "\n第一点 :"))
(setq p2 (getpoint p1 "\n第二点(基准边) :"))
(setq p3 (getpoint p2 "\n第三点 :"))
) (progn
(setq p4 (inters p1 p2 (polar p3 (+ (/ pi 2) (angle p1 p2)) 10) p3 nil))
(setq ang (angle p4 p3)
w (distance p4 p3)
p3 (polar p1 ang w)
p4 (polar p2 ang w))
(command ".pline" p2 p1 p3 p4 "c")
));三点画房
(command ".line" p1 p4 "")
(setq ent1 (entlast))
。。。。。。
欢迎加入通信管线设计技术交流群655280537，通信管线规划设计技术、资源交流群，旨在交流经验，分享资源，互相学习，共同进步！
http://bbs.mjtd.com/data/attachment/forum/201707/30/145107qeekxbee5zhxkbcy.pnghttp://bbs.mjtd.com/data/attachment/forum/201707/30/131638bg07galqkz0muapr.pnghttp://bbs.mjtd.com/data/attachment/forum/201707/30/131637a7lkqllz387s6e3l.pnghttp://bbs.mjtd.com/data/attachment/forum/201707/30/131637qnk1zbgzgqa1n0wu.png
绘制出来是直线，可否改为多段线吗？
页:
[1]