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

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")# h6 |( `& I/ B5 d1 @/ T
(princ "+++++ 输入命令"ee"进行操作 +++++\n")
: y& \2 y9 W$ x
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线. \: S: R8 n8 I/ m6 \. |2 _
(VL-LOAD-COM)(setvar "cmdecho" 0)
+ Z; C) ?* k3 |& u6 x
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))7 w. ~% X% Y+ I
(princ "\n"), M: }3 U3 C( u. a8 ^
(setq jj (getint "设置间距(1):"))
: u& o: L; ]: W3 ?. q7 g# `. ~9 c
(if (= jj nil) (setq jj 1))
. L9 O! p' s* r ~# {
(setq lenss (sslength ss)
; d O# G, J5 I( \9 P
i 0 eelist '()' E3 Q9 J& W* A/ R p
)- ?$ R G: W; P0 Y: q7 }9 {
(repeat lenss;外循环开始6 L8 Z. H2 r- S! n6 @4 z, P
(setq en (ssname ss i);取得图元名% S/ o q) B+ f( _- ~; R
obj (vlax-ename->vla-object en);转换为vla对象
9 z) l' _, `, N w: m
)
8 \3 N) y) J) M" \+ b) I
(setq ;zc (vlax-curve-getendparam obj): [6 C1 D" s z& u5 @8 o! b# a
j 1 );求得图元周长# P' ]0 U4 T) v1 V v/ ]0 z
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
1 w6 z1 e& ~0 |+ p4 W- r, e' n+ i
2 K# z2 }% w" f9 [8 t8 g2 i$ _5 v
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
2 s) S$ L5 c. U! `
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点* s6 Z% Q. P+ M H9 f
(repeat (fix (/ zc jj));循环周长取整次刚好到端点
?! c. f: l+ Z- x8 q9 K
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))& B% W5 K9 \. i0 h# w9 H( e& p2 \
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
# H# Y" x% b, t7 ? t. N
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离( u' L# u6 y9 S/ h: f% ]
)
1 s O- G& D. C; @1 [- J
(setq eelist (append eelist (list lst)));加入到点集3 a/ ] Z& E+ t- y0 K
(setq j (+ jj j));递增jj* t$ S) y/ }5 y7 t- a, f
);内循环结束* ^# v. d5 e; _: e' f+ S
;(setq eelist(reverse eelist))5 `4 L1 [! @+ O( [( m, j! A
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
# e3 G0 t4 v J0 T4 q0 c5 q1 p( h
(command ".pline" "non" lst1);开始描点
4 q+ {- ~/ U* U3 @! G
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红8 u# p; p' b! A, D: @, H' k; N
(COMMAND "");描点结束1 g! e$ A6 x8 N. r8 B
(setq eelist '());清空点集
8 k- f' Y: j k; q2 L
(setq i (1+ i));下一个图元) g( T" m7 D# Y" A& x+ `0 J1 r* z
);外循环结束
( d4 [- R- C+ I$ W9 w
(princ "\n转换结束.")
2 f U1 n' h& W/ @; E
)

复制代码

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

下面是acad的方法，你可以在中望中试试
/ E& [: ?& X6 B, D2 {) r! B$ c, K% _ H: f2 \5 @; C
1.普通方法! c8 f) w& F5 V+ O u- a9 t
样条曲线转换成多段线的方法AutoCAD本身携带的E .... Y2 v+ s8 V; 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
1 R3 C, @) y8 @2 P- T下面是acad的方法，你可以在中望中试试
% F; z; K* N7 [. D% j, i- s% [7 z1 y, T% X
1.普通方法4 Z; f# ~ f. m" w! a) ]0 @

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

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

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