[原创]：曲线转化为多段线(LWPOLYLINE)

yshf

2. ;;;测试程序
   
3. ;;;曲线转化为多段线(LWPOLYLINE)
   
4. ;;;1. 将首尾相接的直线(LINE)、多段线(LWPOLYLINE,POLYLINE)、圆弧(ARC)、
   
5. ;;;   椭圆弧(ELLIPSE)、样条曲线(SPLINE)转化为一多段线(LWPOLYLINE)
   
6. ;;;2. 将单一的多段线(POLYLINE)、圆(CIRCLE)、圆弧(ARC)、椭圆(ELLIPSE)、
   
7. ;;;   椭圆弧(ELLIPSE)、样条曲线(SPLINE)转化为一多段线(LWPOLYLINE)
   
8. ;;;3. 将下载的文件“qxzddx.fas”存到“G”盘中，如存入其它地方，
   
9. ;;;   请更改程序中第二行中的相应路径名。
   
10. (defun c:qxzddx()
    
11.   (if (null dbxddpx)(load "G:qxzddx.fas"));请注意文件“qxzddx.fas”存盘路径名
    
12.   (while (progn
    
13.            (princ "\n请选择要转化的图元")
    
14.            (setq ss1 (ssget '((0 . "LINE,LWPOLYLINE,POLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE"))))
    
15.          )
    
16.      (if ss1 (qxzddx0 ss1 (getdist "\n请输入分段曲线长度:")))
    
17.      (setq ssa nil)
    
18.   )
    
19.   (princ)
    
20. )

;;;测试程序<br /> ;;;曲线转化为多段线(LWPOLYLINE)<br /> ;;;1. 将首尾相接的直线(LINE)、多段线(LWPOLYLINE,POLYLINE)、圆弧(ARC)、<br /> ;;;   椭圆弧(ELLIPSE)、样条曲线(SPLINE)转化为一多段线(LWPOLYLINE)<br /> ;;;2. 将单一的多段线(POLYLINE)、圆(CIRCLE)、圆弧(ARC)、椭圆(ELLIPSE)、<br /> ;;;   椭圆弧(ELLIPSE)、样条曲线(SPLINE)转化为一多段线(LWPOLYLINE)<br /> ;;;3. 将下载的文件“qxzddx.fas”存到“G”盘中，如存入其它地方，<br /> ;;;   请更改程序中第二行中的相应路径名。<br /> (defun c:qxzddx()<br />   (if (null dbxddpx)(load "G:qxzddx.fas"));请注意文件“qxzddx.fas”存盘路径名<br />   (while (progn<br />            (princ "\n请选择要转化的图元")<br />            (setq ss1 (ssget '((0 . "LINE,LWPOLYLINE,POLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE"))))<br />          )<br />      (if ss1 (qxzddx0 ss1 (getdist "\n请输入分段曲线长度:")))<br />      (setq ssa nil)<br />   )<br />   (princ)<br /> )

yunzhong80

把程序给全行不，把有一部分呢？

yuer0103

请提供源码，谢谢！我们都有学习的需要！

小菜

POLYLINE怎么转换为LWPOLYLINE呢？

王咣生

convertpoly命令可以互相转换

小菜

有的POLYLINE不能用convertpoly转，但用晓东工具可以转，不知道什么原因

lyzydmw

很好，下载试用

ljttjl

我的网盘http://ljttjl.ys168.com   20080420目录也可下载  曲线转多段线程序，且转换后的多段线图层、颜色、线宽和转换前一样。