通信人家园
标题:
画公路
[查看完整版帖子]
[打印本页]
时间:
2017-7-30 15:18
作者:
水吉空
标题:
画公路
;;;--------画公路----------
(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，
通信管线规划设计技术、资源交流群，旨在交流经验，分享资源，互相学习，共同进步！
2017-7-30 15:17 上传
下载附件
(18.58 KB)
附件:
222222.png
(2017-7-30 15:17, 18.58 KB) / 下载次数 0
https://www.txrjy.com/forum.php?mod=attachment&aid=MzI3ODEwfDUyNTBmZjhkfDE3NTMyNDk2MDF8MHww
时间:
2017-7-31 10:05
作者:
zhb66
学习
时间:
2017-8-17 12:41
作者:
水吉空
顶一下
时间:
2017-8-20 17:09
作者:
水吉空
顶一下
时间:
2017-8-22 09:45
作者:
水吉空
顶一下
通信人家园 (https://www.txrjy.com/)
Powered by C114
LINEWID 存储多段线的缺省宽度LINEWID" 0).......
LINEWID 存储多段线的缺省宽度LINEWID" 0).......
附件: 222222.png (2017-7-30 15:17, 18.58 KB) / 下载次数 0