下面是acad的方法，你可以在中望中试试6 y& H3 j5 H) J9 _+ x) ~ E
4 _! r0 p) N3 a0 P! s" r( w1.普通方法( t* b: Z6 S( g; Q1 \6 I6 O
样条曲线转换成多段线的方法AutoCAD本身携带的ET工具（Express tool）有一个命令可以直接实现此功能：FLATTEN命令可以完成此项，前提是AutoCAD安装的时候已经安装了ET工具。
) P" |/ _( Y# ~3 h 方法1：直接输入“FLATTEN”
8 b' U$ v6 U: V p# k+ V! ` i: c* `' V 方法2：用菜单——Express——Modify——Flatten objects
! [; g/ m% v- ^. X% k7 I! w
6 N, K: }# @) Q7 d2.把样条曲线转换成多段线另类方法' H |9 n- Q4 ^
方法1：将要转换的样条曲线复制在一新图中，用“另存为”命令将图纸保存为“AutoCAD R12/L12 DXF (*.dxf)”格式，再“打开”命令选择打开刚才保存的“DXF (*.dxf)”格式文件即可。
5 n f# R& ?* j( ^7 s; k 方法2：用WMFOUT命令选择要要转换的样条后，将所选对象保存为“图元文件 (*.wmf)”格式文件，再用WMFIN命令打开刚才保存的“图元文件 (*.wmf)”文件，按提示输入相应参数后炸开图形，就得到了所要转换的多段线了。
2 b& Q r- F; y n) Y7 |3 |
- Q" r# W2 ~; R& I3.用lsp程序5 D8 }! @8 x' H
将如下代码存为lsp格式，用CAD加载后输入命令ee即可转换。- (princ "+++ 曲线或圆弧到多线段 - Chris. [email protected] 2012-1-3 +++\n")
5 p/ \6 Y# G3 \/ P - (princ "+++++ 输入命令"ee"进行操作 +++++\n")- V r0 I7 k1 n/ h' F" Q7 M
- (defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线3 [$ c5 q- s2 t. G2 |
- (VL-LOAD-COM)(setvar "cmdecho" 0)
$ G0 U' K+ q0 g - (setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
0 E: y% m y( W6 v/ E - (princ "\n") I: G! s- S+ n2 c# [
- (setq jj (getint "设置间距(1):"))0 C3 w* p$ F8 p- `
- (if (= jj nil) (setq jj 1))
% a9 R! ?( ?+ f, l; g - (setq lenss (sslength ss)
% w9 H9 N, t" v8 V - i 0 eelist '()) i, i+ z8 a6 l; ]- g( R) \ X
- )5 O5 Q% a' W* }% S& W
- (repeat lenss;外循环开始) x# z/ P0 _0 H: ^4 Z
- (setq en (ssname ss i);取得图元名
, S1 n, g* L7 x E; w/ ]" P. w7 A - obj (vlax-ename->vla-object en);转换为vla对象; b9 P' W2 R2 ~& i
- )
: t! c' Z+ t2 o& o& [ - (setq ;zc (vlax-curve-getendparam obj) {& ]9 `, A- o0 ]
- j 1 );求得图元周长7 y/ Z3 U6 {, J. q& ^2 R, \# S
- (setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))( ]8 p4 p! d/ H$ Z, e$ i1 ~2 r/ r
- 8 f/ x0 C! O8 Q7 @5 C+ q# T! y& F
- ;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
% i o+ z4 X# {7 X# a; u8 ?, b - (setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
* Z7 _5 P( @/ }; T7 z0 T - (repeat (fix (/ zc jj));循环周长取整次刚好到端点7 W3 V3 Y; `) P* L: H! F
- ;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
& I& ]2 T# y0 o+ s - (setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
2 Y& _0 t) y) a9 v$ N5 s - ; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离" ?" J8 I4 N8 ^8 L" G* F! R- O- [6 X
- ), h0 B6 X. L0 X2 d3 }+ ~
- (setq eelist (append eelist (list lst)));加入到点集7 @3 b' ]/ j. z, ?
- (setq j (+ jj j));递增jj
$ S5 [4 s# o- E3 C, v - );内循环结束
6 J3 W. Z9 L5 y& a7 b; x* T/ z - ;(setq eelist(reverse eelist))$ ?: X v5 t6 R9 N% }6 A- Z
- (setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
( c7 ?6 n6 I$ F: E$ K1 C5 A - (command ".pline" "non" lst1);开始描点! G, ~9 a6 \0 T0 k
- (foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
, r- O0 a1 |1 G* L - (COMMAND "");描点结束- \$ m* `! l, j, f" Q
- (setq eelist '());清空点集
4 i' K. }! p { b7 O - (setq i (1+ i));下一个图元
$ N* ?# t: t! t - );外循环结束
, _0 U0 G3 P" t6 w T5 R' D4 @( d - (princ "\n转换结束.")
$ }: S% w+ x6 O1 H/ ^4 o# [8 ` - )
|
发表于 2012-3-30 22:55
楼主