（完成）[编程申请]：将lwployline转换成pline的程序

szkevin

从r14开始，autodesk提供了两种新的线类型，lwployline和spline，官方文件据说要将两种线替换pline线，可是在实际操作中用这种线经常碰到麻烦，就是不能向外offset，也不好用trim和extend，有时offset后，两条线变成同一个实体。
能不能编个这样的程序，就是将这两种线转换成pline，请晓东看过来，各位高手请积极参与，提一些看法。

顺颂时祺!

marting

SPLINE到POLYLINE的转换“晓东工具箱”里面提供了，我也想知道如何把LWPOLYLINE转换成POLYLINE，哪位高手有方法？

eachy

用下面的程序，可以Polyline和LWPolyline互换了。^_^
注意：以下代码为了显示，过滤选择中有空格，请下载附件！！！

2. ;|
   
3.    命令：xconvert
   
4.    
   
5.    功能：ACAD标准命令CONVERT的增强，可以在POLYLINE和LWPOLYLINE之间相互转换
   
6. 
   
7.    说明：ACAD本身的对象模型就不允许把拟和的转换成LWPOLYLINE对象，所以程序过滤了拟合曲线
   
8.    程序配合XDRX_API build 20428＋版本使用，朋友们可以把这个LISP拷贝到“晓东工具箱”的安装的
   
9.           LISP目录，自己加入到菜单里面就可以非常方便的使用了。
   
10.           关于程序的建议请到“晓东CAD空间-编程申请”论坛
    
11.           [url]http://www.xdcad.net/forum留言[/url]         
    
12.    
    
13. |;
    
14. 
    
15. (defun c:xconvert (/ info filter ss e tf)
    
16.   (initget "Lw Poly")
    
17.   (if (not
    
18.         (setq tf (getkword "\n请选择转换方式[Lw->poly | Poly->lw]<P>:"))
    
19.       )
    
20.     (setq tf "Poly")
    
21.   )
    
22.   (if (= tf "Lw")
    
23.     (setq filter '((0 . "lwpolyline"))
    
24.           info         "\n请选取要转换成老的多义线的LWPOLYLINE实体<全选>:"
    
25.     )
    
26.     (setq filter (list '(-4 . "< or")
    
27.                        '(0 . "polyline")
    
28.                        '(70 . 1)
    
29.                        '(70 . 0)
    
30.                        '(-4 . "or >")
    
31.                  )
    
32.           info         "\n请选取要转换成LWPOLYLINE的老的多义线实体<全选>:"
    
33.     )
    
34.   )
    
35.   (prompt info)
    
36.   (if (not (setq ss (ssget filter)))
    
37.     (setq ss (ssget "x" filter))
    
38.   )
    
39.   (xdrx_setsstodb ss 0)
    
40.   (while (setq e (xdrx_getentdata 0))
    
41.     (if        (= tf "Lw")
    
42.       (xdrx_polyline->2dpolyline e)
    
43.       (xdrx_polyline_ConvertFrom e)
    
44.     )
    
45.   )
    
46.   (prompt (strcat "\n成功转换了 "
    
47.                   (itoa (sslength ss))
    
48.                   (if (= tf "Lw")
    
49.                     " 个Lwpolyline实体!"
    
50.                     " 个Polyline实体!"
    
51.                   )
    
52.           )
    
53.   )
    
54.   (princ)
    
55. )
    

;|<br />    命令：xconvert<br />    <br />    功能：ACAD标准命令CONVERT的增强，可以在POLYLINE和LWPOLYLINE之间相互转换<br /> <br />    说明：ACAD本身的对象模型就不允许把拟和的转换成LWPOLYLINE对象，所以程序过滤了拟合曲线<br />    程序配合XDRX_API build 20428＋版本使用，朋友们可以把这个LISP拷贝到“晓东工具箱”的安装的<br />           LISP目录，自己加入到菜单里面就可以非常方便的使用了。<br />           关于程序的建议请到“晓东CAD空间-编程申请”论坛<br />           [url]http://www.xdcad.net/forum留言[/url]         <br />    <br /> |;<br /> <br /> (defun c:xconvert (/ info filter ss e tf)<br />   (initget "Lw Poly")<br />   (if (not<br />         (setq tf (getkword "\n请选择转换方式[Lw->poly | Poly->lw]<P>:"))<br />       )<br />     (setq tf "Poly")<br />   )<br />   (if (= tf "Lw")<br />     (setq filter '((0 . "lwpolyline"))<br />           info         "\n请选取要转换成老的多义线的LWPOLYLINE实体<全选>:"<br />     )<br />     (setq filter (list '(-4 . "< or")<br />                        '(0 . "polyline")<br />                        '(70 . 1)<br />                        '(70 . 0)<br />                        '(-4 . "or >")<br />                  )<br />           info         "\n请选取要转换成LWPOLYLINE的老的多义线实体<全选>:"<br />     )<br />   )<br />   (prompt info)<br />   (if (not (setq ss (ssget filter)))<br />     (setq ss (ssget "x" filter))<br />   )<br />   (xdrx_setsstodb ss 0)<br />   (while (setq e (xdrx_getentdata 0))<br />     (if        (= tf "Lw")<br />       (xdrx_polyline->2dpolyline e)<br />       (xdrx_polyline_ConvertFrom e)<br />     )<br />   )<br />   (prompt (strcat "\n成功转换了 "<br />                   (itoa (sslength ss))<br />                   (if (= tf "Lw")<br />                     " 个Lwpolyline实体!"<br />                     " 个Polyline实体!"<br />                   )<br />           )<br />   )<br />   (princ)<br /> )<br />

marting

羡慕 :5 :5 :5