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

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")7 m6 |; O9 r/ K( Q1 I
(princ "+++++ 输入命令"ee"进行操作 +++++\n")
, g, k* E# y1 o: p6 Z0 ^
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
) U' D& \* i+ M
(VL-LOAD-COM)(setvar "cmdecho" 0)
9 D% X) L1 ]0 b a% O
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
) N& t* O& B+ c% f3 h% V$ D3 _; e0 b
(princ "\n")# l# J+ o; t/ p* m3 g; E9 z
(setq jj (getint "设置间距(1):"))/ X( h- A2 |/ C- \' k
(if (= jj nil) (setq jj 1))
* I" Y3 g/ m& u$ U8 [' q r
(setq lenss (sslength ss); v6 B4 Y9 I7 Q! @1 e: w
i 0 eelist '()
% t% a& Z# W4 e& n/ A. e! e1 O( a
)
* v6 Z* I, G; U* F* `; x8 L
(repeat lenss;外循环开始/ Q8 O: z* \( Q! X
(setq en (ssname ss i);取得图元名5 T6 `' }# h& u& z) f
obj (vlax-ename->vla-object en);转换为vla对象
- p5 [( a% r! T/ Q$ y
)
# V2 }; f3 j z+ X4 G" Q
(setq ;zc (vlax-curve-getendparam obj)3 b( P/ o5 \" k
j 1 );求得图元周长
3 b( e- }+ O% d
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
9 O3 j- F4 \: m4 X+ \& x2 z3 x6 _
) P3 B' t+ A$ H, e
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
1 z, O# B& _8 H8 e+ v! V; d" |
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点" \4 W, B+ G# n/ s! P8 J, U' _$ h
(repeat (fix (/ zc jj));循环周长取整次刚好到端点3 C6 E, r1 Q# x9 Y
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j)))), J' h' \. O& Q+ T6 m; z
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点, j" Q) ^ `* v7 w4 _" z4 D9 j
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离& d$ K6 Y2 C! S, a' t' x
)
' E: G. W9 g" s; L9 Z+ l+ Y1 x% ]# ?
(setq eelist (append eelist (list lst)));加入到点集% {1 r) d9 F$ y+ c5 X4 Q
(setq j (+ jj j));递增jj1 e3 D- Q5 i7 z% d/ X
);内循环结束/ s' _: J: f/ C3 S/ W! v
;(setq eelist(reverse eelist))
: o9 [5 R5 p! ^: b' l
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
( l7 _$ Y% e6 T; ~" R; N$ X
(command ".pline" "non" lst1);开始描点
Y+ @7 v+ _7 |( y
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
5 k6 b/ I' V$ a3 x
(COMMAND "");描点结束! e; `$ y u A$ o* j
(setq eelist '());清空点集
7 o0 Q. P/ v6 o' g' k5 \
(setq i (1+ i));下一个图元2 Z: M4 b& A8 w$ ^. n* J
);外循环结束
5 T# W3 t9 S, K: s( Z
(princ "\n转换结束.")! b' ]6 O. d' C% F: J
)

复制代码

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

下面是acad的方法，你可以在中望中试试
. s6 o5 k- w u8 Y1 \# {9 ~- _( ?5 E; `# }" o- i9 z h
1.普通方法- O8 m H& b* Z3 T t
样条曲线转换成多段线的方法AutoCAD本身携带的E ..." h5 P$ q; S' U# Z7 I
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
: v$ C- }' ~6 n+ ~下面是acad的方法，你可以在中望中试试2 u+ E7 z9 L! d8 L9 U# r! S( h

- Y0 `3 f$ o7 ^) v: v4 l# T7 ^1.普通方法2 @& n$ p5 G6 A/ \- x

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

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

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