下面是acad的方法，你可以在中望中试试6 i" G5 e( U. n, ~$ A8 h0 W& c) ~ m
* z r+ r" j: _! ^% v% Z, K, s1.普通方法
. ~: j8 U, ^- j4 {; g. F' Y 样条曲线转换成多段线的方法AutoCAD本身携带的ET工具（Express tool）有一个命令可以直接实现此功能：FLATTEN命令可以完成此项，前提是AutoCAD安装的时候已经安装了ET工具。$ e6 T+ ~! h! I. N) `
方法1：直接输入“FLATTEN”; u7 s& ^3 q7 z9 `, C6 [! i# ^$ z
方法2：用菜单——Express——Modify——Flatten objects- O' W" Q& `9 g
' Z$ v7 ^3 D# q6 f4 r9 E) V& X, y
2.把样条曲线转换成多段线另类方法
* B: W8 ~. r0 y( S1 B: Q O( H2 L 方法1：将要转换的样条曲线复制在一新图中，用“另存为”命令将图纸保存为“AutoCAD R12/L12 DXF (*.dxf)”格式，再“打开”命令选择打开刚才保存的“DXF (*.dxf)”格式文件即可。
# y7 A& j( N2 w: Q/ i. a/ k; i" u+ r9 D 方法2：用WMFOUT命令选择要要转换的样条后，将所选对象保存为“图元文件 (*.wmf)”格式文件，再用WMFIN命令打开刚才保存的“图元文件 (*.wmf)”文件，按提示输入相应参数后炸开图形，就得到了所要转换的多段线了。( W! _0 } L6 K; A. d
, a6 y, ^/ F4 x6 z9 t
3.用lsp程序9 w2 M ^+ x6 U0 }/ J. W
将如下代码存为lsp格式，用CAD加载后输入命令ee即可转换。- (princ "+++ 曲线或圆弧到多线段 - Chris. [email protected] 2012-1-3 +++\n")
* t* M+ k% g, r# r8 k* k2 h - (princ "+++++ 输入命令"ee"进行操作 +++++\n")
+ S! w. X6 o. K2 y7 d - (defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线1 d. K0 Q* V; ]
- (VL-LOAD-COM)(setvar "cmdecho" 0)
% C- A. y& w6 [: z9 C/ d - (setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
& L0 ^2 R; k7 X; j: ` - (princ "\n")" v' p& \# L' G/ b ]# t
- (setq jj (getint "设置间距(1):"))
' I' v B* M! @( r" b' g - (if (= jj nil) (setq jj 1))' B5 H$ J& U( x
- (setq lenss (sslength ss)7 E3 a. C$ n$ X, h" L9 k) I
- i 0 eelist '()7 A) H) k* v- y+ e
- )
: g* Y1 ~0 V; V% K; O - (repeat lenss;外循环开始# Z% f: f! z% ?! t
- (setq en (ssname ss i);取得图元名
* X& M9 X( D* T4 h# e! t; j - obj (vlax-ename->vla-object en);转换为vla对象8 C- k- ~% y5 V' u
- )6 _1 p* L/ E1 o8 i1 L
- (setq ;zc (vlax-curve-getendparam obj). i8 O2 l& A. g+ x" ], ]
- j 1 );求得图元周长* j7 V9 r8 {% J) z
- (setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))6 |) y& {/ Q, ?- u( m( g, J, [
-
. y# h: a$ Y8 P( F' P& A ~ - ;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
. {2 u& l0 f( U( t - (setq lst1(vlax-curve-getPointAtDist obj 0));取开始点# a2 T# F8 S& b* G( b) u! ?
- (repeat (fix (/ zc jj));循环周长取整次刚好到端点0 M' Q% O! W" P4 m! [
- ;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))5 z; g8 z2 E' i
- (setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点5 N8 S2 Q! W, i
- ; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
6 ]& Q% m0 h: v* p) E5 _1 | - )7 Y3 R' V; L& ?1 A7 o
- (setq eelist (append eelist (list lst)));加入到点集
- v- _; {- P' X9 s( B - (setq j (+ jj j));递增jj+ Y W7 F* B3 p: w
- );内循环结束
2 j: E- z9 z# z" P: s' n - ;(setq eelist(reverse eelist))
( d4 ~; {) m- h1 w - (setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))5 ]7 n/ f# f6 m# D
- (command ".pline" "non" lst1);开始描点/ ]& W( G& }8 b6 B! E: E' u
- (foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红: K3 o+ F; z. P- n& ]' w4 Z$ n
- (COMMAND "");描点结束7 {: Y7 x, F0 h! R" Z
- (setq eelist '());清空点集
6 \" i$ q+ D8 m8 c& U. j- k# g! ` - (setq i (1+ i));下一个图元
/ M4 N: X$ v7 F# Z - );外循环结束
$ z3 {7 a/ G! H3 C% _9 E+ ~ - (princ "\n转换结束.")
9 [& W+ h: k6 D, x* V+ l - )
|
发表于 2012-3-30 22:55
楼主