yshf 发表于 2005-11-15 12:34:00

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

本帖最后由 作者 于 2006-2-27 12:06:29 编辑

;;;测试程序
;;;曲线转化为多段线(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 发表于 2005-12-9 21:30:00

<P>非常好用阿!!</P>

hanniu_1973 发表于 2015-10-18 22:51:42

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

東洺Nile 发表于 2015-10-19 07:10:53

學習看看!

czcxxx 发表于 2015-10-23 10:26:57

qmotuo 发表于 2022-6-12 21:52:55

感谢分享，要是合二为一就完美了
页: [1]
查看完整版本: [原创]曲线转化为多段线(LWPOLYLINE)