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

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")
( Q( S/ V! n" t# m3 F
(princ "+++++ 输入命令"ee"进行操作 +++++\n")
0 Y/ n8 v& j& T a# [
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线* C J5 Q2 A4 L' b
(VL-LOAD-COM)(setvar "cmdecho" 0)4 M c9 [: R& u, O- W& m" W; v
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))! w# r4 D7 z2 q6 P& \* y5 C, t& N) v
(princ "\n")
; a9 a' i2 _/ e
(setq jj (getint "设置间距(1):"))
. E# K2 T9 d+ `- f
(if (= jj nil) (setq jj 1))0 D; l6 ?# _9 _. K6 D k* Y/ u
(setq lenss (sslength ss)
3 ^1 v& C. }0 |/ `1 I- D4 z
i 0 eelist '()
# x4 @2 T5 o6 y! O: |
)
$ S; O5 W6 |- E
(repeat lenss;外循环开始
, p z+ a, [: { N9 R1 @0 k' E
(setq en (ssname ss i);取得图元名
: c+ N+ r3 o5 z' v7 [9 \0 [9 S
obj (vlax-ename->vla-object en);转换为vla对象
% I8 ~6 o" a. A" J7 I/ F$ \+ q
)) A$ H6 T4 w& F& K
(setq ;zc (vlax-curve-getendparam obj)
$ _: d& [$ L- ~
j 1 );求得图元周长* D( z( x% |3 I [
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))# K& d: X1 Q, }6 Z/ x! e/ ]/ L
, Y: G( m9 g5 l& ?2 Q
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度9 R$ U/ U1 Y$ J# e2 _- J6 C5 |4 G! b
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
) N8 Q" P7 b7 G" F; @
(repeat (fix (/ zc jj));循环周长取整次刚好到端点 ~6 m% H7 P# ? L
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))" ^* v+ |7 T! V4 G. i
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点: i% t+ R. U$ l2 n. M
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离7 q( W0 m: ^1 f3 E( F* t: l
); j- R- \, S# S& U: E+ |
(setq eelist (append eelist (list lst)));加入到点集* `0 p9 \/ Y' ]- d4 r% q$ r! L
(setq j (+ jj j));递增jj
3 b% j. Q9 I, \- X5 B7 r- j
);内循环结束5 S( z5 |& V1 |" ^- b8 d b/ X
;(setq eelist(reverse eelist))) m8 c3 W$ C& b, {- l2 y
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))- G2 s5 W; B: n$ z' Q1 A- @
(command ".pline" "non" lst1);开始描点9 A; Y" w# ^6 j6 x" J* Q1 d
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红% w' f. f7 Z, a# b9 ~, d/ F* H' N! J
(COMMAND "");描点结束: S) R J" k' }9 _* x, r# J* P& _; \. y
(setq eelist '());清空点集
* Y$ ?: p- D/ A* d
(setq i (1+ i));下一个图元
/ V. R' k2 s7 J
);外循环结束
. Y1 A* J$ c% W% m( t
(princ "\n转换结束.")
$ Q l/ y$ [1 O9 R& c/ @# ?
)

复制代码

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

下面是acad的方法，你可以在中望中试试
) A* ^% B _% w8 Y8 V0 ~
; F7 q- k& t. z* P( p6 D) H- o1.普通方法
# _$ A: J* P. n: I5 G% p 样条曲线转换成多段线的方法AutoCAD本身携带的E ...
6 A4 O# i/ {' H8 g" O% ?6 Ywww_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
, [8 H' P: S. P# z下面是acad的方法，你可以在中望中试试: A5 F1 R2 |8 I& U* i8 G
4 o2 i# _, z+ }( Z' t. h2 T/ O
1.普通方法. H9 U3 U& e4 X( g8 x* n% f. k

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

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

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