如何将样条曲线变成多段线？

sg001833 · 发表于 2012-3-30 22:55

n条样条曲线怎么能转变为多段线

sg001833 · 发表于 2012-4-10 08:07

哪位高手回复一下啊，教教！

www_qf · 发表于 2012-4-18 11:27

下面是acad的方法，你可以在中望中试试

1.普通方法
样条曲线转换成多段线的方法AutoCAD本身携带的ET工具（Express tool）有一个命令可以直接实现此功能：FLATTEN命令可以完成此项，前提是AutoCAD安装的时候已经安装了ET工具。
方法1：直接输入“FLATTEN”
方法2：用菜单——Express——Modify——Flatten objects

2.把样条曲线转换成多段线另类方法
方法1：将要转换的样条曲线复制在一新图中，用“另存为”命令将图纸保存为“AutoCAD R12/L12 DXF (*.dxf)”格式，再“打开”命令选择打开刚才保存的“DXF (*.dxf)”格式文件即可。
方法2：用WMFOUT命令选择要要转换的样条后，将所选对象保存为“图元文件 (*.wmf)”格式文件，再用WMFIN命令打开刚才保存的“图元文件 (*.wmf)”文件，按提示输入相应参数后炸开图形，就得到了所要转换的多段线了。

3.用lsp程序
将如下代码存为lsp格式，用CAD加载后输入命令ee即可转换。

(princ "+++ 曲线或圆弧到多线段 - Chris. [email protected] 2012-1-3 +++\n")
2 S" V& l- ]; Q, l' ?* G' v
(princ "+++++ 输入命令"ee"进行操作 +++++\n")* A; F. e2 ?+ C) A
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
2 t R$ q. I c9 X% Q( i
(VL-LOAD-COM)(setvar "cmdecho" 0)
, u, r5 I x9 _8 i [2 E" @
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
" F* d. J! c% u% X+ [! K/ h4 S) Y" a
(princ "\n")
" F3 m5 P) H! H" j; ^3 [* Y m" d) n
(setq jj (getint "设置间距(1):"))" l7 v+ M; I B) b5 R0 s+ d# @2 m
(if (= jj nil) (setq jj 1))( {$ U7 Y! l, m* Q0 W
(setq lenss (sslength ss)0 J" }" S/ Z/ L% L7 {* U' U$ s
i 0 eelist '()2 |6 K" W9 h |9 r" U
), \3 L' N, B; x7 K3 }- b
(repeat lenss;外循环开始
7 @3 S' v/ H0 s2 Y+ w5 A9 B
(setq en (ssname ss i);取得图元名; m0 O" H! i# n, i2 B W
obj (vlax-ename->vla-object en);转换为vla对象
; T3 I0 F* h8 \. {$ Y9 q
)
: c( v* R0 z/ X: z. H1 g4 i* B# j& m4 @
(setq ;zc (vlax-curve-getendparam obj)
4 @* ]; Q" V' |5 B. x
j 1 );求得图元周长4 Y5 {0 J' b% T3 a* H5 J8 m
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))7 r8 H+ S( t% e4 T
$ c. W. Q& k- m5 h& A8 ]
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
: Y# E( @; [; z0 l) u; E4 }: E
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点3 ?+ k$ @3 n9 [+ p- w% k' f
(repeat (fix (/ zc jj));循环周长取整次刚好到端点
6 C7 X# V6 g2 X* u( ~/ p* \, r
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))& {" M: p' M& t2 r% O4 g; R
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点3 A" o: h5 M# q$ u- o# u6 e7 K
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离( ?% q* m# K$ e( ^
)
6 w) x, t. s9 L5 p$ j
(setq eelist (append eelist (list lst)));加入到点集
$ B8 c( `, u* o2 E. s
(setq j (+ jj j));递增jj' T; `# ]+ ]( U
);内循环结束 c/ ~" v0 V4 |$ i9 {) C- C& T0 r
;(setq eelist(reverse eelist))
* `, U- y- J6 u# U
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))" L& w/ r1 ~% r2 z! M5 H1 o
(command ".pline" "non" lst1);开始描点
0 P- v& q. [; F9 S* l, [/ K
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红4 }$ t; _1 o S$ a. x
(COMMAND "");描点结束
6 [4 A( A. G" r$ I
(setq eelist '());清空点集
. o, ^# T& L9 X& c( d! g
(setq i (1+ i));下一个图元
; i- h" o' e# r1 D* v7 s
);外循环结束
0 K- y+ K" V$ K4 o ?9 g7 S2 o4 n
(princ "\n转换结束.")
3 t6 O2 R& a( [6 j. @
)

复制代码

flour2006 · 发表于 2012-4-19 11:07

下面是acad的方法，你可以在中望中试试
4 K/ @0 M: A+ {/ {0 F0 w; x z2 U: u2 ~/ F' M
1.普通方法
6 Q' C; f5 G" L/ Q; A. f* s 样条曲线转换成多段线的方法AutoCAD本身携带的E ...) D' `' p: k1 |7 ^
www_qf 发表于 2012-4-18 11:27

竟然有这么多的方法。

qqqqqq · 发表于 2012-4-24 12:02

不错，学习了。

929171718 · 发表于 2022-7-17 10:54

www_qf 发表于 2012-4-18 11:27# |; g0 {& l5 U! j- b
下面是acad的方法，你可以在中望中试试
$ |4 t1 l. G# p5 a7 b9 \) U( y1 Y2 s
1.普通方法& N8 F- M! h" z5 E5 F! x. t

这ee插件，怎么只能设置整数呀，

		自动登录	找回密码
密码			立即注册

[求助] 如何将样条曲线变成多段线？