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

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"): X) C- E0 }6 G; E+ {: c+ m7 \
(princ "+++++ 输入命令"ee"进行操作 +++++\n"). P' W! C/ P9 F j; J5 t
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线$ _- ?7 }3 j8 t4 H. E6 t5 f$ u' k
(VL-LOAD-COM)(setvar "cmdecho" 0)" ]1 p! b( i1 a
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
" {$ \* T+ K, k8 C
(princ "\n")
& ^; t1 I3 I# G) X0 @9 n! g2 L
(setq jj (getint "设置间距(1):"))
( a7 ~# P; [1 R" }
(if (= jj nil) (setq jj 1))" j. S+ R! n- C( d) o
(setq lenss (sslength ss)
/ N$ u4 ~$ y M2 H+ z6 R/ e" x
i 0 eelist '()
) Q6 i8 T T0 @: Z: ~; p
), F& g/ e) T l+ a( g) \# m/ e3 ~3 x
(repeat lenss;外循环开始
W9 q7 B' `1 k% g4 S
(setq en (ssname ss i);取得图元名
; p3 M( t: y( l
obj (vlax-ename->vla-object en);转换为vla对象$ g( ?* `* T) N; Z0 J/ l/ }; W) `
)3 b" n A* }4 z/ s2 |
(setq ;zc (vlax-curve-getendparam obj) P2 H' }( @7 F! R5 Y6 J3 h3 k
j 1 );求得图元周长4 l) T$ u: j/ P" m
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj))) _2 w6 Z% Q8 `7 G" v
0 v4 W6 \" N6 B" M" K
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度" t- c# ?$ p/ H" E: |
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
; ]0 F) k8 d: |& `$ A8 a% O
(repeat (fix (/ zc jj));循环周长取整次刚好到端点
3 F! [+ Y& t+ e6 T# L) B9 T' @
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))3 k$ h$ r5 V6 `
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
6 q) M: S c9 s B1 T/ S
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
7 L4 S; l6 I1 a5 J8 p6 Y
): H0 d% U0 j/ N3 T3 I
(setq eelist (append eelist (list lst)));加入到点集
" _: E' z; ^5 _" R( d% V
(setq j (+ jj j));递增jj3 t6 O& x" Z' u0 F: m& ~; a. B
);内循环结束
( s4 V, c0 G2 e2 ?- [+ `% U* K- G
;(setq eelist(reverse eelist))* b# Q9 X( y' e& d& F
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
9 J9 G; v& y- @; |3 M6 `$ t
(command ".pline" "non" lst1);开始描点
3 h, |6 j o- x4 M' t
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
* E6 c2 D, r' q) v2 y
(COMMAND "");描点结束( n0 m( _9 [7 _8 B" _
(setq eelist '());清空点集1 D; [2 ^: v# w% A" _5 C9 L; {- p
(setq i (1+ i));下一个图元+ N9 Y0 A' D; \7 L
);外循环结束
7 i0 E2 h" b( r
(princ "\n转换结束.")
7 g9 G- F6 `3 L V- Z: I
)

复制代码

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

下面是acad的方法，你可以在中望中试试- N. o# b1 ^/ O1 N0 P' g
- Y9 t! @- q3 C( I
1.普通方法
( b, o5 e0 i+ Q7 `1 C; C+ d 样条曲线转换成多段线的方法AutoCAD本身携带的E ...
: a8 r; ?' p- Swww_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
+ n U! J( v& K8 l4 X# n, l下面是acad的方法，你可以在中望中试试* }6 |4 S! f2 I
: Y$ }3 e3 `" m$ e2 `( ~+ E
1.普通方法" W, u; m0 V+ f& i6 M* F

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

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

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