通信人家园

标题: 三点画房 [查看完整版帖子] [打印本页]

时间: 2017-7-30 14:43

作者: 水吉空 标题: 三点画房

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

附件: 三点画房.gif (2017-7-30 14:38, 92.96 KB) / 下载次数 0
https://www.txrjy.com/forum.php?mod=attachment&aid=MzI3ODAxfDYwYTZmMmVjfDE3NTQxNDMyOTh8MHww

附件: 注释版.png (2017-7-30 14:38, 62.68 KB) / 下载次数 0
https://www.txrjy.com/forum.php?mod=attachment&aid=MzI3ODAyfGQxNDk0YWRmfDE3NTQxNDMyOTh8MHww

附件: 151751co33jhsg13czmge1.png (2017-7-30 14:42, 13.9 KB) / 下载次数 0
https://www.txrjy.com/forum.php?mod=attachment&aid=MzI3ODAzfDFkNzZlMWY1fDE3NTQxNDMyOTh8MHww

时间: 2017-7-31 13:16

作者: S澍

厉害，谢谢分享。

时间: 2017-8-17 12:41

作者: 水吉空

顶一下

时间: 2017-8-17 15:14

作者: ql831206

谢谢分享

时间: 2017-8-19 12:16

作者: 水吉空

顶一下

时间: 2017-8-20 17:08

作者: 水吉空

顶一下

时间: 2017-8-22 09:44

作者: 水吉空

顶一下

通信人家园 (https://www.txrjy.com/)