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

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")6 [- [5 i; U# o# q/ @ J1 U
(princ "+++++ 输入命令"ee"进行操作 +++++\n")3 w. S9 g ^, ], |6 _9 w* ^( I3 X
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
) t ~& G# i# [( R
(VL-LOAD-COM)(setvar "cmdecho" 0)
6 k( B8 @ @: p) I
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
; t4 M0 P. a& _- @( X
(princ "\n")
% K% Z2 ]0 F3 T3 n( y7 h/ W
(setq jj (getint "设置间距(1):")). x; q3 F9 h; B& Y
(if (= jj nil) (setq jj 1))
! B& @" t2 q! h1 ^
(setq lenss (sslength ss)0 T% @3 [8 ^( W/ Q
i 0 eelist '()
! i, M7 S/ N- A/ H
)
: A3 Z3 K3 [5 a, w3 ]7 s7 O, [8 U
(repeat lenss;外循环开始2 Z2 r' `6 Z9 I0 |" }
(setq en (ssname ss i);取得图元名4 T; V2 e) n }3 U0 e
obj (vlax-ename->vla-object en);转换为vla对象
7 z9 m3 s" |/ `( O
)
4 r; y1 w6 _) I" ~5 V
(setq ;zc (vlax-curve-getendparam obj)
( ?5 Q5 K" T3 ^3 [
j 1 );求得图元周长
, D9 y- `8 Y+ o7 |( y- c9 ~- V4 ~3 I
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
1 u$ ]0 w. J# q9 V6 D
# g. ~2 h$ ^& I* x Q/ v7 |( x- Z
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度/ @7 q7 k5 h* U+ m( R+ S( @5 {
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点1 Q% y* [% S; f" x' \
(repeat (fix (/ zc jj));循环周长取整次刚好到端点
& U. G$ T. T! N- U# e! o
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j)))): g2 D+ r/ [$ {* w+ B' c) Y: y
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
$ _ B' T# w1 P0 C
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离: A! @2 P& F- c
)
$ |& v, E4 A9 {4 c. t! k% |
(setq eelist (append eelist (list lst)));加入到点集& w( T4 U6 K7 @, W; n
(setq j (+ jj j));递增jj& v2 i+ }+ q! w) ]
);内循环结束
8 ~3 t! E6 b! D0 `1 l
;(setq eelist(reverse eelist))
7 g- P) |1 U$ [( c
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))" _0 V+ ?# k# m5 s, j3 Z# j
(command ".pline" "non" lst1);开始描点% l) T, ^$ t9 Q# H% y4 _
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
, ]- p! E& L0 |1 U
(COMMAND "");描点结束
4 Q/ H+ N* l, y
(setq eelist '());清空点集; D! D3 u' e/ Q& y; h' p3 t8 [
(setq i (1+ i));下一个图元
) l! T4 R: [0 U4 Y7 X) ?
);外循环结束
/ l) c- h7 u, B
(princ "\n转换结束.")% t C* y" m& p+ ^% R8 N' C
)

复制代码

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

下面是acad的方法，你可以在中望中试试4 E6 ?6 L2 _! b
4 ]/ U; z# L1 \5 E1 F, V1 v0 ?' p
1.普通方法
0 Z3 |1 |, T9 S# n: q% ?. v 样条曲线转换成多段线的方法AutoCAD本身携带的E ...
% i: y# ^( W$ s! m7 V9 W: uwww_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
% L- G  R9 V: |% F下面是acad的方法，你可以在中望中试试
5 R! g0 _, k9 t% W  h) e6 L9 }2 s) K) q. W' z5 }
1.普通方法
8 t" W3 c* ?; W  y& J* j0 A7 |

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

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

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