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

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")
# C( ]! e/ E) Q" Z9 G1 X2 Y
(princ "+++++ 输入命令"ee"进行操作 +++++\n")' `8 S/ K" X6 k* N
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线* k9 [! M# N! D' E( D- o
(VL-LOAD-COM)(setvar "cmdecho" 0)) L, N! W6 ^9 p& b: E$ C0 x
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
* Y# v% G2 g9 k5 t) ?1 E* ~
(princ "\n"). {' F& o3 z* ?4 a! I
(setq jj (getint "设置间距(1):"))' O2 h; Z& w" S1 d! Q/ x
(if (= jj nil) (setq jj 1))
: ?9 [/ W/ J* l
(setq lenss (sslength ss)
' r. @! ~9 [$ W" Y
i 0 eelist '()4 a. f# {& F+ \
)4 ~3 w% Z; y: n6 D
(repeat lenss;外循环开始! [5 {4 ?9 J4 }% ?. t
(setq en (ssname ss i);取得图元名5 x+ |# z$ L& ~/ |% c- q" [/ P& v9 c
obj (vlax-ename->vla-object en);转换为vla对象
2 P: O+ h3 R% ^% |7 ~2 k% e
)
# a+ _6 @! B4 ~7 q0 y* }% h# m, D
(setq ;zc (vlax-curve-getendparam obj)- k! n: L* |: Y0 }
j 1 );求得图元周长
8 W$ w) c3 o P4 d$ m1 M
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
8 L% e, L) s* W4 s
k% V/ e* C9 ]3 ]6 K
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度. H- m8 K4 u% v$ _2 d
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
0 Q g: F1 H8 N; X8 _) V( R
(repeat (fix (/ zc jj));循环周长取整次刚好到端点; X8 Z& \- L" X# f) \5 M/ T D4 a
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
& M t* N) Y% A# t% G
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点5 `/ h" V" K6 U' j3 S8 o( I# N5 C2 Y" c
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离" N1 L) s5 t- Z2 |' {, W
)
# R* d! |. ]8 K
(setq eelist (append eelist (list lst)));加入到点集
0 ~" f- n0 I* i |- N+ B: K9 m
(setq j (+ jj j));递增jj- R( B/ b; H7 H! }# _5 G5 X3 @* M8 a
);内循环结束# f! o( `1 n3 ?% K5 }$ K' ]
;(setq eelist(reverse eelist))
8 I, H+ R$ N" O" j0 O' C* C; A" X
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))& [# c. r E6 l. T
(command ".pline" "non" lst1);开始描点
0 Y/ b# C! m0 h+ g
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红& M* I+ Y9 m7 t0 V5 x) i8 I" T
(COMMAND "");描点结束
[" V3 A- f( d( y
(setq eelist '());清空点集: o* ?- z& A+ @
(setq i (1+ i));下一个图元
: {/ x& `' o& e
);外循环结束0 h2 C6 {0 D3 U: i/ W$ F
(princ "\n转换结束.")! P3 K5 Y) ~. [% J& u7 U
)

复制代码

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

下面是acad的方法，你可以在中望中试试) F, S* u4 W; W0 f9 b2 m! h
, h2 @+ C4 m3 T, M0 p# C
1.普通方法
7 S4 c' b# M" q9 l) _ 样条曲线转换成多段线的方法AutoCAD本身携带的E ...9 h5 C3 g' |9 d: v A3 {
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
7 B! K6 D7 _3 L! K8 Y/ i下面是acad的方法，你可以在中望中试试
, @! I6 @/ C# F2 J# B) B- e& z9 q% H, O9 a; S& C
1.普通方法
8 E6 |9 M% \ M

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

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

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