如何将样条曲线变成多段线？

sg001833 · 发表于 2012-3-30 22:55

n条样条曲线怎么能转变为多段线

sg001833 · 发表于 2012-4-10 08:07

哪位高手回复一下啊，教教！

www_qf · 发表于 2012-4-18 11:27

下面是acad的方法，你可以在中望中试试

1.普通方法
样条曲线转换成多段线的方法AutoCAD本身携带的ET工具（Express tool）有一个命令可以直接实现此功能：FLATTEN命令可以完成此项，前提是AutoCAD安装的时候已经安装了ET工具。
方法1：直接输入“FLATTEN”
方法2：用菜单——Express——Modify——Flatten objects

2.把样条曲线转换成多段线另类方法
方法1：将要转换的样条曲线复制在一新图中，用“另存为”命令将图纸保存为“AutoCAD R12/L12 DXF (*.dxf)”格式，再“打开”命令选择打开刚才保存的“DXF (*.dxf)”格式文件即可。
方法2：用WMFOUT命令选择要要转换的样条后，将所选对象保存为“图元文件 (*.wmf)”格式文件，再用WMFIN命令打开刚才保存的“图元文件 (*.wmf)”文件，按提示输入相应参数后炸开图形，就得到了所要转换的多段线了。

3.用lsp程序
将如下代码存为lsp格式，用CAD加载后输入命令ee即可转换。

(princ "+++ 曲线或圆弧到多线段 - Chris. [email protected] 2012-1-3 +++\n")
9 b# g( X% A# }3 o: y
(princ "+++++ 输入命令"ee"进行操作 +++++\n")0 A7 {4 ^0 t4 I! h: W
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
2 ] M! Y( N& [6 E0 f
(VL-LOAD-COM)(setvar "cmdecho" 0)
9 T% V; }$ z8 @* d# v; w
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
1 M1 u5 u) N; ]) g$ e$ _/ N
(princ "\n")$ Z- [$ b# b1 `) n" \' r( v
(setq jj (getint "设置间距(1):"))
" J. X8 J/ ]5 u" Q I
(if (= jj nil) (setq jj 1))
2 m \9 Q2 U" X+ O7 u6 m* `3 A
(setq lenss (sslength ss)
- U( ?) V0 U9 m ^) o: T' k. i& Q
i 0 eelist '()+ \; O2 r3 B4 V7 o$ G2 g; G
)
# z, k2 G& A0 E3 M; l: p
(repeat lenss;外循环开始4 r6 D+ ? p3 Z, h7 c
(setq en (ssname ss i);取得图元名* Q) @. V- S2 x, C0 H- {0 D4 G- j& ]
obj (vlax-ename->vla-object en);转换为vla对象
8 r5 ?8 ?% f6 S5 i& P3 G
)
5 V- H' |! u( ~0 A
(setq ;zc (vlax-curve-getendparam obj)! n2 y- u& r6 B% I$ @ y: S* s
j 1 );求得图元周长2 ]4 D2 j( z0 s) r
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
5 y- ^% X- e/ M& c0 ~7 u
7 W$ X `) B+ m2 V5 Y
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度0 B& L2 H( a8 }( i& x. g& O6 K
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点' p- L1 ~9 S% p. z6 s. |
(repeat (fix (/ zc jj));循环周长取整次刚好到端点5 F! j8 F7 C N" @1 U
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))6 I- ~& Z5 N, W
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点+ b+ y8 }6 x! ?% I5 i2 L" z9 P$ p# x6 K
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
U8 V, q; |+ E' p5 [8 m
)% O& D0 C1 C& V( u. B# o$ c6 r
(setq eelist (append eelist (list lst)));加入到点集1 v+ x$ d( P2 k( `- A9 m! y2 ~
(setq j (+ jj j));递增jj
' @6 Z1 t, a& H! c2 a
);内循环结束
6 `; R1 ~2 F% Z* R6 s) p# r
;(setq eelist(reverse eelist))
8 c, W. L9 M5 g' F: k/ l) m$ x
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))9 Z' r2 G$ W9 K$ Y1 y
(command ".pline" "non" lst1);开始描点
: H6 e, ~$ b2 V: j8 i0 k2 h9 U
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
* `+ t: R% n3 j' W$ g) C' ~8 m
(COMMAND "");描点结束" {8 \- v3 |6 R* y! A
(setq eelist '());清空点集
4 \% z7 M! Y! y/ x# R
(setq i (1+ i));下一个图元( y6 ~ z( U' W5 a4 i! W+ w
);外循环结束
& U' ~9 e0 `1 l b0 o
(princ "\n转换结束.")
0 B' d3 R( f [ P8 q+ K
)

复制代码

flour2006 · 发表于 2012-4-19 11:07

下面是acad的方法，你可以在中望中试试
8 }3 R" n& }# E) i5 w! n
% z3 a- D) o" U$ r1.普通方法- y) t' D- A% k
样条曲线转换成多段线的方法AutoCAD本身携带的E ... i b: v# p+ ?$ L: j2 P
www_qf 发表于 2012-4-18 11:27

竟然有这么多的方法。

qqqqqq · 发表于 2012-4-24 12:02

不错，学习了。

929171718 · 发表于 2022-7-17 10:54

www_qf 发表于 2012-4-18 11:27  X2 J- d5 N7 R; ?$ f7 P
下面是acad的方法，你可以在中望中试试
. C7 X# e9 y0 P( [* k  i5 W" h, |2 K( G2 d1 r
1.普通方法  P/ M: f! b" Q# y; S! T

这ee插件，怎么只能设置整数呀，

		自动登录	找回密码
密码			立即注册

[求助] 如何将样条曲线变成多段线？