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

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")0 o* D5 F0 F2 k: U5 Z5 g- P! f4 ?
(princ "+++++ 输入命令"ee"进行操作 +++++\n")
/ q n- N" J h0 x! L& Y; t% h
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
" n- r7 {+ z' z
(VL-LOAD-COM)(setvar "cmdecho" 0)" R$ Z4 c) B+ e0 }4 T
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
3 \2 {" \4 e" d: [
(princ "\n")
3 ?3 ]- Q; K: j. _) m1 u
(setq jj (getint "设置间距(1):"))3 V9 z, a7 S1 s2 a! n# g* B
(if (= jj nil) (setq jj 1)) `* ]- `$ {0 X3 t) x
(setq lenss (sslength ss). S% @( J: @1 {, v* L
i 0 eelist '()
( B( t; ~1 J- L; X& D
)
/ e4 G {9 d! E$ F
(repeat lenss;外循环开始: j4 {2 a9 y- A
(setq en (ssname ss i);取得图元名' {2 W; P' c# w& A f( S1 _* W
obj (vlax-ename->vla-object en);转换为vla对象- u: m5 Z7 e6 l3 j/ p) D2 X
), |. U4 ?; s# o) O- X Y
(setq ;zc (vlax-curve-getendparam obj)& H+ K% a; S6 l9 ], z
j 1 );求得图元周长: m. I, b) J7 t1 S, V
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))5 ?8 M1 [, p5 k6 y4 m1 ^
0 w2 |; f$ d6 \' n* t( e. z1 Q; d
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
& P% l3 N* E" ^9 w8 n; @
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点' R# |( U5 S) J- j0 G
(repeat (fix (/ zc jj));循环周长取整次刚好到端点. }1 J' [6 a/ T- A, _
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
3 E8 t e- G6 b l- ^4 t% i* o
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
1 k: D) q2 `* a! h
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离 J) ]4 M. G$ r; Y; V
)
( }& F Z& e& r* O
(setq eelist (append eelist (list lst)));加入到点集
( _" L: s; X) b- K9 c
(setq j (+ jj j));递增jj, ~; B: [8 Q! |. S; Z7 S0 q
);内循环结束: \+ N2 j v3 l! r
;(setq eelist(reverse eelist))
% q; s: `5 o* p/ V0 V* x G2 c
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
2 ^9 ^/ d' ]. P, R7 E1 B' ?1 I0 ]1 n
(command ".pline" "non" lst1);开始描点
8 I- m1 G, J. ^
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红. y# {2 q" C4 V; w; J- Y }
(COMMAND "");描点结束* U: N0 ?* g% w! d& h4 v, P3 X
(setq eelist '());清空点集) s4 w- m4 [* J! ~
(setq i (1+ i));下一个图元2 f' X' _% n. M, J- S/ H
);外循环结束
) N1 N! u: j+ |4 @5 s
(princ "\n转换结束.")
: P; A% c' M6 [1 s9 {; n
)

复制代码

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

下面是acad的方法，你可以在中望中试试# S# Q: D, Y* ?8 d; r
( ?& d- K3 j6 X, ]+ f+ b
1.普通方法
: B2 n% x0 F) d- D7 r5 V/ ` 样条曲线转换成多段线的方法AutoCAD本身携带的E ...
- {' w- _. |9 N( K, \/ N2 jwww_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  w, _0 c: Z0 r1 ^1 F$ N+ ~3 ?- |& p
下面是acad的方法，你可以在中望中试试: t1 r: ^0 U" O  W/ r
5 o& G# l9 ^# c  [
1.普通方法9 C1 w9 y8 E3 `- K# f

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

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

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

浏览过的版块