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

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")( X, _2 Z7 _2 p* h) c
(princ "+++++ 输入命令"ee"进行操作 +++++\n")) L" D2 b3 Z0 P2 Y) ?$ B
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线: ~, d, f- r+ Q
(VL-LOAD-COM)(setvar "cmdecho" 0)
6 _/ d* d6 D) @; ^$ W/ H! f
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))6 x5 e# n7 v5 L7 ~' F* C/ _
(princ "\n")7 w: @# W6 l: |7 B- N
(setq jj (getint "设置间距(1):"))
o2 s: w q% h7 z# ~6 y
(if (= jj nil) (setq jj 1))0 h% ~& g9 X1 o0 z( L8 m6 V
(setq lenss (sslength ss)
7 d$ I1 V8 Y: L m4 x
i 0 eelist '()0 ?! G c$ f. U5 |
)
; q# Z6 H( H) P! E" u# ]
(repeat lenss;外循环开始
! p' q& M) W& c P
(setq en (ssname ss i);取得图元名
1 @ k. L3 g2 T) Z& r+ R
obj (vlax-ename->vla-object en);转换为vla对象 L# y1 z3 ^- n- q) s
)7 _% C& E$ t$ Y n& ]6 X2 s( @
(setq ;zc (vlax-curve-getendparam obj)
/ O7 e+ j( P$ { g* \" U: r
j 1 );求得图元周长
/ [5 U! _* l; W' z5 t6 K& e
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
# c0 i: s7 F: |, j- j
. [8 R3 @# K8 [' m+ s, A2 w
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
/ u! _; K. }3 v) k
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
% ?# t5 f# ?' w+ @- s: |# [
(repeat (fix (/ zc jj));循环周长取整次刚好到端点
1 p: o9 }9 A, G+ F$ ?, f
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))8 p. Z/ D: [) D6 a+ M c5 ~, O+ l9 }
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点% L! Y" ~/ p& L* J6 ?
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
% k: l5 c) `; x7 x& Y
)' n9 g% G. @! x
(setq eelist (append eelist (list lst)));加入到点集% r; l/ t' O2 i% H
(setq j (+ jj j));递增jj
);内循环结束/ U L4 E/ Z- [
;(setq eelist(reverse eelist))/ n I* u3 `4 C# v7 j% R
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
6 O- w; D* l" w) z& R& l* e
(command ".pline" "non" lst1);开始描点2 Y! Q/ h- z5 B9 [! r
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
$ I" t% N& w8 Q8 w% P! x
(COMMAND "");描点结束+ N, G. q5 |# n/ d! z8 i
(setq eelist '());清空点集
" s* d$ `9 O4 s: L8 e
(setq i (1+ i));下一个图元$ T! u4 \# b; b
);外循环结束
0 x$ U9 V% h1 Q* _! G# I E
(princ "\n转换结束."), N r) h5 o6 S6 L
)

复制代码

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

下面是acad的方法，你可以在中望中试试6 x7 ]- c) \9 M1 ?8 w3 x- P
6 G. E9 I0 Y! B' o
1.普通方法; v. G9 j+ v; b* P! j# ]3 v
样条曲线转换成多段线的方法AutoCAD本身携带的E ...5 f( k; D2 T( f7 N2 e1 I
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
& X+ Y( n- _8 l/ p9 q下面是acad的方法，你可以在中望中试试
6 C7 z) E" {/ w( |: P5 t" y5 Z& H; r `% N1 w2 C! i8 s$ O4 H' W
1.普通方法
2 I$ G" E. ^3 O+ Y7 g! L

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

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

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