下面是acad的方法，你可以在中望中试试, l4 u9 Q/ g) W9 D
0 J; P( N5 a3 a5 f' H1.普通方法
# C! o5 f, R( O% S/ \, ~+ y) v 样条曲线转换成多段线的方法AutoCAD本身携带的ET工具（Express tool）有一个命令可以直接实现此功能：FLATTEN命令可以完成此项，前提是AutoCAD安装的时候已经安装了ET工具。9 j3 g$ J5 h* X f# x; R$ c5 @
方法1：直接输入“FLATTEN”
3 L9 s( Z/ K3 }# W. X. t7 a3 F! W 方法2：用菜单——Express——Modify——Flatten objects! M8 Y {4 e5 g8 p. V. Q
$ k- S g: O- A3 b7 f) Q4 y( j
2.把样条曲线转换成多段线另类方法$ a$ K) J1 B2 |% s- q8 Q9 f
方法1：将要转换的样条曲线复制在一新图中，用“另存为”命令将图纸保存为“AutoCAD R12/L12 DXF (*.dxf)”格式，再“打开”命令选择打开刚才保存的“DXF (*.dxf)”格式文件即可。% j2 p4 Q/ a+ W0 b: `2 \6 {
方法2：用WMFOUT命令选择要要转换的样条后，将所选对象保存为“图元文件 (*.wmf)”格式文件，再用WMFIN命令打开刚才保存的“图元文件 (*.wmf)”文件，按提示输入相应参数后炸开图形，就得到了所要转换的多段线了。
' z7 b8 a) T4 O* F' G' K
: y6 |2 k0 p0 S m+ q4 a/ R3.用lsp程序9 _7 r2 {) U# @; \
将如下代码存为lsp格式，用CAD加载后输入命令ee即可转换。- (princ "+++ 曲线或圆弧到多线段 - Chris. [email protected] 2012-1-3 +++\n")* |, r5 X& j6 t" a$ f# L
- (princ "+++++ 输入命令"ee"进行操作 +++++\n")
9 T, ^1 f4 f3 j/ T9 n" G. R - (defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线8 [- K; I) N% G, w) [3 H
- (VL-LOAD-COM)(setvar "cmdecho" 0)
. D8 f& D0 g0 u9 j! b: o - (setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))0 M6 q0 c; F# N1 u1 U! R% V& Y
- (princ "\n")
, k' e3 o8 l9 g+ h - (setq jj (getint "设置间距(1):"))3 F( u% x( l9 r5 x6 {
- (if (= jj nil) (setq jj 1))4 q! n" |, |- z+ M
- (setq lenss (sslength ss)4 v$ R. G" x \" A& h1 j
- i 0 eelist '()
4 H# L- F$ i# H& Y* b0 V) g( m7 C - ), m# f7 }; ?7 S) I4 ^1 C& B0 ^- l5 j
- (repeat lenss;外循环开始
* Z& [" P" T3 I4 J$ Z' G - (setq en (ssname ss i);取得图元名" A) n& U; |, j$ H6 b; L
- obj (vlax-ename->vla-object en);转换为vla对象 b A1 E. ?8 S3 h, A, L
- )! l0 P* N! D( x* f; j/ ]/ |6 B* S" @
- (setq ;zc (vlax-curve-getendparam obj)
, Q" \' w* W& _ D v3 p - j 1 );求得图元周长 H6 P' c) [' w3 l4 H* P' M ?1 h
- (setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj))) }% r' h- D; x" X0 n
-
* G) ~. ]3 [" z! X/ ? T* ? - ;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
6 P( d! I* @4 D- U - (setq lst1(vlax-curve-getPointAtDist obj 0));取开始点: L1 I+ R4 O9 C; n5 M& D% e" `$ k$ ?
- (repeat (fix (/ zc jj));循环周长取整次刚好到端点9 v V& | [5 N" h; I
- ;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))0 d' F, V* T0 Q
- (setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点4 n' V1 j$ n% r# K( T1 k& v4 b
- ; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
5 T( a+ ]- p/ h3 Z7 w - )
4 \% M6 {5 ?" z# C. q% Q& ]) h - (setq eelist (append eelist (list lst)));加入到点集
3 v5 H1 h4 X8 [8 r/ N6 c+ T - (setq j (+ jj j));递增jj
2 V0 ]! P8 A- R2 S, {' T" B - );内循环结束
: s7 y7 d/ `9 p$ Q - ;(setq eelist(reverse eelist))
6 u7 ?# ~$ S2 \6 H# w - (setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
* h+ {2 c; P9 ` - (command ".pline" "non" lst1);开始描点
. {) K' \1 j* I, X7 E D& @! R, Q - (foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红& H4 e, F& Q1 H4 q1 v5 m" A
- (COMMAND "");描点结束
* x: ~0 f; E4 I! a2 \. U1 G - (setq eelist '());清空点集
|0 B( _+ ~) P' C% | - (setq i (1+ i));下一个图元
5 |* W1 q1 i. Y, h% B& k - );外循环结束3 K6 S# s1 x2 y) r. ]- X, b2 c
- (princ "\n转换结束.")# R- |) N2 ? w: L# r
- )
|
发表于 2012-3-30 22:55
楼主