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

sg001833

n条样条曲线怎么能转变为多段线

sg001833

哪位高手回复一下啊，教教！

www_qf

下面是acad的方法，你可以在中望中试试

5 X  _  {  {# S$ d9 h: Q* K1.普通方法
    样条曲线转换成多段线的方法AutoCAD本身携带的ET工具（Express tool）有一个命令可以直接实现此功能：FLATTEN命令可以完成此项，前提是AutoCAD安装的时候已经安装了ET工具。
1 Y+ i) \6 L' H1 G. C" i 方法1：直接输入“FLATTEN”
& R& u: p# w4 _ 方法2：用菜单——Express——Modify——Flatten objects
1 G; X2 g! F5 r. G- f  j" P
2.把样条曲线转换成多段线另类方法
方法1：将要转换的样条曲线复制在一新图中，用“另存为”命令将图纸保存为“AutoCAD R12/L12 DXF (*.dxf)”格式，再“打开”命令选择打开刚才保存的“DXF (*.dxf)”格式文件即可。
方法2：用WMFOUT命令选择要要转换的样条后，将所选对象保存为“图元文件 (*.wmf)”格式文件，再用WMFIN命令打开刚才保存的“图元文件 (*.wmf)”文件，按提示输入相应参数后炸开图形，就得到了所要转换的多段线了。

3.用lsp程序
4 H% A( b% @* A3 i. D& t8 V) g0 t) @将如下代码存为lsp格式，用CAD加载后输入命令ee即可转换。

1. (princ "+++ 曲线或圆弧到多线段 - Chris. [email protected] 2012-1-3 +++\n")
   
2. (princ "+++++ 输入命令"ee"进行操作 +++++\n")
   4 W9 X7 v5 M4 d. F
3. (defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
   
4.   (VL-LOAD-COM)(setvar "cmdecho" 0)
   3 A- W* [* p8 j: w: n, ~; O
5.   (setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
   % y) p& b/ e4 e/ i3 f1 y
6.   (princ "\n")
   5 Q5 p( r! l$ a, Q1 ^' P) x9 w
7.   (setq jj (getint "设置间距(1):"))
   # O5 n; e; O/ v' Z( Z3 Q* C
8.   (if (= jj nil) (setq jj 1))
   . {( e8 `( k, ?( C; C6 o
9.   (setq lenss (sslength ss)
   
10. i     0 eelist '()
    0 f" {$ L! f! A8 Y
11.   )
    5 S! W- U$ D& r0 Y4 Z- H& ]
12.   (repeat lenss;外循环开始
    3 F5 `% t8 R4 l
13.     (setq en  (ssname ss i);取得图元名
    / T* y# Q8 t2 H8 }
14.    obj (vlax-ename->vla-object en);转换为vla对象
    # K8 D" n8 k( w% }, F0 i0 \
15.     )
    % h6 Y) @6 M0 u8 B. n( [
16.     (setq ;zc (vlax-curve-getendparam obj)
    * D/ s- |+ p0 ?3 t, e
17.     j 1  );求得图元周长
    & \* C7 {+ K# g; h# Q/ I4 V+ ~
18.    (setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
    
19.    
      w/ u, }) ^6 U
20.     ;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
    + Q. F$ G- v; ]  c9 D
21.     (setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
    
22.     (repeat (fix (/ zc jj));循环周长取整次刚好到端点
    / s5 w$ y; M& b: {& v* _; A
23.       ;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
    
24.       (setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
    
25.     ; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
    
26.       )
    1 v5 ^$ X" g" I& t! o; S
27.       (setq eelist (append eelist (list lst)));加入到点集
    0 Q+ j% l: c  M/ s; w! t$ _/ W( M
28.       (setq j (+ jj j));递增jj
    
29.     );内循环结束
    
30.     ;(setq eelist(reverse eelist))
    - X: E! X$ E4 ?% u5 D5 ?
31.     (setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
    & b7 w* U1 z5 l7 x' s
32.     (command ".pline" "non" lst1);开始描点
    % k; k1 b$ n% b9 L, R4 f2 T
33.     (foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
    
34.     (COMMAND "");描点结束
    
35.     (setq eelist '());清空点集
    
36.     (setq i (1+ i));下一个图元
    
37.   );外循环结束
    
38.   (princ "\n转换结束.")
    ' r$ F' \6 k! c4 {( m) W
39. )

复制代码

flour2006

下面是acad的方法，你可以在中望中试试
" a7 C# S& M, c) @% R
2 j! F& R' U% h" R# S: p1.普通方法
; J7 L2 x5 G6 @9 K1 m$ V    样条曲线转换成多段线的方法AutoCAD本身携带的E ...
www_qf 发表于 2012-4-18 11:27

) {1 k( d: G, z% Z
竟然有这么多的方法。

qqqqqq

不错，学习了。

929171718

www_qf 发表于 2012-4-18 11:27
. P8 @7 |( P) J% I. h* H; ~6 }& a9 r下面是acad的方法，你可以在中望中试试
2 V; E1 v- g5 @' n
1.普通方法

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