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

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")/ R% r! t1 R4 _1 i! g; m
(princ "+++++ 输入命令"ee"进行操作 +++++\n")# h S# |3 K( U5 R I7 X2 n
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
) m* q: M& ^" a0 ?8 j) u# v i
(VL-LOAD-COM)(setvar "cmdecho" 0)
3 _' ]1 h8 k1 l8 E/ w) U I
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))) q X8 r* d* ]/ g
(princ "\n")
) v+ C9 [- ?8 J$ g* v- q! m
(setq jj (getint "设置间距(1):"))
5 q( e0 ~, }' V9 \; W0 y) J
(if (= jj nil) (setq jj 1))
. i/ f( l0 q, w2 k
(setq lenss (sslength ss)
$ f' D7 m3 C! |" J/ u
i 0 eelist '(); i' h* l' v, r8 {/ T' o: L
)0 i- z0 B F. I/ U1 w8 U; A" M. N
(repeat lenss;外循环开始
* x) J) }0 c2 R! H$ b4 ^, A
(setq en (ssname ss i);取得图元名' o( b8 _% A' r7 n% Z
obj (vlax-ename->vla-object en);转换为vla对象, _5 y0 Q" j; O" j& Z" ~
). ?2 W0 `( V0 `8 J
(setq ;zc (vlax-curve-getendparam obj)# J) X% ~8 W6 n9 F$ @
j 1 );求得图元周长# r* R7 Z5 @, O$ a; N
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))2 U% o5 ~- _, V: W) S1 H1 T
4 E+ [- W9 ~7 J' R7 a
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
+ L/ t/ W! N& K G( ]; J8 z
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
6 `& S& m/ ~2 h O" j, j2 n2 S
(repeat (fix (/ zc jj));循环周长取整次刚好到端点; E* I+ D. b0 t) {% V
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
' {- p+ l) E5 D. c
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点9 v0 Z, H) v! B) f. w( f/ F8 C
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离5 h- ?# w ^9 I: W7 X, U1 V
)8 K- u5 n; V0 b3 K( D! U5 ~1 O
(setq eelist (append eelist (list lst)));加入到点集
8 S3 O- l: j: n" U3 U- C( r# P
(setq j (+ jj j));递增jj" r7 o: o" d0 D
);内循环结束" i7 A4 R6 \& [3 r) ~5 A- P+ n
;(setq eelist(reverse eelist))/ `5 U" j+ X7 G4 J* W8 Q; f, \" H
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))2 a; Q) ?+ G& T5 U
(command ".pline" "non" lst1);开始描点
5 m% X% @5 c L$ I
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红; u$ s1 p1 e% ^0 {% h$ F) T
(COMMAND "");描点结束
5 {; ]4 x9 `8 ?" ?, F
(setq eelist '());清空点集+ Z- O Q$ C# P! P( A
(setq i (1+ i));下一个图元
: _& f9 L8 T* L8 C/ e# q
);外循环结束& M1 o" k7 o; M4 u( a1 M {
(princ "\n转换结束."), m* J: T% ~' T. g2 q
)

复制代码

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

下面是acad的方法，你可以在中望中试试 t# A" D @$ e
6 }3 n* X% j, ?' R% J8 c! ?" `$ O, d
1.普通方法
7 F v* i2 A+ X0 h1 H) A 样条曲线转换成多段线的方法AutoCAD本身携带的E ...' O5 l7 v5 V* D. _
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" ~* X( x" j7 n N* B- p- s
下面是acad的方法，你可以在中望中试试$ ]: I. t; V8 w8 j2 ^ @- i3 h) C* w" P

4 C3 U2 R) _' u# ~( {1.普通方法
4 ~) D7 i( U& l5 F% n

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

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

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

浏览过的版块