[求助]：line转polyline的程序

thx

有一批图需要将LINE线转为polyline，使用Pedit命令提示：该对象与 UCS 不平行。该LINE线属性为：LINE      图层: 6101990
                            空间: 模型空间
                   句柄 = 94E0
                自 点，X=76247.118  Y=-137646.987  Z=  304.762
                到 点，X=76249.963  Y=-137639.296  Z=  299.764
          在当前 UCS 中。 长度 =    8.200，在 XY 平面中的角度 =     1r
                  三维长度  =    9.603，与 XY 平面的角度 =     6r
                  增量 X =    2.845，增量 Y =     7.691，增量 Z =   -4.998
而且即使PE命令好用，也之能一个一个改，很麻烦，在论坛上搜索半天也没找到好的解决办法，烦请各位大虾帮补忙。

eachy

2. 
   
3. (defun c:Tt (/ ss ssl i sp ep)
   
4.   (if (setq ss (ssget '((0 . "LINE"))))
   
5.     (progn
   
6.       (setq ssl        (sslength ss)
   
7.             i        -1
   
8.       )
   
9.       (setvar "clayer" "6101990")
   
10.       (repeat ssl
    
11.         (setq e         (ssname ss (setq i (1+ i)))
    
12.               sp (vlax-curve-getstartpoint e)
    
13.               ep (vlax-curve-getendpoint e)
    
14.         )
    
15.         (command ".pline" "_non" sp "_non" ep "")
    
16.       )
    
17.       (command ".erase" ss "")
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )

<br /> (defun c:Tt (/ ss ssl i sp ep)<br />   (if (setq ss (ssget '((0 . "LINE"))))<br />     (progn<br />       (setq ssl        (sslength ss)<br />             i        -1<br />       )<br />       (setvar "clayer" "6101990")<br />       (repeat ssl<br />         (setq e         (ssname ss (setq i (1+ i)))<br />               sp (vlax-curve-getstartpoint e)<br />               ep (vlax-curve-getendpoint e)<br />         )<br />         (command ".pline" "_non" sp "_non" ep "")<br />       )<br />       (command ".erase" ss "")<br />     )<br />   )<br />   (princ)<br /> )

thx

多谢版主，使用程序后，所有LINE线变成当前图层，能不能再帮我加几个语句，使程序运行后还是原来的图层？因为我的图里有很多层，这样运行的话，所有的图层全变成一个层了，谢谢！！

xyp1964

代劳：

2. [FONT=courier new](defun c:Tt (/ ss ssl i sp ep)
   
3.   (if (setq ss (ssget '((0 . "LINE")(8 . "6101990"))))
   
4.     (progn
   
5.       (setq ssl        (sslength ss)
   
6.             i        -1
   
7.       )
   
8.       (setvar "clayer" "6101990")
   
9.       (repeat ssl
   
10.         (setq e         (ssname ss (setq i (1+ i)))
    
11.               sp (vlax-curve-getstartpoint e)
    
12.               ep (vlax-curve-getendpoint e)
    
13.         )
    
14.         (command ".pline" "_non" sp "_non" ep "")
    
15.       )
    
16.       (command ".erase" ss "")
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )[/FONT]

[FONT=courier new](defun c:Tt (/ ss ssl i sp ep)<br />   (if (setq ss (ssget '((0 . "LINE")(8 . "6101990"))))<br />     (progn<br />       (setq ssl        (sslength ss)<br />             i        -1<br />       )<br />       (setvar "clayer" "6101990")<br />       (repeat ssl<br />         (setq e         (ssname ss (setq i (1+ i)))<br />               sp (vlax-curve-getstartpoint e)<br />               ep (vlax-curve-getendpoint e)<br />         )<br />         (command ".pline" "_non" sp "_non" ep "")<br />       )<br />       (command ".erase" ss "")<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

雨箭风刀

2. 
   
3. (defun c:l2p (/ ss n)
   
4.   (princ "\n 直线转多义线----by 雨箭风刀.2007.3")
   
5.   (if (setq ss (ssget '((0 . "LINE"))))
   
6.     (progn
   
7.       (setq n (sslength ss))
   
8.       (repeat n
   
9.         (setq n  (1- n))
   
10.         (l2pl (ssname ss n) nil)
    
11.       )
    
12.       (command ".erase" ss "")
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )
    
17. (defun l2pl (e k / ent dxf11)
    
18.   (setq        ent   (entget e)
    
19.         dxf11 (cdr (assoc 11 ent))
    
20.         ent   (vl-remove-if'(lambda (x) (member (car x) '(0 5 100 11)))ent)
    
21.   )
    
22.   (entmake (append
    
23.              '((0 . "LWPOLYLINE")(100 . "AcDbEntity")(100 . "AcDbPolyline")(90 . 2))
    
24.              ent
    
25.              (list (cons 10 dxf11))
    
26.            )
    
27.   )
    
28.   (if k (entdel e))
    
29. )
    

<br /> (defun c:l2p (/ ss n)<br />   (princ "\n 直线转多义线----by 雨箭风刀.2007.3")<br />   (if (setq ss (ssget '((0 . "LINE"))))<br />     (progn<br />       (setq n (sslength ss))<br />       (repeat n<br />         (setq n  (1- n))<br />         (l2pl (ssname ss n) nil)<br />       )<br />       (command ".erase" ss "")<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun l2pl (e k / ent dxf11)<br />   (setq        ent   (entget e)<br />         dxf11 (cdr (assoc 11 ent))<br />         ent   (vl-remove-if'(lambda (x) (member (car x) '(0 5 100 11)))ent)<br />   )<br />   (entmake (append<br />              '((0 . "LWPOLYLINE")(100 . "AcDbEntity")(100 . "AcDbPolyline")(90 . 2))<br />              ent<br />              (list (cons 10 dxf11))<br />            )<br />   )<br />   (if k (entdel e))<br /> )<br />

gufengyin

该对象与 UCS 不平行  到底是什么意思,如果不只修改直线,还有其它的如 CIRCLE TEXT 等
  除了用重新绘制这条线,有没有方法可以用PEIDT命令编辑原来的线?

llkill

PE   M   Y就OK了

wyihui

直接使用pe最简单!是cad自带的功能,就别费什么劲去搞lisp了

kohi

如果相邻的两条直线不精确相交怎么办?