[LISP程序]：请求POLYLINE转变为LWPOLYLINE的函数

心梦相随

将所选择的POLYLINE转变为LWPOLYLINE，适用于R14，先谢谢了。

eachy

最初由 心梦相随 发布
[B]将所选择的POLYLINE转变为LWPOLYLINE，适用于R14，先谢谢了。 [/B]

不用编程，CAD有标准命令的。

2. 
   
3. Converts 2D polylines and associative hatches to the optimized Release 14 format
   
4. 2D polylines and associative hatches are created in Release 14 using an optimized format that saves memory and disk space.
   
5. Use CONVERT to update hatches or polylines created in previous versions of AutoCAD.
   
6. 
   
7. Command line: convert
   
8. 
   
9. Hatch / Polyline / < All >: Enter h for hatches, p for polylines, or a for both
   
10. Select / < All >:  Enter s to select objects or a to convert
    
11. all objects in the drawing
    
12. 
    
13. AutoCAD displays one or both of the following messages.
    
14. 
    
15. number hatch objects converted
    
16. number 2d polyline objects converted
    
17. 
    
18. Hatches do not update automatically when a drawing from a previous release is opened in Release 14. Hatch pattern rotation
    
19. information may not update properly if the UCS has changed since the hatch was created. When updating hatches with
    
20. CONVERT, it is recommended that you use the Select option so you can check your results.
    
21. In most cases, polylines do not need to be updated with CONVERT. By default, the PLINETYPE system variable specifies that
    
22. polylines update automatically when an older drawing is opened. Polylines might be created in the old format by
    
23. third-party applications,
    
24. and they might be contained in an older drawing that was inserted as a block and then exploded.
    
25. 
    
26. Note: Polylines containing curve-fit or splined segments always retain the old format, as do polylines that store extended entity
    
27. data on their vertices. AutoCAD's editing commands make no distinction between the two formats.

<br /> Converts 2D polylines and associative hatches to the optimized Release 14 format<br /> 2D polylines and associative hatches are created in Release 14 using an optimized format that saves memory and disk space. <br /> Use CONVERT to update hatches or polylines created in previous versions of AutoCAD. <br /> <br /> Command line: convert<br /> <br /> Hatch / Polyline / < All >: Enter h for hatches, p for polylines, or a for both<br /> Select / < All >:  Enter s to select objects or a to convert <br /> all objects in the drawing<br /> <br /> AutoCAD displays one or both of the following messages.<br /> <br /> number hatch objects converted<br /> number 2d polyline objects converted<br /> <br /> Hatches do not update automatically when a drawing from a previous release is opened in Release 14. Hatch pattern rotation<br /> information may not update properly if the UCS has changed since the hatch was created. When updating hatches with <br /> CONVERT, it is recommended that you use the Select option so you can check your results. <br /> In most cases, polylines do not need to be updated with CONVERT. By default, the PLINETYPE system variable specifies that <br /> polylines update automatically when an older drawing is opened. Polylines might be created in the old format by <br /> third-party applications, <br /> and they might be contained in an older drawing that was inserted as a block and then exploded.<br /> <br /> Note: Polylines containing curve-fit or splined segments always retain the old format, as do polylines that store extended entity <br /> data on their vertices. AutoCAD's editing commands make no distinction between the two formats.

dwgplt

Command: CONVERTPOLY
Convert to Heavy/Light<Light>:

Select objects: 1 found

Select objects:
1 polylines converted.

绘图员

能解释一下POLYLINE 与LWPOLYLINE的区别吗？

小狼

(setq ss (ssget "x" '((0 . "polyline")))
         n 0)
   (if (/= nil ss)
      (progn
         (xdrx_pbarbegin "&Otilde;&yacute;&Ocirc;&Uacute;&acute;&brvbar;&Agrave;íPolyline:" (sslength ss))
         (repeat (sslength ss)
            (xdrx_pbarsetpos n)
            (setq ename (ssname ss n)
                  elist (entget ename)
                  n (1+ n)
                  )
            (xdrx_polyline_ConvertFrom ename))
           (xdrx_pbarend))
    )