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

sg001833

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

sg001833

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

www_qf

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

5 f' s# B' E' z# ?" v, m- U( ^1.普通方法
# O6 C( {% m; \* y+ F& m% Q  G0 Q    样条曲线转换成多段线的方法AutoCAD本身携带的ET工具（Express tool）有一个命令可以直接实现此功能：FLATTEN命令可以完成此项，前提是AutoCAD安装的时候已经安装了ET工具。
# X9 h& U% x" J 方法1：直接输入“FLATTEN”
& N+ y; v+ C5 C' k0 x3 [ 方法2：用菜单——Express——Modify——Flatten objects

2.把样条曲线转换成多段线另类方法
. c2 g1 U4 u6 t' l' C+ r" B1 _6 U 方法1：将要转换的样条曲线复制在一新图中，用“另存为”命令将图纸保存为“AutoCAD R12/L12 DXF (*.dxf)”格式，再“打开”命令选择打开刚才保存的“DXF (*.dxf)”格式文件即可。
方法2：用WMFOUT命令选择要要转换的样条后，将所选对象保存为“图元文件 (*.wmf)”格式文件，再用WMFIN命令打开刚才保存的“图元文件 (*.wmf)”文件，按提示输入相应参数后炸开图形，就得到了所要转换的多段线了。

3.用lsp程序
9 k) |: S3 D' ?  N* I( o将如下代码存为lsp格式，用CAD加载后输入命令ee即可转换。

1. (princ "+++ 曲线或圆弧到多线段 - Chris. [email protected] 2012-1-3 +++\n")
   
2. (princ "+++++ 输入命令"ee"进行操作 +++++\n")
   
3. (defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
   $ e5 ~' `' J. o2 J8 }8 Q- [
4.   (VL-LOAD-COM)(setvar "cmdecho" 0)
   6 |( a7 s/ n; i# ^6 R7 b$ d1 ^  [. P
5.   (setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
   . X! F* S- ~: y, m+ G" J" _, u' [( b7 X
6.   (princ "\n")
   
7.   (setq jj (getint "设置间距(1):"))
   
8.   (if (= jj nil) (setq jj 1))
   
9.   (setq lenss (sslength ss)
   
10. i     0 eelist '()
    ( e4 M; i% |2 \- K; p
11.   )
    
12.   (repeat lenss;外循环开始
    6 `' k' U! F) F% l' j# \
13.     (setq en  (ssname ss i);取得图元名
    
14.    obj (vlax-ename->vla-object en);转换为vla对象
    
15.     )
    / c2 D2 g4 p' s
16.     (setq ;zc (vlax-curve-getendparam obj)
    
17.     j 1  );求得图元周长
    # s7 U* b! E1 x  V6 w# D& L
18.    (setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
    
19.    
    
20.     ;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
    2 O  ?4 }7 i: Q) H6 F
21.     (setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
    
22.     (repeat (fix (/ zc jj));循环周长取整次刚好到端点
    5 z( F* ?  }7 {0 p9 k, k: }: Z
23.       ;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
    : O2 K/ l, E6 `- r9 f
24.       (setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
    7 ]5 Q8 @: y/ _8 ^8 C3 X
25.     ; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
    / m+ J& E  y0 T% Y
26.       )
    
27.       (setq eelist (append eelist (list lst)));加入到点集
    
28.       (setq j (+ jj j));递增jj
    
29.     );内循环结束
    
30.     ;(setq eelist(reverse eelist))
    
31.     (setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
    8 Z# l' ?- g  Z8 T
32.     (command ".pline" "non" lst1);开始描点
    0 [! e0 Z4 O7 m
33.     (foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
    
34.     (COMMAND "");描点结束
    * N0 K  E7 w$ D
35.     (setq eelist '());清空点集
    - b3 v/ f$ p* T  n  a
36.     (setq i (1+ i));下一个图元
    
37.   );外循环结束
    & t! ]9 B9 M8 D" u' k3 w
38.   (princ "\n转换结束.")
    - L6 U# _0 J* o9 p
39. )

复制代码

flour2006

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

0 Q( S% d" @1 l) f( _* ^& r2 C; N$ ]1.普通方法
1 R2 @1 |" V% e8 [  E* R1 {8 h/ C    样条曲线转换成多段线的方法AutoCAD本身携带的E ...
2 N! c3 ]8 c4 h9 gwww_qf 发表于 2012-4-18 11:27

) g+ D8 O" s8 j- p( K0 e" q$ q5 u2 v
竟然有这么多的方法。

qqqqqq

不错，学习了。

929171718

www_qf 发表于 2012-4-18 11:27
下面是acad的方法，你可以在中望中试试

( p% h, t/ M4 o- X1.普通方法

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