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

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")8 K8 U1 D. D( {8 Z
(princ "+++++ 输入命令"ee"进行操作 +++++\n")
. {, {" Z s% ~+ P$ R" f. E9 G2 F9 s
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线/ i$ Q" X) c* ~) @6 V
(VL-LOAD-COM)(setvar "cmdecho" 0)7 A' b" s; v- U
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))- O' ?& r1 N3 ^8 \2 L3 P7 \& {, i2 s
(princ "\n")% w; Y2 o+ ^9 [0 b* R
(setq jj (getint "设置间距(1):"))
! |% U9 N$ R; M9 s* c
(if (= jj nil) (setq jj 1))$ y7 [5 A9 d- t* J d6 \0 V
(setq lenss (sslength ss)
# v* p/ X+ n! b: G
i 0 eelist '()
% e$ O( n* C+ A3 S7 q+ R3 T$ R; Y
) v5 H/ S7 O# u* ^0 ^
(repeat lenss;外循环开始
C) L+ D; g! D) {( w' g
(setq en (ssname ss i);取得图元名
8 ^) J b% l5 Q( j8 [
obj (vlax-ename->vla-object en);转换为vla对象
2 Y; A# E2 M$ V) {) e% h
)
3 @) W& U+ I( G+ ^
(setq ;zc (vlax-curve-getendparam obj)) g$ l i# f% q/ h0 ^6 X
j 1 );求得图元周长; i. O2 ^# F# }3 w+ s% ?
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))/ U6 G# X# D# z7 W
) n: V' H; j. ?6 j
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
% H" B! e1 D# t/ a3 d7 D$ }
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点, b. y# F2 Q( X+ l$ g& S: Q
(repeat (fix (/ zc jj));循环周长取整次刚好到端点
+ A5 f, p) F0 J3 |' G. L# j2 E
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))# o* b6 G' `7 q0 I* x0 ]/ A* @
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点6 M% }7 q% ]1 `4 n2 m* Z# O! x x
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
t9 C5 z: b" }! h/ c3 ~3 s% o
)/ A" z" E3 p" I9 q7 w# b8 ^$ \, w
(setq eelist (append eelist (list lst)));加入到点集: n& Y+ X/ Z m, b1 V
(setq j (+ jj j));递增jj
% d. w. g- w i6 ]7 c
);内循环结束
8 j2 Z& _3 L; O0 M. ]" q+ H3 Z
;(setq eelist(reverse eelist))
( l7 O, E4 e9 n. U
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))" ~3 i( h. F7 y" j4 g
(command ".pline" "non" lst1);开始描点
0 ?" h6 `" e0 Z9 m4 T- `/ F
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红5 ~5 K5 W0 B7 P/ L* w7 e! G* P
(COMMAND "");描点结束( _% ?" L2 H. v6 g
(setq eelist '());清空点集
1 S, J% P! X6 j1 W' w5 j6 V' k {$ h
(setq i (1+ i));下一个图元0 V) g" `! K( s1 [, k1 r0 a
);外循环结束
8 c2 b: U2 G7 f$ X L1 V$ \* O
(princ "\n转换结束.")' w' v0 ]8 E" v! B. r; {
)

复制代码

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

下面是acad的方法，你可以在中望中试试
5 k' ]5 x0 X+ A T( ^( z; ^/ ~- u" B9 n# M/ c+ Y y @ R
1.普通方法
* X7 B" x2 r3 J% r. a" a" J 样条曲线转换成多段线的方法AutoCAD本身携带的E ...3 q* G! k/ Y) E; N* V
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
9 D8 U: m4 L \/ V0 i下面是acad的方法，你可以在中望中试试3 R. a' L- A, ?

8 U7 j" S/ H3 |1.普通方法* `7 v7 T8 K9 R' c' Y" V1 w

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

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

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