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

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") r5 }8 g. v: h9 }
(princ "+++++ 输入命令"ee"进行操作 +++++\n")
: X6 k, w0 n+ Y, n
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线1 j. K! j) f# M( G) L) D
(VL-LOAD-COM)(setvar "cmdecho" 0)7 v! R4 U& t& V$ o, C0 C
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
+ B) a C+ r1 A5 M5 O; K" U/ C/ e
(princ "\n"). [6 V1 T* P3 o& b# m/ b O: N/ R
(setq jj (getint "设置间距(1):"))
- K7 _2 F! N/ @2 z9 u* [% u4 O
(if (= jj nil) (setq jj 1))" O2 R9 Z! E' `" J! b1 a: V- ]; _
(setq lenss (sslength ss)
' C' f/ G8 y. J2 c
i 0 eelist '()
/ O- t+ a8 o5 W) Y" B3 k
)
' _, C, _, n/ K
(repeat lenss;外循环开始
; g: u( I) ]( _- k3 A; R8 K
(setq en (ssname ss i);取得图元名 R2 d; j: U# J& ~5 ]8 s' p
obj (vlax-ename->vla-object en);转换为vla对象
7 S: t" N: j% g7 } t- S1 r
)
, w6 Z& U0 f/ X9 \ @8 [6 C, b
(setq ;zc (vlax-curve-getendparam obj)7 n* P' U$ P* C) U. \
j 1 );求得图元周长% @7 u; Z3 q! y
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))+ } w- ^/ x) x& B: ?& ]* s
: e- @2 s9 x$ A7 V) b/ p
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度/ r0 ^2 g& f" C" V% `
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
! }) a% k, x6 e0 n, {
(repeat (fix (/ zc jj));循环周长取整次刚好到端点
8 Q% p) \0 e j. Z& l; X; D K: b
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))! z8 s+ F+ l/ W/ t3 V
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点. j$ R- J" b5 Z
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
* d7 ^8 u+ X/ G; e6 o4 r
)
; O C& m+ }" k9 I. @0 E
(setq eelist (append eelist (list lst)));加入到点集7 W7 }$ D! R1 f, u. N1 d8 {7 K& f1 ~! q
(setq j (+ jj j));递增jj
R* w8 P R3 ^5 \7 `: a
);内循环结束- M! G0 `" ^6 \8 J
;(setq eelist(reverse eelist))0 A% i, F- V0 F5 C9 O% _
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
8 i% [. Q, [( C! k, e% ?# n
(command ".pline" "non" lst1);开始描点
& O% G4 {1 U2 ~5 m% Y1 G
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红 C3 z B: \% I( J0 o& N
(COMMAND "");描点结束
0 S2 g3 T$ @" O
(setq eelist '());清空点集
0 _7 o+ |. g& h' L3 y) h& P0 T, A/ B
(setq i (1+ i));下一个图元& b7 C" P: N% d% p3 {; V d1 F* J: d
);外循环结束
+ H! \) U: M0 T& s! V& O* c" q
(princ "\n转换结束.")* {/ L: H0 S9 F, m% m. P
)

复制代码

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

下面是acad的方法，你可以在中望中试试
5 p. m/ H5 c4 b2 \: V! K/ v$ e+ Q. @4 r% h
1.普通方法2 r/ ~4 j, W7 `2 A
样条曲线转换成多段线的方法AutoCAD本身携带的E ...
+ }, Y. d [; I/ A6 K) k8 kwww_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 i; j" f( m: E$ U0 p下面是acad的方法，你可以在中望中试试
# s+ f9 l4 }7 S6 E) a6 P/ D; s/ j% M0 H
1.普通方法8 _0 m/ w' {! h% A- R8 V1 `5 I

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

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

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