三点画房

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

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

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

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

这个还是不错的。

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

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

程序没有一个完整的。

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

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

群里有完整程序。

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

收藏了

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

具体是什么作用呢？

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

谢谢

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

谢谢楼主了啊

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

我没有看懂是做什么用的。

账号		自动登录	找回密码
密码			注册

[基础] 三点画房

本帖子中包含更多资源

评分