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

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")5 _, b+ G8 F7 e% D! K9 X% a7 Z
(princ "+++++ 输入命令"ee"进行操作 +++++\n")/ d @* C. l: T: |
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线! u2 [4 |% ~, b( r, G
(VL-LOAD-COM)(setvar "cmdecho" 0)
3 [7 E2 z! @( w0 ]0 I* i/ n
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))8 t8 R) e& I- a8 S S
(princ "\n")
3 }, @1 H7 t* X, K& w' Q0 n$ j
(setq jj (getint "设置间距(1):"))
7 j" x/ P9 D' J& `
(if (= jj nil) (setq jj 1))
# O, w+ C7 o* O2 w
(setq lenss (sslength ss)2 w ^) c+ F' j, F
i 0 eelist '()
: X3 C) P! p3 |" g K
)" M) `# W7 N# x5 q
(repeat lenss;外循环开始
7 }! c2 [( { Z4 U0 r5 m; a7 q z
(setq en (ssname ss i);取得图元名9 ^( o) m! ?4 I+ V% o$ F
obj (vlax-ename->vla-object en);转换为vla对象
2 [5 v" I3 ]4 o- w# ~7 T1 e
)
% D+ ^- c7 h) F% j; D$ {, p: l$ C
(setq ;zc (vlax-curve-getendparam obj)* }, [% ?4 Q/ C' A& o
j 1 );求得图元周长1 ?, r8 J1 ^" A
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
+ z0 X# @! E2 _- T; ~
T' F& |9 k$ M" V/ v4 F7 {
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
5 \8 Q5 W) k' r* D* g" a" X
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点0 I& n5 b m$ c' y! \! b- C
(repeat (fix (/ zc jj));循环周长取整次刚好到端点
i P$ }: A# R7 X
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))" ~4 k0 z% Q" m. w2 ?& s: P
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点* X& k6 W/ W- }$ ]) ~4 u3 t/ e& p
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
8 h C6 {! ~5 H: V% E& O6 ~
)
6 H0 S W) Q' a; c, Q b- D. Z) n
(setq eelist (append eelist (list lst)));加入到点集
. X+ l" n" f$ T' K6 ]
(setq j (+ jj j));递增jj1 S8 a' k# H- Z) v* x
);内循环结束
0 M" z1 R+ W6 f, a4 s" q% T
;(setq eelist(reverse eelist))
/ ?$ @( } y5 X) Q5 s" [
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
0 f: h w, C4 d) n& Y
(command ".pline" "non" lst1);开始描点! n; V# h/ s0 j {' O \5 V
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
& U5 U" l9 w- v1 _7 E5 R5 y
(COMMAND "");描点结束) \6 |' r4 U, r# B+ v/ F
(setq eelist '());清空点集9 x5 d+ _- K9 r
(setq i (1+ i));下一个图元
1 s# B. ?* h* Y+ ]$ f$ Q4 v7 x
);外循环结束2 c4 f, o; T/ T% g A L0 @3 r
(princ "\n转换结束.")
1 S) ?+ W: j2 L! P6 U+ T
)

复制代码

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

下面是acad的方法，你可以在中望中试试
: h6 @- L% Y9 R$ P& i+ l; ^% S+ i
+ Q; z+ o8 m. A3 e& G1.普通方法
' A. e+ _. y, g9 p; h7 C! u 样条曲线转换成多段线的方法AutoCAD本身携带的E ...
* C+ a4 D) R/ Qwww_qf 发表于 2012-4-18 11:27

竟然有这么多的方法。

qqqqqq · 发表于 2012-4-24 12:02

不错，学习了。

929171718 · 发表于 2022-7-17 10:54

www_qf 发表于 2012-4-18 11:272 h- f: C! C4 B2 i6 k% i
下面是acad的方法，你可以在中望中试试
* a$ v0 D, w( S; {9 J! p( G5 `" z4 l
8 \" [$ \6 K* T' Q4 D$ j/ }1.普通方法
: b- h/ i( G7 S6 H' z

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

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

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

浏览过的版块