通信人家园

标题: 画公路  [查看完整版帖子] [打印本页]

---

时间:  2017-7-30 09:20

作者: 水吉空     标题: 画公路

• ;;;--------画公路----------
• (defun C:df (/ L1 L2 PT1 PT2 PT3 PT4 KU pa1 pa2 dist ENT13 S1 ENT24 S2 S3 S4 ss)
•   (setq OLD_CMDECHO (getvar "CMDECHO"))
•   (setvar "CMDECHO" 0)
•   (setq pa1 (getpoint "\n选择道路一端的点："))
•   (setq pa2 (getpoint  pa1 "\n选择道路另一端的点："))
•   (setq dist (distance pa1 pa2))
•   (setq ss (ssadd))
•   ;(setq ss1 (ssadd))
•   (if (setq L1 (getpoint "\n选择第一个点:"))
• (progn
•      (setvar "EDGEMODE" 1)
•      ;LINEWID 存储多段线的缺省宽度
•      (setvar "LINEWID" 0)
  

.......
欢迎加入通信管线设计技术交流群655280537，通信管线规划设计技术、资源交流群，旨在交流经验，分享资源，互相学习，共同进步！




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

附件: 画公路.gif (2017-7-30 15:07, 315.21 KB) / 下载次数 0
https://www.txrjy.com/forum.php?mod=attachment&aid=MzI3ODA5fDI1NTRiNjE4fDE3MTc4MzQ0NzJ8MHww

---

时间:  2021-12-1 23:45

作者: jhzxj

能否分享下这插件，谢谢！

---

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

Powered by C114