下面是acad的方法，你可以在中望中试试
- B. c3 e0 [' Q I! T& S: L* f6 z: Y) E
1.普通方法+ b* F/ \! u* v$ g6 ?4 O. ]
样条曲线转换成多段线的方法AutoCAD本身携带的ET工具（Express tool）有一个命令可以直接实现此功能：FLATTEN命令可以完成此项，前提是AutoCAD安装的时候已经安装了ET工具。5 W$ v. y5 ^' [5 M1 K
方法1：直接输入“FLATTEN”2 r. C" O6 S- d
方法2：用菜单——Express——Modify——Flatten objects w& I1 ^ r$ L
7 l7 W4 D7 y! O8 y9 L9 e5 W
2.把样条曲线转换成多段线另类方法
8 t: k) m0 ~& o2 j- | 方法1：将要转换的样条曲线复制在一新图中，用“另存为”命令将图纸保存为“AutoCAD R12/L12 DXF (*.dxf)”格式，再“打开”命令选择打开刚才保存的“DXF (*.dxf)”格式文件即可。6 a9 n% |6 H" e
方法2：用WMFOUT命令选择要要转换的样条后，将所选对象保存为“图元文件 (*.wmf)”格式文件，再用WMFIN命令打开刚才保存的“图元文件 (*.wmf)”文件，按提示输入相应参数后炸开图形，就得到了所要转换的多段线了。
6 T0 B- _9 J9 y, `! l( p" P) T7 P& N/ ~' s( K& M8 E
3.用lsp程序5 A' K2 o* t' r/ p4 `" Z& d
将如下代码存为lsp格式，用CAD加载后输入命令ee即可转换。- (princ "+++ 曲线或圆弧到多线段 - Chris. [email protected] 2012-1-3 +++\n")
) a2 X' \# L( L# F2 ~% I - (princ "+++++ 输入命令"ee"进行操作 +++++\n")
' M7 j, e. q5 D4 O/ ? - (defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
& I7 g# S$ T3 N, }; j- v2 V; ` - (VL-LOAD-COM)(setvar "cmdecho" 0)
7 j+ C8 N7 t4 k5 o! u, K: [$ R - (setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))6 B4 |* p; F x
- (princ "\n")
; n7 @7 n( s9 ~( } - (setq jj (getint "设置间距(1):"))6 B: i. X" j7 ^3 v! X7 S9 n* @' z
- (if (= jj nil) (setq jj 1))
7 X" F5 v4 y) } - (setq lenss (sslength ss)
! J5 ]4 v% {; u9 Y - i 0 eelist '()
3 u7 s" Z0 h9 D) ~) T: M; K - ). ?$ C8 J' Z/ `
- (repeat lenss;外循环开始# c, c8 S5 O5 r
- (setq en (ssname ss i);取得图元名* [" l! g m+ y, J/ v7 x3 L- w. W
- obj (vlax-ename->vla-object en);转换为vla对象" n, [0 p9 S. T: H# g
- )" Y8 }1 r: s b3 V: n" [
- (setq ;zc (vlax-curve-getendparam obj)
5 d& V- p R- n/ T8 n) ? - j 1 );求得图元周长
% g' V0 ]( k; J8 h* i - (setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))! N q" e0 t( w; t; f
- 2 {# d) h) m, }/ B8 k, e
- ;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
6 T& Y8 l. J( Y) [( ^: a - (setq lst1(vlax-curve-getPointAtDist obj 0));取开始点+ k1 }0 z( F$ h, l/ |; w
- (repeat (fix (/ zc jj));循环周长取整次刚好到端点
" Z9 J% z" r1 @& \1 Z+ Z4 B& d& [ - ;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
+ o7 f9 \; O$ A - (setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
- s0 f6 V% E. v5 y5 ] - ; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
0 {, f+ o/ f7 y8 z' B6 Z - )
& G2 b9 O0 }/ i - (setq eelist (append eelist (list lst)));加入到点集/ C% l. S6 e( W+ i! h2 M( o
- (setq j (+ jj j));递增jj- u9 _; S& Z" k, M) {
- );内循环结束
( z; q( h- {# j" z9 o( E+ T - ;(setq eelist(reverse eelist))
" W$ P2 ]; D2 X9 J# \, L9 w5 B, ? - (setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
) W# h* o% Q& j. @' x2 O* Q. V - (command ".pline" "non" lst1);开始描点' H$ t, L0 G: p. P2 o. E
- (foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
+ F) g E, p1 H: Q, V1 y3 B( p - (COMMAND "");描点结束! n" k, Z6 a8 X: m0 U+ I
- (setq eelist '());清空点集
% R! w5 @ Q1 Y; q x' | - (setq i (1+ i));下一个图元7 B- t; }- ~: r; k
- );外循环结束
) e1 @* o1 e4 Y- d - (princ "\n转换结束.")
& r' f( Y) {9 X: u5 x" p2 _ - )
|
发表于 2012-3-30 22:55
楼主