[原创]曲线转化为多段线(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. )

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

lisa0314

非常好用阿!!

hanniu_1973

杨工的LISP编程功底十分深厚呀，这个程序很实用。

東洺Nile

學習  看看!  

czcxxx

qmotuo

感谢分享，要是合二为一就完美了