三点画房

水吉空

(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，通信管线规划设计技术、资源交流群，旨在交流经验，分享资源，互相学习，共同进步！