[分享]：样条曲线转多段线方式

liwh35

由样条曲线转多段线方式
命令：flatten

lidongjian

没有这个命令,楼主核实一下.

又一村

这个flatten 命令在2006中可以运行,也可以将样条曲线转为多段线,

但却在帮助文件里搜索不到.

liwh35

你可以试一试啊
但在安装CAD的同时必须安装CAD的快捷工具（2004一下的版本不含此命令）

又一村

这是搜索结果

(明白了,其实就是ET扩展工具里的编辑工具"二维化对象")

BlaueKeiter

那可以设置拟合精度吗

zhong2013

这个是CAD自带函数可以实现的嘛。PEDIT

你微笑时很美

1. (defun c:tt( / ss sl obj e a b c pt abc)
   
2.   (setq ss(ssget'((0 . "*line,circle,arc,ELLIPSE"))))
   
3.   (setq sl(sslength ss))
   
4. (setq abc(getint"输入修改后的多段线顶点数："))
   
5.   (repeat sl
   
6.     (setq obj(vlax-ename->vla-object(setq ename(ssname ss (setq sl(1- sl))))))
   
7.     (if(vlax-curve-isclosed obj)(setq a 1)(setq a 2));是否闭合
   
8.     (setq b(vla-get-layer obj));图层
   
9.     (setq c(vla-get-color obj));颜色
   
10.     (setq pt(定数等分坐标表s ename abc 3))
    
11.     (pline a b c pt)
    
12.     )
    
13.   )

(defun c:tt( / ss sl obj e a b c pt abc)<br />   (setq ss(ssget'((0 . "*line,circle,arc,ELLIPSE"))))<br />   (setq sl(sslength ss))<br /> (setq abc(getint"输入修改后的多段线顶点数："))<br />   (repeat sl<br />     (setq obj(vlax-ename->vla-object(setq ename(ssname ss (setq sl(1- sl))))))<br />     (if(vlax-curve-isclosed obj)(setq a 1)(setq a 2));是否闭合<br />     (setq b(vla-get-layer obj));图层<br />     (setq c(vla-get-color obj));颜色<br />     (setq pt(定数等分坐标表s ename abc 3))<br />     (pline a b c pt)<br />     )<br />   )

zhk1981103

追风lisp

谢谢楼主分享！