【已解决】多段线绘制杆路

wbf424069638 · 发表于 2017-7-16 22:44:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 wbf424069638 于 2018-5-18 21:29 编辑

我是做通信的工作遇到特别多的画电杆图如图现在画杆路是用宽度50多段线画一条线过去代表光缆然后在多段线每个节点粘贴一个圆代表电杆最后将圆里的多段线剪切掉现在我想实现画一条多段线过去每个节点就自动画好一个圆圆里是空白的求大神指教谢谢！

newer · 发表于 2017-7-16 23:10:19

晓东工具箱，曲线菜单下路径阵列

xinxirong · 发表于 2017-7-17 04:04:11

这个简单，天正都是先布图块，再画线，因为图块的位置有各种规范要求。而你是反其道而行之，先画线，再画块，或者边画线边布块，随心所欲。幸好你的简单，没有弧线，就获得多段线的节点然后插入圆，打断即可。

newer · 发表于 2017-7-17 13:41:12

本帖最后由 newer 于 2017-7-17 13:43 编辑

多段线生成圆遮盖.gif

在XDRX API环境下执行下面代码：

(defun c:tt ()
(defun _makeblk ()
(if (not (tblsearch "block" "xd_circle_wipeout_blk"))
(progn
(xdrx_circle_make '(0 0 0) 1.0)
(xdrx_block_make
"xd_circle_wipeout_blk"
(entlast)
'(0 0 0)
t
)
)
)
)
(if (not #xd_var_circle_radius)
(setq #xd_var_circle_radius 10)
)
(if (setq
val (getreal
(xdrx_prompt "\n输入半径<" #xd_var_circle_radius ">:" t)
)
)
(setq #xd_var_circle_radius val)
)
(if (and (xdrx_initssget "\n选取要处理的多段线<退出>:")
(setq ss (xdrx_ssget '((0 . "*POLYLINE"))))
)
(progn
(_makeblk)
(vl-cmdf "wipeout" "f" "off")
(mapcar '(lambda (x)
(mapcar '(lambda (y)
(xdrx_insert_make
"xd_circle_wipeout_blk"
y
#xd_var_circle_radius
0.0
)
)
(xdrx_getpropertyvalue x "vertices")
)
)
(xdrx_pickset->ents ss)
)
(xdrx_insert_appendWipeout (entlast))
)
)
(princ)
)

(defun c:tt () 
  (defun _makeblk () 
    (if        (not (tblsearch "block" "xd_circle_wipeout_blk")) 
      (progn 
        (xdrx_circle_make '(0 0 0) 1.0) 
        (xdrx_block_make 
          "xd_circle_wipeout_blk" 
          (entlast) 
          '(0 0 0) 
          t 
        ) 
      ) 
    ) 
  ) 
 
  (if (not #xd_var_circle_radius) 
    (setq #xd_var_circle_radius 10) 
  ) 
  (if (setq 
        val (getreal 
              (xdrx_prompt "\n输入半径<" #xd_var_circle_radius ">:" t) 
            ) 
      ) 
    (setq #xd_var_circle_radius val) 
  ) 
  (if (and (xdrx_initssget "\n选取要处理的多段线<退出>:") 
           (setq ss (xdrx_ssget '((0 . "*POLYLINE")))) 
      ) 
    (progn 
      (_makeblk) 
      (vl-cmdf "wipeout" "f" "off") 
      (mapcar '(lambda (x) 
                 (mapcar '(lambda (y) 
                            (xdrx_insert_make 
                              "xd_circle_wipeout_blk" 
                              y 
                              #xd_var_circle_radius 
                              0.0 
                            ) 
                          ) 
                         (xdrx_getpropertyvalue x "vertices") 
                 ) 
               ) 
              (xdrx_pickset->ents ss) 
      ) 
      (xdrx_insert_appendWipeout (entlast)) 
    ) 
  ) 
  (princ) 
)

zhouzhiy · 发表于 2017-7-27 21:40:23

谢谢楼主分享！

qq1254582201 · 发表于 2017-7-28 22:37:45

看着还不错的样子！！！！

小小的人 · 发表于 2020-4-5 16:57:09

newer 发表于 2017-7-17 13:41
在XDRX API环境下执行下面代码：

能做新建杆路吗，就是实心的杆

财源广进 · 发表于 2024-1-17 08:04:14

newer 发表于 2017-7-17 13:41
在XDRX API环境下执行下面代码：

你好大神你这个代码怎么在CAD2024上只能用一次，用第二次CAD就卡死了，的重新启动CAD才好用。

shpdzhj · 发表于 2024-3-4 16:12:15

财源广进发表于 2024-1-17 08:04
你好大神你这个代码怎么在CAD2024上只能用一次，用第二次CAD就卡死了，的重新启动CAD才好用。 ...

2021版同样问题，望大佬解决。

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

[已解决] 【已解决】多段线绘制杆路

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评