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

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")4 s% t" w$ T* L0 N) @/ `& x8 v
(princ "+++++ 输入命令"ee"进行操作 +++++\n")" |3 C& X( F; O" F9 C
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
5 G1 [( I) e8 S7 d7 L& o. N
(VL-LOAD-COM)(setvar "cmdecho" 0)
0 E, s4 Z4 F1 ^& |& T0 {2 d
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
& f5 ?8 j+ n& x' t8 F5 [) e6 k( j
(princ "\n")
, h9 u1 X8 v" r! y3 s
(setq jj (getint "设置间距(1):"))
9 U5 z: U) f4 H) G6 D4 x6 E
(if (= jj nil) (setq jj 1))$ `) `; p# I; A5 w2 z0 Y+ Z
(setq lenss (sslength ss)5 U2 c2 ` y M9 V# T* Z8 s
i 0 eelist '()
# x- D- x9 j# t* X1 J* F
)$ O+ u5 H6 T% C/ b3 W8 d" ?+ o
(repeat lenss;外循环开始
3 ` o) o; L+ N: }5 S
(setq en (ssname ss i);取得图元名5 I+ E% N2 _0 y6 r; X+ Z
obj (vlax-ename->vla-object en);转换为vla对象2 N+ X4 N+ A. ^) ~0 r2 X
)' w2 e0 z; Q0 ?$ E* g
(setq ;zc (vlax-curve-getendparam obj)) a7 C L! V7 j0 K( |( q8 k# r5 l( I
j 1 );求得图元周长0 h1 ? l3 Z' h8 w2 n
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))! ?& v; X' |: G$ V7 K/ p9 k, g
& X6 X8 W6 Z4 m5 |- f* _$ ?
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度# R! ~5 `; i6 f: d. y: m; n
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点, ^1 ?, B. Q2 o! m9 b9 }& t
(repeat (fix (/ zc jj));循环周长取整次刚好到端点' [0 k- ~5 _% j- j6 y
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
) Q" K! e+ Z3 S
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
' E' @# Z/ [4 m4 f% E
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
2 c4 t3 P9 V0 {: p! W5 X! M
)) E2 G+ W3 s) V: m( T D j/ V
(setq eelist (append eelist (list lst)));加入到点集- ~* M D. i* c% Z5 p. { Q& ^$ ?
(setq j (+ jj j));递增jj$ O% W& M" [" i w/ d
);内循环结束
4 h% |" h7 H! @" R+ n: q
;(setq eelist(reverse eelist))
& {. Y. c! ~/ l4 e; j O
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))' f8 k! s3 N0 j8 t! Z2 e/ q
(command ".pline" "non" lst1);开始描点
7 W/ i" }# _0 e" ]0 Y" m/ p6 @
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红' t7 U/ o2 v Q' M
(COMMAND "");描点结束9 c9 r3 A* c8 s5 Q" v/ F4 L
(setq eelist '());清空点集* [8 D/ s7 ?0 I8 m. c
(setq i (1+ i));下一个图元: ?! b4 ~6 R" j \+ R/ j x
);外循环结束/ f! W; \8 z& e
(princ "\n转换结束.")) D, {7 c- U% D" Z
)

复制代码

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

下面是acad的方法，你可以在中望中试试
) Z. o2 B" G& [* `6 ^6 X; n5 K/ Y/ @8 ^% u0 R6 g2 @+ J) l
1.普通方法
$ X- ?4 k D6 d$ G8 r4 v2 H& _* ~& A 样条曲线转换成多段线的方法AutoCAD本身携带的E ...
, f2 {5 Q/ a3 f7 M" vwww_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
2 R, U& F# z0 ]# E% ]下面是acad的方法，你可以在中望中试试
3 N4 T8 T N6 a
& i) K. T$ B( s1 x0 j: O1.普通方法
}4 U2 q6 B9 T! b0 m

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

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

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