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

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"). m4 ^7 p. C+ h$ O6 U4 v
(princ "+++++ 输入命令"ee"进行操作 +++++\n"); C" i" }( h2 Z [5 n5 L8 ?
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线3 q0 V0 H) u: l6 V3 m
(VL-LOAD-COM)(setvar "cmdecho" 0)) F$ w O+ Q! Y- o4 H' l$ j
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
( |& L1 b' n9 q1 h) e
(princ "\n")
; |8 ]: ?3 ` f- m' c& M9 |. f: N
(setq jj (getint "设置间距(1):"))
3 Y0 I6 G+ @1 }; g' J3 o$ m
(if (= jj nil) (setq jj 1))! F$ R6 z1 M9 ^1 K1 @, Z; m8 o
(setq lenss (sslength ss)
* M+ E& B! A7 B
i 0 eelist '()
`6 P& Y# I/ t8 e# _/ F6 c4 s; s
)' ~8 |, u: L& V2 M- a6 t
(repeat lenss;外循环开始
& x8 F2 q" f$ I# O) ?( O
(setq en (ssname ss i);取得图元名5 U0 R' t+ ?) {3 r8 ?. c
obj (vlax-ename->vla-object en);转换为vla对象3 U6 L, V3 o2 D) a
)1 d$ S. N5 }* j9 ~9 ^
(setq ;zc (vlax-curve-getendparam obj)5 z F2 Z; ?$ D& }
j 1 );求得图元周长
6 R, e2 U* U) D$ ~5 i
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj))): v3 f* {: P: F, N2 h2 _
$ {0 X3 q7 @; c7 q- r$ j
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
" A) `, M) @$ t- t' c1 k# s5 U
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
" y) i9 \7 C/ S0 o3 u, J
(repeat (fix (/ zc jj));循环周长取整次刚好到端点1 N+ ]7 C3 Z6 F5 P. {+ m& J
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
- D% T( c( z9 c+ a/ J) [( K
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点: p, k! V# r& N% I8 p
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
/ t* ^% g# }$ A ?, M0 d
)
, X" D: Y& B$ Q a( E
(setq eelist (append eelist (list lst)));加入到点集
* o% y* g W7 s. x
(setq j (+ jj j));递增jj/ W, B9 `$ O- ?; a
);内循环结束
, Q# w' m5 ^2 L+ D! V. @! Q$ a1 L
;(setq eelist(reverse eelist))+ N3 ^3 i' M( x0 X8 `* L
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))& k( v: y% s/ l, P- ~
(command ".pline" "non" lst1);开始描点2 S1 q$ B$ P2 h) w% I: {1 C
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
; ^' c" A) Z% c3 \4 e. M
(COMMAND "");描点结束
$ ]" e% Q% p# t+ ]' K4 d% e8 |
(setq eelist '());清空点集
; M; q5 {* F3 \& s
(setq i (1+ i));下一个图元" X1 Q/ a( r4 Y) r- K) q: R5 V/ b/ Z
);外循环结束
1 V8 \# _% I' c2 k0 a# V* j# j
(princ "\n转换结束.")
! W* X8 K, r" h5 {4 K9 [( n/ L; S2 {
)

复制代码

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

下面是acad的方法，你可以在中望中试试3 b5 Q4 s/ s7 ]( J# f

% ^7 V, B: C. F3 d1.普通方法2 b. Y1 d9 u7 u7 T- y% w" n
样条曲线转换成多段线的方法AutoCAD本身携带的E ...0 [9 a) C4 w" O
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$ j; k! ?2 J' s
下面是acad的方法，你可以在中望中试试/ d7 G/ [ o! i- E& h' K! M

& H( I+ C) X9 o; d4 a1.普通方法
+ D! k: q$ y% f: A T0 q& U4 t

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

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

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