下面是acad的方法，你可以在中望中试试. C2 @& {! }3 w1 m# \9 q4 L) t
P. H" y5 P* r& r6 ~' e# r& Y1.普通方法
6 j& `8 P, k. a 样条曲线转换成多段线的方法AutoCAD本身携带的ET工具（Express tool）有一个命令可以直接实现此功能：FLATTEN命令可以完成此项，前提是AutoCAD安装的时候已经安装了ET工具。6 L, {8 h! G& { v
方法1：直接输入“FLATTEN”0 x: i- v4 d9 r9 y( Y+ H
方法2：用菜单——Express——Modify——Flatten objects7 l, Q% d- E1 k! Q
! ^8 ?7 n3 N) M2.把样条曲线转换成多段线另类方法7 u7 ~; d G2 [" ^9 T
方法1：将要转换的样条曲线复制在一新图中，用“另存为”命令将图纸保存为“AutoCAD R12/L12 DXF (*.dxf)”格式，再“打开”命令选择打开刚才保存的“DXF (*.dxf)”格式文件即可。
) O, z2 z8 g4 M 方法2：用WMFOUT命令选择要要转换的样条后，将所选对象保存为“图元文件 (*.wmf)”格式文件，再用WMFIN命令打开刚才保存的“图元文件 (*.wmf)”文件，按提示输入相应参数后炸开图形，就得到了所要转换的多段线了。
2 T* r! q% M, V$ c+ M2 i7 g. e% B' U$ q
3.用lsp程序
' X' p. n8 y4 a, v/ X! X将如下代码存为lsp格式，用CAD加载后输入命令ee即可转换。- (princ "+++ 曲线或圆弧到多线段 - Chris. [email protected] 2012-1-3 +++\n")) R) S# V0 y) t! X9 ~% x/ o* S( }! V( l
- (princ "+++++ 输入命令"ee"进行操作 +++++\n") B I) ~/ W* x" G( E/ M$ F
- (defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
8 V; g$ G& z# z' ^ - (VL-LOAD-COM)(setvar "cmdecho" 0)
{$ g: x% D' n8 c- ^ - (setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
- I3 m. m3 m, M3 H - (princ "\n")
u. J; A3 B. S, y - (setq jj (getint "设置间距(1):"))1 J' d: g1 N8 u) c" [+ E/ d
- (if (= jj nil) (setq jj 1))+ I" m6 Z8 R {( B8 t+ t! f% I
- (setq lenss (sslength ss)
; [4 N" h6 d, Q+ I3 z6 s% K s - i 0 eelist '()
e. ]' Y! B. p# B) p! U - )
5 p1 i( F3 r+ c9 S' |* O2 C: k4 S - (repeat lenss;外循环开始# Z& h% |% E$ |
- (setq en (ssname ss i);取得图元名& j$ Z4 ?" J S7 {' ^! W1 c
- obj (vlax-ename->vla-object en);转换为vla对象8 h+ u! y( J; Y+ d
- )
3 b/ ~- v3 _1 ^( w - (setq ;zc (vlax-curve-getendparam obj)" b: `+ x- Z+ c5 o9 f
- j 1 );求得图元周长
; n0 U; J4 ^ y) J% s: I - (setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))# d7 l6 |+ o) ?% t8 R
-
6 U! \1 U6 H9 f. u - ;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度" f# ]7 ~% D3 T3 A( B2 @" U
- (setq lst1(vlax-curve-getPointAtDist obj 0));取开始点0 ^( U7 \: v5 B7 Q3 T+ m
- (repeat (fix (/ zc jj));循环周长取整次刚好到端点
: F+ H# P+ y) N6 u - ;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
0 F$ O. i4 R. P3 ~2 ? - (setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
; W4 [$ N/ N3 n0 n- r% Z$ ? - ; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
; s D, N- N7 ]- S6 M( ^7 w5 G - )* }% v; Y; p0 G6 v1 s
- (setq eelist (append eelist (list lst)));加入到点集
6 @* I4 \" ]$ X" W - (setq j (+ jj j));递增jj
: x9 E2 q1 X' F" I V# y. p. J - );内循环结束
9 i! c Q* D1 o, H3 H1 e% x - ;(setq eelist(reverse eelist))
3 A" n" _2 N' I2 E0 w+ Y$ w+ J - (setq eelist (append eelist (list (vlax-curve-getEndPoint obj)))) P0 Y& m4 u' q8 \
- (command ".pline" "non" lst1);开始描点" q% ?8 _5 d% F: [+ o
- (foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
3 P4 l& d g6 T$ y2 `, C- K+ r - (COMMAND "");描点结束0 ]' Z9 L2 `$ y
- (setq eelist '());清空点集
) R- O- m9 w5 F u7 L1 S* ]* I - (setq i (1+ i));下一个图元
, H" b" W9 D7 |% W+ E - );外循环结束" I7 r- ]: p# H
- (princ "\n转换结束.")5 N% l' R* N B. Z5 y, E; i
- )
|
发表于 2012-3-30 22:55
楼主