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

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")% `+ z. F g ]1 t1 u9 }3 Q
(princ "+++++ 输入命令"ee"进行操作 +++++\n")
( T! ]% ?7 v# K
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线- V% T5 H( P: b& a" }2 x" N, m
(VL-LOAD-COM)(setvar "cmdecho" 0)
) W0 u7 k: h) q7 k" ~7 C8 \4 A
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
1 C( a( N, l& t0 u
(princ "\n")( W7 E+ X0 L" G; b3 f/ Z' [
(setq jj (getint "设置间距(1):"))
. ^ W! |$ `5 ^- m
(if (= jj nil) (setq jj 1))
5 V Q. w$ @4 _# r! ^
(setq lenss (sslength ss)9 k+ y" Y& u8 i3 n
i 0 eelist '()6 v u$ w2 d$ C, N! L
)9 x+ l9 E) S; ^& ]
(repeat lenss;外循环开始! g5 `( W' i8 j& K5 }5 d( H R. k; Q
(setq en (ssname ss i);取得图元名
! D, @ }* a6 i9 [/ q" q; E( s
obj (vlax-ename->vla-object en);转换为vla对象, s0 t$ l- p! a* S6 [3 Z/ L# Q" S* S
)
2 e' R' b$ r" g. z! h5 S3 F0 g: C) ?
(setq ;zc (vlax-curve-getendparam obj)
' v( D1 ]5 D8 n9 U8 p
j 1 );求得图元周长$ i9 \; I% m' N- p: j: }3 x
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
+ D6 l" \9 t* W, e; I! e8 ~
8 P7 h* h: P" R3 H, D- M2 h5 a3 I( M
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
$ }7 V, Q$ @) S6 Q9 d
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点2 C* U7 c1 A' \, O
(repeat (fix (/ zc jj));循环周长取整次刚好到端点
8 }- M( k. e: ^9 D( a
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))8 ~ [" \7 v( M: l
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点) ~# R( R/ t" R# G7 n
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离 ]: C5 V7 e2 K. }# U! M3 H2 @3 C! a
)5 T! N. \, f! h' |( b) W
(setq eelist (append eelist (list lst)));加入到点集
" P" Z# L% |( `7 B% p" q1 w- m$ f
(setq j (+ jj j));递增jj
' n7 F4 X) Y4 ~
);内循环结束0 p1 Z5 f, v8 R, t' ~
;(setq eelist(reverse eelist))$ |( d) r4 C" J4 p0 o4 N$ C: j
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
1 J, N3 n7 e1 O$ D
(command ".pline" "non" lst1);开始描点% O4 j" ?" ]) ]7 b% O6 O
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
- H# ]0 ]2 ]$ h
(COMMAND "");描点结束; ^7 i6 ?1 ]+ f$ _0 A+ j4 h) [
(setq eelist '());清空点集
+ p) B" u6 {1 C: P; M Q
(setq i (1+ i));下一个图元% T, C2 z9 k* y$ r
);外循环结束
) p5 |' q! F( s, G
(princ "\n转换结束.")# B* _, ]* [, q* {0 X9 n$ r
)

复制代码

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

下面是acad的方法，你可以在中望中试试
- T1 y i- `# n% ?
8 T: j9 O1 @) U7 T1.普通方法
; E) q5 h8 l9 j$ J 样条曲线转换成多段线的方法AutoCAD本身携带的E ...
! [! u: Z6 I# x, g/ P' a1 p$ e' Ywww_qf 发表于 2012-4-18 11:27

竟然有这么多的方法。

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

不错，学习了。

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

www_qf 发表于 2012-4-18 11:278 G, ` v7 q, `$ Z5 e4 b ]: u
下面是acad的方法，你可以在中望中试试: ]/ Q' {" z8 q

. f( r, S, b# J3 G1.普通方法
9 m+ z5 I0 w* o" z/ B

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

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

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