（麻烦eachy版主再帮忙）[编程申请]：能否帮忙编城把选择的PLINE线转换成按PLINE宽度

海豚

一般结构图纸都是以两根线来表示梁宽，有些图纸以PLINE线来表示结构梁，其他专业为了在图中表示结构梁的位置，如果直接采用这图纸，则梁线还清楚过新画上去的东西，主次颠倒了，如果要把PLINE换成两根线，则先要记住线宽，炸开，OFFSET两次，删除中间的线。实在痛苦。希望各高手协助。

eachy

2. 
   
3. (defun c:test (/ ss ssl e w)
   
4.   (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
5.     (progn
   
6.       (setq ssl (sslength ss))
   
7.       (while (> ssl 0)
   
8.         (setq
   
9.           e (vlax-ename->vla-object (ssname ss (setq ssl (1- ssl))))
   
10.         )
    
11.         (if (setq w (vla-get-constantwidth e))
    
12.           (progn
    
13.             (vla-put-constantwidth e 0)
    
14.             (vla-offset e (setq w (/ w 2)))
    
15.             (vla-offset e (- w))
    
16.             (vla-delete e)
    
17.           )
    
18.         )
    
19.       )
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )

<br /> (defun c:test (/ ss ssl e w)<br />   (if (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />     (progn<br />       (setq ssl (sslength ss))<br />       (while (> ssl 0)<br />         (setq<br />           e (vlax-ename->vla-object (ssname ss (setq ssl (1- ssl))))<br />         )<br />         (if (setq w (vla-get-constantwidth e))<br />           (progn<br />             (vla-put-constantwidth e 0)<br />             (vla-offset e (setq w (/ w 2)))<br />             (vla-offset e (- w))<br />             (vla-delete e)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

海豚

非常好用，还可以多选，多次麻烦版主，实在谢谢。

pxt2001

最初由 海豚 发布
[B]非常好用，还可以多选，多次麻烦版主，实在谢谢。 [/B]

我在cad中加载该程序，输入命令test，发现不能将pl线变成两条线。
请帮忙解释一下怎么样用这个程序？

popsun

试用版不支持此功能？什么意思啊？用了什么别的工具的？？

梦断江南

这个程序的适用前提是:
1.LWPOLYLINE
2.有统一的线宽
如果不统一,可用wkai以前写的一个"多义线轮廓"的工具

海豚

麻烦eachy版主再帮忙，下面这份图差这两根线转换为一根线，没有变为双线，请问版主是什么原因。
梦断江南版主，我用过wkai的"多义线轮廓"工具，但速度慢很多，而且每次都有弹出框，有点麻烦。

eachy

最初由 海豚 发布
[B]麻烦eachy版主再帮忙，下面这份图差这两根线转换为一根线，没有变为双线，请问版主是什么原因。
梦断江南版主，我用过wkai的"多义线轮廓"工具，但速度慢很多，而且每次都有弹出框，有点麻烦。 [/B]

我这运行正常（CAD2005CN）

海豚

难道是2004的问题。