下面是acad的方法，你可以在中望中试试
( `# T& E; g4 k) n/ X6 C' U. |9 v/ l; r* {9 |; E
1.普通方法! m0 B# T! A) D+ B8 ~( K
样条曲线转换成多段线的方法AutoCAD本身携带的ET工具（Express tool）有一个命令可以直接实现此功能：FLATTEN命令可以完成此项，前提是AutoCAD安装的时候已经安装了ET工具。
9 V( [1 s6 T0 X3 _6 a% z( H! e 方法1：直接输入“FLATTEN”
. C, d/ |- ~: E5 Y 方法2：用菜单——Express——Modify——Flatten objects7 o$ p5 Y# b. t0 Q% p
; [, |' ?# f" a5 g5 p" d! j2.把样条曲线转换成多段线另类方法) O) z3 }6 [: Y$ V2 c7 }
方法1：将要转换的样条曲线复制在一新图中，用“另存为”命令将图纸保存为“AutoCAD R12/L12 DXF (*.dxf)”格式，再“打开”命令选择打开刚才保存的“DXF (*.dxf)”格式文件即可。
- N8 x# Z9 F( S, K, | 方法2：用WMFOUT命令选择要要转换的样条后，将所选对象保存为“图元文件 (*.wmf)”格式文件，再用WMFIN命令打开刚才保存的“图元文件 (*.wmf)”文件，按提示输入相应参数后炸开图形，就得到了所要转换的多段线了。
5 J0 x; h W* B K9 u7 m
, r X' _" a( r2 x! G7 ?3.用lsp程序
: {" C: j# L. z% `将如下代码存为lsp格式，用CAD加载后输入命令ee即可转换。- (princ "+++ 曲线或圆弧到多线段 - Chris. [email protected] 2012-1-3 +++\n")
' |# Z+ U; a! i7 i; ]; g+ J - (princ "+++++ 输入命令"ee"进行操作 +++++\n")7 n# E/ `% ^; H2 o) v3 o/ `
- (defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线$ a8 ~0 ~ R# V& M, d( X$ j
- (VL-LOAD-COM)(setvar "cmdecho" 0)9 O, c- j' N1 I
- (setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
9 t( o O: S5 @2 v, h$ P- l - (princ "\n")5 U- P6 p. Y2 m5 H( s$ c
- (setq jj (getint "设置间距(1):"))7 D1 }1 l9 g; W* M8 l' ?7 |+ y
- (if (= jj nil) (setq jj 1))
9 p8 o1 ?2 M$ ~% p' s, P+ T& q - (setq lenss (sslength ss)8 x, e2 p* \! y+ _& A6 x8 P+ k# W
- i 0 eelist '()5 t2 ?" S7 ~3 o% G) a
- )
" x! X6 e. O8 P - (repeat lenss;外循环开始
+ ^: d A# o$ ~3 E - (setq en (ssname ss i);取得图元名2 c) C& c$ Z, a Z: A! s' `
- obj (vlax-ename->vla-object en);转换为vla对象
) @2 G7 R& L8 F8 C( W, K( ]( c - )- t# T8 _2 d+ C3 v4 m
- (setq ;zc (vlax-curve-getendparam obj)
" H4 o, D5 r5 \4 B3 V8 m - j 1 );求得图元周长
8 v+ q& W; o6 H u; R3 b - (setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))' B& b0 c$ m: F' t- w/ i
-
7 l5 `& E# J% S# q- ^" r6 p - ;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
' b% d5 j# O9 l, e3 W - (setq lst1(vlax-curve-getPointAtDist obj 0));取开始点' k4 a0 K: U! z( m a! m
- (repeat (fix (/ zc jj));循环周长取整次刚好到端点
7 m3 w" \2 y- A' L - ;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))3 J. P2 P; O, }5 Z
- (setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点3 g" v) E9 j! N, y8 S! l
- ; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离3 R7 M$ t' h0 ^, q* y6 J; O! Y
- )
) K& g, o" B/ s) B: L; Q' J" p - (setq eelist (append eelist (list lst)));加入到点集, H/ `3 i" m1 i/ @- ~2 }
- (setq j (+ jj j));递增jj
' u. W* p6 i; H$ c+ |8 b1 f - );内循环结束
/ r8 s: M5 z1 N- L: O/ M( M - ;(setq eelist(reverse eelist))
0 [; O' c+ e+ L% p) T2 H - (setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
9 m4 a, D+ K, U F3 u, J - (command ".pline" "non" lst1);开始描点* B9 ^# m/ W0 l
- (foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
9 S. X+ U& M, S: ^, D; a- ^$ L - (COMMAND "");描点结束
% p% D, D7 ^, }$ \ - (setq eelist '());清空点集
/ Q# G1 t' z6 o9 I0 }. A: t - (setq i (1+ i));下一个图元
: R* b; a3 e. e5 U; y) u - );外循环结束
: D4 f4 J- C. I/ H/ Y7 [ - (princ "\n转换结束.")
+ g: i; `& O5 s. t - )
|
发表于 2012-3-30 22:55
楼主