水吉空 发表于 2017-7-30 14:52:16

三点画房

本帖最后由 水吉空 于 2017-7-30 14:53 编辑


http://bbs.c114.net/data/attachment/forum/201707/30/1438068pww18b5j17kylbw.gifhttp://bbs.c114.net/data/attachment/forum/201707/30/143806mriy1h9dzg8w3awr.png
(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/131637qnk1zbgzgqa1n0wu.pnghttp://bbs.mjtd.com/data/attachment/forum/201707/30/131637a7lkqllz387s6e3l.pnghttp://bbs.mjtd.com/data/attachment/forum/201707/30/131638bg07galqkz0muapr.png

508000096 发表于 2017-7-30 16:25:41

这个还是不错的。

lxdz443 发表于 2017-7-31 08:08:04

本帖最后由 lxdz443 于 2017-7-31 08:10 编辑

程序没有一个完整的。

水吉空 发表于 2017-7-31 10:58:57

lxdz443 发表于 2017-7-31 08:08
程序没有一个完整的。

群里有完整程序。

小明同学 发表于 2017-7-31 18:55:54

:lol收藏了

qq1254582201 发表于 2017-8-1 15:44:01

具体是什么作用呢？

13820172395 发表于 2017-8-1 17:09:43

{:1_1:}{:1_1:}谢谢

zhangshuji1980 发表于 2017-8-4 16:12:13

谢谢楼主了啊

maxli 发表于 2017-8-8 15:08:58

我没有看懂是做什么用的。
页: [1]
查看完整版本: 三点画房