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

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")6 o) }1 x/ g% _# w( u
(princ "+++++ 输入命令"ee"进行操作 +++++\n")
7 f. s! q' U" Z0 F$ E
(defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线5 T) z! Q: `1 b7 s: \* ]( G
(VL-LOAD-COM)(setvar "cmdecho" 0)1 L( t, A/ [' g& \
(setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE")))); Y8 ]6 d# R+ Z- F8 W; S) L
(princ "\n")
& ?! _$ u: d" q( q
(setq jj (getint "设置间距(1):")); n1 k) `" |$ E0 B/ T2 q7 Y
(if (= jj nil) (setq jj 1))
, Q* Q9 ?- K. R5 }( E# S3 c
(setq lenss (sslength ss)
# N6 R2 T: E% n( |# {8 H% W
i 0 eelist '()
; s* s. _- G, ~( T3 m0 R
)
! z6 u+ z; d) ]( ]9 g8 J* o
(repeat lenss;外循环开始. i' T, s: m1 X1 K* p
(setq en (ssname ss i);取得图元名
& x8 o8 r7 {+ ~( \
obj (vlax-ename->vla-object en);转换为vla对象
) x) o; a; I3 n9 J
)
6 G0 m: y4 |7 B* A& @9 `3 w
(setq ;zc (vlax-curve-getendparam obj)
# p% _9 K+ w8 R6 O
j 1 );求得图元周长" Q% ~; ^8 G F3 h! G h
(setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
" s9 E# C+ G. @# B, K8 a
4 ^1 L R! Z4 J; d4 h
;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度# p& X+ \! e8 n, L2 r4 Q6 P
(setq lst1(vlax-curve-getPointAtDist obj 0));取开始点- |/ l6 ]" H$ S. r2 ?
(repeat (fix (/ zc jj));循环周长取整次刚好到端点
0 f# k% W3 t. P* }3 |& u
;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j)))); U1 V& _# [, J3 d' r9 A- g6 Y
(setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点- }- X/ u- p4 |" u
; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离& q e# I. v) X4 o
)& x4 ~# c+ V' P
(setq eelist (append eelist (list lst)));加入到点集
6 Y% f4 h) |6 r7 Z1 Y4 g: P1 z5 L
(setq j (+ jj j));递增jj
2 Y9 e0 k8 |6 F0 i$ o" t) f
);内循环结束! q& i* B+ o9 ], u5 R; p
;(setq eelist(reverse eelist))
6 z/ J j/ F' ]' H* [
(setq eelist (append eelist (list (vlax-curve-getEndPoint obj)))); e6 W) K- h; P) C3 Z! n7 M; Q/ F
(command ".pline" "non" lst1);开始描点; J/ Y$ y; T- v& g! H
(foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红* d* Z4 P* M% t0 T: f4 w: a
(COMMAND "");描点结束
3 o# ^( Z! x' }* u
(setq eelist '());清空点集
1 \, M2 a+ S ~& X$ x1 _0 L7 d- E
(setq i (1+ i));下一个图元
5 c( s8 r+ m% i* T2 x3 I8 H
);外循环结束1 r. L2 F& Z9 @ f
(princ "\n转换结束.")
' g- ]9 m, I- `. Q- _
)

复制代码

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

下面是acad的方法，你可以在中望中试试
/ b2 [( w5 W; _: e- ^' p/ c) U8 A
" q, r3 U5 W# B( n4 v3 {1.普通方法
) H: B, ~1 R) |9 ^8 g- f v0 m: ~ 样条曲线转换成多段线的方法AutoCAD本身携带的E ...$ B) w7 @1 p; Q5 B( ]$ y
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
9 x* b  d! ^) Z' O/ h+ M下面是acad的方法，你可以在中望中试试$ O8 u0 u4 F% @" j  s, A

. L& Y  `( C, s% ^& s' \7 l( n1.普通方法
/ n3 f  w$ K* [: H( T# W! P

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

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

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