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

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")* ]* `6 }4 ~$ Z. Q! h
(princ "+++++ 输入命令"ee"进行操作 +++++\n")3 H1 J6 _; c2 {
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
3 A; J' r; i* v6 Z0 h
(VL-LOAD-COM)(setvar "cmdecho" 0)
7 r. ?* L; a+ i/ g& S
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
8 l. M' s7 g/ Y. @
(princ "\n")- c1 S% b0 ^( L3 f! E
(setq jj (getint "设置间距(1):"))
6 H6 ~" w# i4 ~- r* g1 H
(if (= jj nil) (setq jj 1))
. G6 D* F' w5 U7 F
(setq lenss (sslength ss)7 }% @: s0 V `# v+ |' d
i 0 eelist '()
# v% ~8 e4 i& S) J
)
" X9 J1 x' c! t; K
(repeat lenss;外循环开始4 D& l0 z4 w6 _" T) H# b7 ]% w: }3 B
(setq en (ssname ss i);取得图元名
8 |& V) d, b& J5 U; b
obj (vlax-ename->vla-object en);转换为vla对象
) H/ _' a q3 Q2 [4 n
) s3 K: H: @/ V, k/ R0 Q# l
(setq ;zc (vlax-curve-getendparam obj)
5 I! T5 Y9 j. s9 b# w. f1 x5 P; ?
j 1 );求得图元周长+ [- S' J0 s3 b! g$ T" X( Q
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj))), V$ _# ~) \" \" c x$ m" X, ~
1 N+ e8 l" j6 r% Q7 _' M8 W' g
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
4 Y# v) E3 s9 O( ]! P0 q: D
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点! I1 t% C3 i0 u5 Q" K
(repeat (fix (/ zc jj));循环周长取整次刚好到端点; E1 S8 }! [8 Z* p0 a
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
1 U; n$ z7 ~6 z; [3 ]; M
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点% |* K5 J/ `7 O( X9 \
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离2 ?( K; \0 D+ a# {2 r
)
, S" f3 ~& t0 o4 F
(setq eelist (append eelist (list lst)));加入到点集
i1 j4 R1 w4 k" { G m
(setq j (+ jj j));递增jj
; z7 i5 m# _- q' h( ]
);内循环结束
8 x2 j |/ n& I
;(setq eelist(reverse eelist))
8 `7 L- d* F5 {) N5 T$ `
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
( H6 |$ ` F* l* }. A% p
(command ".pline" "non" lst1);开始描点5 S" ]. c. _' _, Z( G
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
) G9 B- f# {# ]8 j8 \
(COMMAND "");描点结束
: W) v* T3 f: _; ] r
(setq eelist '());清空点集0 Z% c/ e) g' r4 i
(setq i (1+ i));下一个图元
: f f! ]' K* I9 k5 {
);外循环结束
# ^: ~/ u6 ]' J' B' x. H
(princ "\n转换结束.")
& i5 Q- m! [8 e3 l5 D* N
)

复制代码

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

下面是acad的方法，你可以在中望中试试
# r' u! l: h |2 t2 s+ W+ s1 ^) L' L; k$ m' E* a# S6 X4 G' X3 O
1.普通方法7 h3 m' z, u" v: D! N4 S. |
样条曲线转换成多段线的方法AutoCAD本身携带的E ...+ x+ L, k9 R) c1 z1 H
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
+ p$ k* m: ]- p# J5 q! m下面是acad的方法，你可以在中望中试试
}7 W3 T/ H1 U# @, ]6 X( G/ D. s( \. m
1.普通方法
+ ~7 o( q7 Z4 W% A) A

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

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

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