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

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")$ ]5 p& s4 I# T J
(princ "+++++ 输入命令"ee"进行操作 +++++\n")- B( |. y3 \/ L, u
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
. x% X2 m8 B W( O* U( x
(VL-LOAD-COM)(setvar "cmdecho" 0)
. u3 ]' v8 v5 w$ Z
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))2 j$ d0 v* D7 W
(princ "\n")
$ `6 x0 D- A$ q# l
(setq jj (getint "设置间距(1):"))2 S1 |# n* X: K z7 q( r" d
(if (= jj nil) (setq jj 1))
. m: f" E7 @. f: K( Q
(setq lenss (sslength ss)
& n$ o1 p( d8 Z- _
i 0 eelist '()
0 z2 @8 Q; F0 N6 B" y/ N, N! Z4 Q
)
- ~( F' I9 o3 V. I
(repeat lenss;外循环开始+ Z8 T7 p6 G" D2 Z8 {
(setq en (ssname ss i);取得图元名) ]8 b& h$ I# e
obj (vlax-ename->vla-object en);转换为vla对象
! q y( w2 y' E# v" Q
)
4 L8 x. w3 c; j$ V. C
(setq ;zc (vlax-curve-getendparam obj)
+ {) }4 g6 e3 ?9 S- m" B2 x
j 1 );求得图元周长
6 D( }( R3 s$ s( Z% S
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj))), p: j9 W% y) E# g3 d4 M" S; B* s2 O
1 u& }1 D _1 b+ o h9 d
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度" c( p6 z" ]3 }3 G6 e
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点* }, z* q5 Q9 y6 t5 c8 M
(repeat (fix (/ zc jj));循环周长取整次刚好到端点% R( X- U2 C1 f& b0 e( u" N
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
2 U8 ~+ B* L, i
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
9 K3 A" L8 I; ]
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离: p3 ]6 d1 ]( H+ {& s
)+ O( l3 N' F: v! A( \( U" n4 t
(setq eelist (append eelist (list lst)));加入到点集2 Y6 }% o( x4 ]
(setq j (+ jj j));递增jj! ]. Y: [& H) K6 a9 a2 s4 P) J* X
);内循环结束
! Y c4 P/ y% d: I
;(setq eelist(reverse eelist))9 W0 k; a: o& p& ~5 X/ \: C
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))* Y* _" h7 C' w' C
(command ".pline" "non" lst1);开始描点
) k0 p$ U+ M7 l) n, v
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红7 ~1 ~) T6 P: Q2 ]- Z7 d
(COMMAND "");描点结束7 }/ M) `0 ~: c9 i! N: R* S
(setq eelist '());清空点集
6 H" f! O+ D( k- o/ p+ b* c1 N
(setq i (1+ i));下一个图元
( Y* \8 a: s: e& l O
);外循环结束
( H8 ^4 j1 {9 N; I+ `7 D! u
(princ "\n转换结束.")
3 v$ z6 p0 @8 E" D- b) K L# T
)

复制代码

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

下面是acad的方法，你可以在中望中试试% s# _8 T+ W& K$ _2 R$ ` N

: Z' t3 w! A/ A O% n- z, _& ^4 `1.普通方法2 c8 V$ K) ]7 W+ G* O6 v
样条曲线转换成多段线的方法AutoCAD本身携带的E ...4 a0 f' M+ y/ x" C
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
2 e, _; O3 ^3 k# Q7 G$ E ]$ _下面是acad的方法，你可以在中望中试试
- l( O' b* m+ F+ k5 i6 H$ S! j, {9 l& z) b* `2 Q! {
1.普通方法
; R! V8 S, z3 d+ A) d; r

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

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

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