[求助]：如何批量将样条曲线转换成多段线！急！急！

hjs_973743

由于本不太懂编写LSP文件，所以发贴希望名位大侠能帮帮忙！在此先谢啦！
我想把一批样条曲线转换成多段线！
我这有一个小程序，只能转单条线，希望各位大侠能帮我改一改！然后发上来
(defun c:pl2 ()
  (vl-load-com)
  (setq mode1 (getvar "osmode"))
  (setvar "osmode" 0)
  (setq ent (entsel))
  (setq ent1 (car ent))
  (setq curve-obj (vlax-ename->vla-object (car ent)))
  (setq leng (vlax-curve-getDistAtParam
               curve-obj
               (vlax-curve-getEndParam curve-obj)
             )
  )
(setq pt1 (vlax-curve-getStartPoint
               curve-obj )
        pt3 (vlax-curve-getEndpoint curve-obj)
             )
(setq m (getreal "间隔"))
  (setq n m)
  (command "pline")
  (command pt1)
  (while (< n leng)
    (setq pt2 (vlax-curve-getpointatdist curve-obj n))
    (command pt2)
    (setq n (+ n m))
    )
  (command pt3)
  (command "")
  (command)
  (command "erase" ent1 "")
  (princ)
  (setvar "osmode" mode1)
)
这是一个重画多段线后删掉原来的样条曲线！

MingSoft

这里有个 可以设定转换精度，能根据曲线弯曲程度动态调整点的密度
但判断速度和减少点数的算法正在修改，目前效率不高，先给个用用。
命令名称  TPL

hjs_973743

不好意思，我刚注册下载不了，能不能显示代码啊！谢谢！

snsj

http://www.xdcad.net/forum/showthread.php?threadid=274232

hjs_973743

;;;|样条曲线到多义线
;;;|spl-pl
(defun c:spl-pl (/ pt ent i n ss)
  (setq ss (ssget '((0 . "SPLINE")))n 0)
  (repeat (sslength ss)     
  (setq pt(ACET-GEOM-SPLINE-POINT-LIST(setq ent(ssname ss n))nil))
(command "pline" (foreach i pt (command i)))
  (command ".erase" ent "")
    (setq n(1+ n))
    )(princ)
  )


错误: no function definition: ACET-GEOM-SPLINE-POINT-LIST

snsj

需要有ET扩展工具的支持，CAD2004/2005安装文件中都自带有ET扩展工具的安装，如果是2002可以在论坛下载ET扩展工具

eachy

http://www.xdcad.net/forum/showthread.php?threadid=249365

hjs_973743

上一个没有用！效果不理想
我试了这个
;;;|样条曲线到多义线
;;;|spl-pl
(defun c:spl-pl (/ pt ent i n ss)
  (setq ss (ssget '((0 . "SPLINE")))n 0)
  (repeat (sslength ss)     
  (setq pt(ACET-GEOM-SPLINE-POINT-LIST(setq ent(ssname ss n))nil))
(command "pline" (foreach i pt (command i)))
  (command ".erase" ent "")
    (setq n(1+ n))
    )(princ)
  )

错误:no function definition: ACET-GEOM-SPLINE-POINT-LIST

snsj

错误:no function definition: ACET-GEOM-SPLINE-POINT-LIST 是因为你没有安装ET扩展工具，安装好ET扩展工具后自然就能用了

tmy2619

受用。

梦断江南

惊人的相似。两个不同的程序转换的结果

hjs_973743

;;;|样条曲线到多义线
;;;|spl-pl
(defun c:spl-pl (/ pt ent i n ss)
(setq ss (ssget '((0 . "SPLINE")))n 0)
(repeat (sslength ss)
(setq pt(ACET-GEOM-SPLINE-POINT-LIST(setq ent(ssname ss n))nil))
(command "pline" (foreach i pt (command i)))
(command ".erase" ent "")
(setq n(1+ n))
)(princ)
)
这个程序转出来怎么就变成直线,
但我还要保持原来的样子,

梦断江南

你可以用pedit/fit

hjs_973743

最初由 梦断江南 发布
[B]你可以用pedit/fit [/B]

要能用它我早用啦,也就不用这么麻烦啦!不过还得谢你!
希望多发布意思!