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

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")
3 }2 v- j( R: M; j9 L9 R
(princ "+++++ 输入命令"ee"进行操作 +++++\n")
% t! I3 q, m4 `5 d
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
: y4 r. Y+ g+ R. ^7 L, I
(VL-LOAD-COM)(setvar "cmdecho" 0)
8 a) K# p C. R
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
4 ~/ Y7 Q" e# E3 Q1 c n3 F {" k
(princ "\n")
. T5 [; d- z2 v( {) G, x$ I
(setq jj (getint "设置间距(1):"))
, q2 F7 j" W& f" X
(if (= jj nil) (setq jj 1))8 r! Z* f1 {& T7 y4 }& H1 O) Y8 g
(setq lenss (sslength ss)
' r9 @6 f3 M) ?& O+ w4 V+ h5 F
i 0 eelist '()
* a+ {" `- B* C0 u9 E5 M) J/ u6 A
) p4 \8 [" W5 B/ n; \: B
(repeat lenss;外循环开始) r! @4 [ }9 R5 {3 ]1 O
(setq en (ssname ss i);取得图元名7 R9 Y5 O- t8 C
obj (vlax-ename->vla-object en);转换为vla对象" X" ~' e( P( E; W' [' z9 i
)
2 i" l k* W0 M9 ^
(setq ;zc (vlax-curve-getendparam obj)8 O* q: r. M- L4 \- p/ f
j 1 );求得图元周长
2 X+ o: y4 K" x: M ?( n& j
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj))); U2 P- {; G0 V
+ r: {0 |2 T9 ?9 X- ?) a
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
# B Q4 H0 l# [# c" \& e( m1 n
(repeat (fix (/ zc jj));循环周长取整次刚好到端点
* D% B' r# b" n' v
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
' f$ o _: r" ]) C
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
* N! l# ]3 e$ @3 q& g. w
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离$ F. y. F" D' l# B- P! h, ~
)0 k5 E" d4 i) R M0 T2 V
(setq eelist (append eelist (list lst)));加入到点集+ C: R4 ?5 V- I# X
(setq j (+ jj j));递增jj/ @6 ]- I) r1 E' D: D9 G9 u( Z
);内循环结束
7 \; b* t1 `/ H6 F5 [
;(setq eelist(reverse eelist))
+ i, z! \; I2 w0 X+ R
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
. @) F6 ~ q( W. w
(command ".pline" "non" lst1);开始描点
# E. r# O# c; \2 [
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
2 k' P/ ~- S b
(COMMAND "");描点结束
7 h, C: s1 k4 x: Z! v5 n) R6 B
(setq eelist '());清空点集
" T7 \/ a' K7 w: G" k, Y
(setq i (1+ i));下一个图元& n) Q/ B" t- z# S
);外循环结束0 s6 C- q4 {& V8 \' @
(princ "\n转换结束.")
; W4 w7 }4 Q1 l! D% c; H5 `, J
)

复制代码

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

下面是acad的方法，你可以在中望中试试3 c/ N. m% Q/ l( [& R$ |

8 @, r, T& i+ N% E, V7 E1.普通方法
' E9 `# M- U, B0 Q# s E T. p 样条曲线转换成多段线的方法AutoCAD本身携带的E ...3 d- t$ ?/ \- `/ P
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. n8 z2 @1 w/ K/ h% E5 }
下面是acad的方法，你可以在中望中试试5 S; {0 W, `& n' m a) ~! W

; C; D( k$ T8 F- t% R# `8 H1.普通方法
. Z K4 E9 E& _6 a! z5 w

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

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

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