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

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") S5 B/ ]7 J( \; {* }3 `$ }: U
(princ "+++++ 输入命令"ee"进行操作 +++++\n"). q$ M2 N9 x: D" ?3 O
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线' V% f4 e9 j: l2 h: D- I
(VL-LOAD-COM)(setvar "cmdecho" 0)/ p! s3 t. I1 u- T% w3 t2 ^2 _
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE")))) _* r/ |2 b1 ^+ H8 f
(princ "\n")# d0 k9 N, J- y. V
(setq jj (getint "设置间距(1):")): Y5 l. i. s; E3 R F
(if (= jj nil) (setq jj 1))2 t; b* f4 y0 [- x, S3 Y
(setq lenss (sslength ss)
3 G+ _+ K- N! H4 J; O
i 0 eelist '()
5 ]) M, f$ v* T" Z% }" ]
)
; K7 ?% \$ W8 w+ O; S
(repeat lenss;外循环开始
, z) ^1 X1 E9 c3 y" w$ Z2 H
(setq en (ssname ss i);取得图元名5 ]+ M5 J% z$ G5 i" h5 ]3 [. a- |
obj (vlax-ename->vla-object en);转换为vla对象
+ j, { ?9 t( \8 T, W
)% r. M$ C" q7 Q
(setq ;zc (vlax-curve-getendparam obj) _9 r' ~1 Z1 L- z$ M
j 1 );求得图元周长; U1 F) F+ l. B0 [
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
# J/ `. m9 B7 D) J
+ ~* T0 r% X( F6 f! ~3 a$ c8 q
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度3 d: k1 N6 X+ H5 q' o: a6 B; v
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
" |% L' T2 q$ W8 R" ~
(repeat (fix (/ zc jj));循环周长取整次刚好到端点
4 [8 R: c! B$ C( s j8 b, A
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))' |3 ]- W4 I3 x, `/ F7 I$ C
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点" W! x2 l1 g) ^$ X0 ?- @
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
0 g6 f* C+ B' o" m) v0 Q+ }
)& v+ {5 N$ |; w$ E7 e! p9 C
(setq eelist (append eelist (list lst)));加入到点集
$ a a2 b) W% ^$ g4 t1 U+ z
(setq j (+ jj j));递增jj
5 P8 q& a3 {0 k9 y2 L
);内循环结束
$ b9 }9 ]' o0 F9 s
;(setq eelist(reverse eelist))( S3 \% g0 a8 }- O* T3 O! W
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj)))): S* Q+ R: y( a, q+ [; X1 n- u* l) E
(command ".pline" "non" lst1);开始描点
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红4 z3 n& u% M/ U; G& |8 p
(COMMAND "");描点结束
# |: _& Z) w' x" _" C1 z h
(setq eelist '());清空点集
, x \' }8 u, r; s" [
(setq i (1+ i));下一个图元
. j. b1 v' k: M; G! d0 m
);外循环结束
; F& r3 U: ]0 @1 M2 _5 {3 V: `/ e
(princ "\n转换结束.")- Z: L: r- u9 f3 J
)

复制代码

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

下面是acad的方法，你可以在中望中试试
' J+ f- } a; ]/ K3 R6 r- f" F3 W0 \/ b
1.普通方法
) a6 r6 v" G9 k 样条曲线转换成多段线的方法AutoCAD本身携带的E ... V7 j8 ?# a c" x( X' t
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
9 d, e5 q2 d% D下面是acad的方法，你可以在中望中试试3 a2 X% J( w: a9 ~ O

& h3 l* S" P# T! B s! u9 f1.普通方法
$ F/ q5 T) Y0 `! Z8 _4 a" V

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

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

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

浏览过的版块