下面是acad的方法，你可以在中望中试试
/ h8 l9 N5 C( @$ j2 {. ?9 g I2 [1 {" T+ z( B
1.普通方法
4 u a7 u4 V$ V3 I2 Q 样条曲线转换成多段线的方法AutoCAD本身携带的ET工具（Express tool）有一个命令可以直接实现此功能：FLATTEN命令可以完成此项，前提是AutoCAD安装的时候已经安装了ET工具。! J0 o9 ~$ Q, r
方法1：直接输入“FLATTEN”
- ~5 w. i: i4 ^1 }* F$ N+ d 方法2：用菜单——Express——Modify——Flatten objects" G) W3 ^3 j0 m" j2 q% l) t
& R+ y: z8 }4 D' Q" D; w* d2.把样条曲线转换成多段线另类方法' G1 P$ L) T3 b) B: E" q
方法1：将要转换的样条曲线复制在一新图中，用“另存为”命令将图纸保存为“AutoCAD R12/L12 DXF (*.dxf)”格式，再“打开”命令选择打开刚才保存的“DXF (*.dxf)”格式文件即可。. i/ T4 K, A6 V2 N1 O
方法2：用WMFOUT命令选择要要转换的样条后，将所选对象保存为“图元文件 (*.wmf)”格式文件，再用WMFIN命令打开刚才保存的“图元文件 (*.wmf)”文件，按提示输入相应参数后炸开图形，就得到了所要转换的多段线了。5 E5 Z" ^' w4 i; _- X' L+ m
! v! V0 J5 l; l4 h/ i) f* `) ]/ P
3.用lsp程序
. o, B0 B! B1 T4 \2 ]将如下代码存为lsp格式，用CAD加载后输入命令ee即可转换。- (princ "+++ 曲线或圆弧到多线段 - Chris. [email protected] 2012-1-3 +++\n")
6 m1 b7 i8 X' j/ _ R7 h - (princ "+++++ 输入命令"ee"进行操作 +++++\n")6 n! e+ G( e& N( {, B& o$ m
- (defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线+ W, K! F @( K! B
- (VL-LOAD-COM)(setvar "cmdecho" 0)
' ?2 m3 g. P8 }6 f. |5 z! W- N; p - (setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))0 `0 K9 m; V2 x+ C
- (princ "\n")
- G D5 g' M1 [* X) t% o - (setq jj (getint "设置间距(1):"))7 r7 f, R. _+ ~# L; a- y! m
- (if (= jj nil) (setq jj 1))' _4 ^# [8 c# R1 t U' E2 K) |
- (setq lenss (sslength ss)
' \. I# N) W+ ^3 n- m - i 0 eelist '()
5 V1 b+ [2 I7 `- q* S: @ - )
& X! S3 s' [ |& P! H( u N) [* ~ - (repeat lenss;外循环开始
8 I2 U w& x$ @9 b9 Y( u - (setq en (ssname ss i);取得图元名
- z& w' C: y5 L - obj (vlax-ename->vla-object en);转换为vla对象 t5 Z' j2 Z# P1 `: \1 a
- )
1 W4 u- j: \# j2 I - (setq ;zc (vlax-curve-getendparam obj)% x9 e6 G: v9 N" G+ K. }
- j 1 );求得图元周长& o/ s; K$ Q% j8 L4 b( H' f0 K/ v
- (setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
: R! Z0 R& V" I& f9 t - ( }8 V: X' @) b! ?& O$ k
- ;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
4 s. X6 x/ U4 \9 C - (setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
* A! t+ V5 O4 W* h$ r9 i' k0 K - (repeat (fix (/ zc jj));循环周长取整次刚好到端点
, C: ~0 ~# F& E" z; j( k) M# h - ;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
% [# a. k0 ~, m% L' C - (setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
& t9 I( Q, k& S; `% w - ; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离- `$ W |# M# S- U) x) J
- )
0 `. ^ ]7 c3 `. ~( L9 H) S - (setq eelist (append eelist (list lst)));加入到点集5 }) A [4 b( b' s5 c6 V
- (setq j (+ jj j));递增jj
9 x, |" U! W" x - );内循环结束* t( _5 Y& {1 `, Z
- ;(setq eelist(reverse eelist))% |! M( V3 m% e, u
- (setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))/ {- ]0 n; e" J: y
- (command ".pline" "non" lst1);开始描点$ ]% b( u7 ]& o% e
- (foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
; Z* f7 H* ]# X, r - (COMMAND "");描点结束% b' N5 b( i7 B# d* S" o, u
- (setq eelist '());清空点集" o: B I$ E, m6 j4 l9 k
- (setq i (1+ i));下一个图元
) S, p% {! J. t! |1 O9 V4 | - );外循环结束4 w* N" t) Y! @; b2 ~
- (princ "\n转换结束.")
7 x' u5 `: C& x# J7 B6 ~ - )
|
发表于 2012-3-30 22:55
楼主