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

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")
+ L# n: A) S. t! f: l( g0 H
(princ "+++++ 输入命令"ee"进行操作 +++++\n"). P8 f: X3 [ p$ S
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
. h8 X6 _' @4 Z
(VL-LOAD-COM)(setvar "cmdecho" 0)
) d; ^( {( J/ V7 R4 K
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
- `: Q# S: \/ S# \: Q5 B3 J8 C- I
(princ "\n")
8 V) X! U. T/ M1 L' r
(setq jj (getint "设置间距(1):"))8 ~$ d& r1 Q m/ p
(if (= jj nil) (setq jj 1))- A- D" x% `3 b6 k# S& F
(setq lenss (sslength ss); i2 g" V; J6 u" d
i 0 eelist '()
0 S3 ]* d6 L; B) h3 v3 p
)
A6 b* H( Y* \1 L% r5 H
(repeat lenss;外循环开始
& Q! T' |" `8 k- [. ?% i
(setq en (ssname ss i);取得图元名0 j- H; S0 g! a* _3 H: z
obj (vlax-ename->vla-object en);转换为vla对象) K* p6 b. d3 w: _7 e& N# y
)
( O2 _8 Q/ r0 w% m" l; Z
(setq ;zc (vlax-curve-getendparam obj)
' J# {0 T }( P1 W F4 O1 d' i
j 1 );求得图元周长$ K6 E: P/ o( }
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
3 n L4 U6 [1 V) B7 n& M: g4 f0 w
- i5 S) O5 S5 d" B/ N
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度9 O) x9 D: i9 t; x
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
3 V& B* z* u- E6 Y3 R* H4 X
(repeat (fix (/ zc jj));循环周长取整次刚好到端点
2 M5 l" w3 M) [; P% E" F
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))2 F: Z+ U' J; G, @* v
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
1 b0 m r) ^% Z8 N/ v& W3 S
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离* i, a! L$ _* [( w
)
~& I; W$ Y' B t0 b- S8 O" K
(setq eelist (append eelist (list lst)));加入到点集
& Y" f M% T' ]6 D9 j
(setq j (+ jj j));递增jj
5 g& Z5 [5 L% n( u
);内循环结束
. L2 |1 J( K- z! I
;(setq eelist(reverse eelist))
4 o* r) w% Q8 [0 E" b
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
; m4 b4 B L7 R. ]4 s5 `
(command ".pline" "non" lst1);开始描点
( \6 T9 Q; ^: {
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红* {' Z* t- S6 i- b
(COMMAND "");描点结束! i: H1 Q9 v" \% E
(setq eelist '());清空点集
8 Z8 M% n0 s0 \7 @( T
(setq i (1+ i));下一个图元
) B7 u, C5 X+ B) ^" ^: H
);外循环结束
4 _7 r {( {* W/ d& v
(princ "\n转换结束.")/ ]4 t9 _) F1 Q
)

复制代码

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

下面是acad的方法，你可以在中望中试试1 T; w) J _$ P( X$ O
$ S* `+ C- ~) V- Z
1.普通方法
2 x1 n! `/ e3 a" } 样条曲线转换成多段线的方法AutoCAD本身携带的E ...
" Y+ Z6 ]7 I; V% ^9 Kwww_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: m8 @! w" c: J3 S8 q7 s" N
下面是acad的方法，你可以在中望中试试
+ {/ C! v4 P& R* `! D$ y o1 I) a3 b C; }1 } D, \, w2 a
1.普通方法
( x! E M) o) X. ]6 {" ~

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

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

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