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

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")
3 |6 T& N6 U0 o- }6 e
(princ "+++++ 输入命令"ee"进行操作 +++++\n")
1 A2 ?( b1 {6 Q: M$ l
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
" c2 [8 ^" ]/ a1 Q! A
(VL-LOAD-COM)(setvar "cmdecho" 0)' m+ X' v* L6 g8 N; t# S5 `
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
# l) ~' W1 z6 j, m+ ]6 Z* |
(princ "\n"): a( X/ b5 n) l4 f& r% D
(setq jj (getint "设置间距(1):"))/ M2 w$ e0 ~9 ^% F; G8 _! ?
(if (= jj nil) (setq jj 1))' B) ~) b* ~* p( \# r
(setq lenss (sslength ss)8 A! C6 z5 t% |( w, M
i 0 eelist '()7 l& p; {- D5 T- s0 I& i R4 U
)+ M- M! T6 c8 G" ^* l) G9 Z. j+ z
(repeat lenss;外循环开始
% v* E4 m1 k# ^+ h) A5 S& f
(setq en (ssname ss i);取得图元名! U7 M c$ I: b+ a% |$ d, C
obj (vlax-ename->vla-object en);转换为vla对象9 ?* R3 g: s+ Q, ?
)+ e' ^8 z( J+ ^9 u3 S- X n
(setq ;zc (vlax-curve-getendparam obj), Q, @4 E: K4 W0 Z* O. w# F
j 1 );求得图元周长
! }5 F- n5 [; N# G S( p, b. F! s
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj))): G' s6 t6 v, c$ t
( y7 k, b- M0 V3 N% G
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度! @! a& n/ F! o2 z
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点8 c. a7 R3 t! ~2 M5 C& g
(repeat (fix (/ zc jj));循环周长取整次刚好到端点. a% \1 c H+ q% m0 F
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))4 o2 j& n/ }, I* q: I4 z% d' T3 o9 G
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
6 P) h0 e' |0 K' e$ G
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离! P! b$ Q; E5 J+ C5 K7 S( g/ P0 E) R
)
( F* A8 H, M* g& A9 ~0 l! Y9 k
(setq eelist (append eelist (list lst)));加入到点集- g9 o4 N! f' V3 @2 }
(setq j (+ jj j));递增jj( ^4 d3 C. z- i) e( @
);内循环结束
j5 d. y) b; C, U
;(setq eelist(reverse eelist))3 Q/ w1 w2 J; Q. r1 m
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
$ Z* w0 B: D8 ]% @
(command ".pline" "non" lst1);开始描点
L# p' _# ] w) P* p% z$ c, G
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
- [* y$ Q& J, T/ `% B
(COMMAND "");描点结束
; p" _% f2 a% ?4 z
(setq eelist '());清空点集* {) ]# g& \6 |
(setq i (1+ i));下一个图元
; H$ \" P' ?& x5 r
);外循环结束2 k8 S) @% }: H- `9 J- u8 E
(princ "\n转换结束.")
X, Z' C! M) I: A/ d8 c8 m# ?6 j
)

复制代码

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

下面是acad的方法，你可以在中望中试试
6 d( i! N+ L6 A/ \. n0 a6 ]
* \) j2 ?8 {9 b0 ?2 Z* u/ {1.普通方法
/ x7 X& R6 J+ F, E 样条曲线转换成多段线的方法AutoCAD本身携带的E ...
( M4 f8 g; x9 d) x" {, zwww_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
6 b' M* g @% b0 v h下面是acad的方法，你可以在中望中试试
3 z# X$ n3 q' b B: b+ o3 c- R0 E; s/ s7 R Z
1.普通方法5 g1 T4 Z! s/ m9 E0 z- L+ M

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

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

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

浏览过的版块