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

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 k2 `2 _2 Q1 g
(princ "+++++ 输入命令"ee"进行操作 +++++\n")( u' K- F2 h Z' d
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
* h5 F% T) y8 x0 c9 @* U9 `
(VL-LOAD-COM)(setvar "cmdecho" 0)8 m3 D1 t) ^4 [* c2 w
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
/ B0 R0 t$ s3 c
(princ "\n")) w$ a- B3 x4 f, ?7 |' n
(setq jj (getint "设置间距(1):"))8 X8 H9 d7 s2 f9 Y7 O
(if (= jj nil) (setq jj 1))& ~, G1 }+ s {9 W( j, j
(setq lenss (sslength ss)
2 w5 D2 |! a! v% h& N, z2 B
i 0 eelist '()1 R0 ^+ B' [) q- M2 V5 W7 A2 _
)( t- D/ x" n/ O/ p1 j
(repeat lenss;外循环开始
$ Z$ C8 P) E: P; Y9 `; e/ a
(setq en (ssname ss i);取得图元名
( y" J- K) {4 \8 K* q
obj (vlax-ename->vla-object en);转换为vla对象
, ^6 M+ X1 r7 d% o3 r) S
)
: F8 M6 m# v' Q* b: [2 P
(setq ;zc (vlax-curve-getendparam obj)
/ v& j& g# g1 c( j
j 1 );求得图元周长
$ l( `2 ~3 |- X
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
, g' T. F; v& `+ J5 \" W4 q& P
1 t; {+ T% }/ @" O% c
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
0 m/ Q3 N+ [$ c2 S3 R8 O
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点% t3 D! F( a0 z2 N. l$ q- P9 D
(repeat (fix (/ zc jj));循环周长取整次刚好到端点
+ d, r- b: F$ [# z8 q! [
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))# J& d# P, L: G* T
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点4 O# Z+ q3 F3 {
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离# S9 Q* \6 g7 w1 m' V0 K$ K1 |
)1 G+ H1 L% C1 @% F) C' q( g
(setq eelist (append eelist (list lst)));加入到点集. f k3 B+ ^9 Q/ q0 X; U; X
(setq j (+ jj j));递增jj
8 E0 q- u5 ^) d$ |3 g& a) _
);内循环结束4 W+ G. `/ R+ G* ?# [
;(setq eelist(reverse eelist))
2 ? q c4 g& d" }2 K5 e8 I
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
; k' ^2 b0 V. D) S) |; f) v7 O+ C4 l8 [
(command ".pline" "non" lst1);开始描点: J4 m# J4 g9 e9 G
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
3 A& T( ]: K7 Z6 ^9 K
(COMMAND "");描点结束
! Z$ C7 q! |( H, p8 Y) C; S
(setq eelist '());清空点集
* f, [, A9 z0 _( \
(setq i (1+ i));下一个图元6 _5 Y& w* z2 w% }
);外循环结束
7 G: U1 G& P' ]- A
(princ "\n转换结束.")* K: r# r3 v9 ~3 H( b4 X
)

复制代码

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

下面是acad的方法，你可以在中望中试试) M2 m% b6 X$ V& s* t3 S9 f+ Q5 F
6 l3 I8 l6 L! m4 U! |5 k: r( l
1.普通方法
- T6 k: E- t0 a! E 样条曲线转换成多段线的方法AutoCAD本身携带的E ..." W3 |* Q2 x9 J+ D7 V0 L% X
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
( _, r9 S6 J6 e6 |, Q下面是acad的方法，你可以在中望中试试" B+ K) c8 B, J' W- C0 M
2 n7 s2 j, G0 `4 d
1.普通方法& R# f* H4 i! F$ Q. `9 P3 L

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

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

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