画公路

水吉空

• ;;;--------画公路----------
• (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，威尼斯人官方网站管线规划设计技术、资源交流群，旨在交流经验，分享资源，互相学习，共同进步！