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

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")$ R; g4 Z# N5 o; L3 e; u# M' s
(princ "+++++ 输入命令"ee"进行操作 +++++\n")! E. T( W0 `9 Q, G9 d& P
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线% G. ^) @% g. ?3 N6 \5 j
(VL-LOAD-COM)(setvar "cmdecho" 0)' u7 g! l6 G- _& [* {3 n
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
# |+ ]) a. M; q h# B9 G7 }, b
(princ "\n")
- Q8 e- ?8 w4 s+ d/ e
(setq jj (getint "设置间距(1):"))
; i2 o$ y- J1 |+ K, }
(if (= jj nil) (setq jj 1))" E6 O: v: k6 s9 Q" @3 B
(setq lenss (sslength ss)# m# z& `# M/ a+ {- `# D
i 0 eelist '()
: y3 x3 {+ C0 ?0 Y% x" g+ l
)2 E+ ]# f; i! J- F: G
(repeat lenss;外循环开始
. b7 v+ i+ N8 r/ c
(setq en (ssname ss i);取得图元名
; K& l, G0 o6 @, Y/ a& u% t
obj (vlax-ename->vla-object en);转换为vla对象7 g" c6 A- p9 ?: l9 V
)
. l' O2 M; S8 M( F) @
(setq ;zc (vlax-curve-getendparam obj)
8 C' l0 {3 H$ j$ X
j 1 );求得图元周长
# E# H. D4 V7 o6 u" w" ^* j
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
7 Z8 Y' M8 G6 U' i; v2 A/ r( R Z
; G; U7 ]3 s% L1 [) @8 X# w
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
( x5 E4 E+ M W; u# v5 i: M" L- E0 `
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
0 B6 t6 ?2 a0 A2 X2 C/ r. N, e
(repeat (fix (/ zc jj));循环周长取整次刚好到端点
q; o- e" c) i5 ^
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
9 X4 z! @% ]/ b: r! P
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
" Y L7 S" R2 Q' ^1 A
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离" x G/ \8 n' U# g$ v# i2 t
)
& D0 x0 H9 Q$ j/ Q9 Q' w
(setq eelist (append eelist (list lst)));加入到点集
7 _3 J! f, j" ?: \ K& t9 U" W# n* s
(setq j (+ jj j));递增jj
^ D0 u" X) a6 D/ [
);内循环结束2 f6 I& A: `$ V/ L5 ~# `
;(setq eelist(reverse eelist))
7 \2 }" f) |4 Z" A5 g. {; n3 }- |: ]
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
5 o6 h. C" S- c! u: K
(command ".pline" "non" lst1);开始描点
$ c' Z* e1 G7 {
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红) n% z/ d# W) {8 [9 ]+ Q# M
(COMMAND "");描点结束& x. s5 ~) L& h
(setq eelist '());清空点集2 p0 |$ n* f% b, J8 n; L# ~* r
(setq i (1+ i));下一个图元
" _, r& p7 f8 Q' Z5 Y8 u4 K
);外循环结束; t+ X2 {9 ?/ N& d
(princ "\n转换结束.")8 a' u, }* q9 g& k+ o: l6 z
)

复制代码

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

下面是acad的方法，你可以在中望中试试/ r: B/ P# c( G1 d* t

8 {3 H( u/ v6 q1.普通方法$ N8 ^! U M8 V/ n6 \# Z
样条曲线转换成多段线的方法AutoCAD本身携带的E ...
/ J4 r+ c, c; Y; c: `: Lwww_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
7 i8 ~" g) [4 i3 b9 u5 g; W下面是acad的方法，你可以在中望中试试. U( \6 Z0 k: u6 S3 d' k" h$ O
% [; i0 l6 ?5 V; t) x- w/ V
1.普通方法8 `3 u4 ?9 [8 l8 P% R

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

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

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