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

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. test@skyline.name 2012-1-3 +++\n")5 i* b% h6 b% i
(princ "+++++ 输入命令"ee"进行操作 +++++\n")9 i3 m/ O% r* ~5 a: f# V
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线' W& W0 S% K; ]& c! |
(VL-LOAD-COM)(setvar "cmdecho" 0)1 c9 L$ i2 D o1 m4 n& e% E
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
$ Q" `5 ^# z' e8 ~& r% ? ?# p* F4 n
(princ "\n")
/ N- m. W4 L p+ l: d
(setq jj (getint "设置间距(1):"))* Z8 ^6 }# J! O1 Q5 T
(if (= jj nil) (setq jj 1))
1 G- O2 k6 y1 X. D, ?
(setq lenss (sslength ss)
, S- I' N% P8 g9 Z& z
i 0 eelist '()
7 U! X* `( i1 n7 F
). h! p) h% |/ l6 q9 O8 k) S9 K
(repeat lenss;外循环开始
8 Q, t1 m+ p/ Z; U9 b% a
(setq en (ssname ss i);取得图元名
5 x& [6 n( A8 ~9 m; Z2 Y* r' ]9 Y
obj (vlax-ename->vla-object en);转换为vla对象0 b5 ?3 B! m* v6 l* v
)" N/ z C$ t; y3 Q
(setq ;zc (vlax-curve-getendparam obj)
( g# R8 }' U& b( E5 H! V
j 1 );求得图元周长9 Q' W9 v2 X( o5 S
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))5 Q" V# A$ }9 ~7 Q" U; `+ ^' S
+ v6 b) U! [9 @+ B3 I4 \; e! W
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度8 T9 P' a8 z/ P+ g" R( ^( r
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点- k+ |* B5 @( N' H! e5 h
(repeat (fix (/ zc jj));循环周长取整次刚好到端点
4 C. V1 x4 N$ f) G7 D. o, }
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
5 ^6 W3 _& b: ]; [2 B
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
, U7 R% r! R0 Y' \$ v, M
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
8 H; Q6 X# c/ }' u2 }9 ^
)
/ ^2 ^& g1 D$ G2 ~
(setq eelist (append eelist (list lst)));加入到点集+ N ^; Q/ O" o$ ~! n
(setq j (+ jj j));递增jj* w, W7 J# {, i7 X' \
);内循环结束) d8 ^3 x# V0 F
;(setq eelist(reverse eelist))) _6 i4 x2 \& C9 Z4 [
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
) ]- G1 |, }) `% [
(command ".pline" "non" lst1);开始描点* R# o( a# K a9 v: Q
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红" z, x8 i$ Z% N k1 l8 A3 D
(COMMAND "");描点结束
( o( r0 x6 O" \' F# x |0 x5 q
(setq eelist '());清空点集% F& p4 N1 l5 {4 b
(setq i (1+ i));下一个图元. [& v a( N) }( B) l3 ~" N
);外循环结束
2 H! K) z" Y; ~5 s
(princ "\n转换结束.")
: S$ l9 y5 p7 l, b3 G- p& I Q
)

复制代码

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

下面是acad的方法，你可以在中望中试试: ~+ @! W/ m& T! L/ R% g' n8 U2 {

6 Z# x! {$ {. z3 g# W0 M0 a3 M4 f1.普通方法
$ f' m/ g; ^: j; Q% c5 i0 w 样条曲线转换成多段线的方法AutoCAD本身携带的E ..." Z# }5 H& O' n$ A: t6 |
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
. [1 ~9 h9 f$ P5 l1 w! r' N2 w! o下面是acad的方法，你可以在中望中试试, D8 i) K1 a6 {0 b5 Y9 f

* R! f" X3 m. c4 @$ j, A1.普通方法6 q. Q' z8 E* _# W% U2 |

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

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

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