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

sg001833

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

sg001833

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

www_qf

下面是acad的方法，你可以在中望中试试
) C& ]/ _* o- n
1.普通方法
    样条曲线转换成多段线的方法AutoCAD本身携带的ET工具（Express tool）有一个命令可以直接实现此功能：FLATTEN命令可以完成此项，前提是AutoCAD安装的时候已经安装了ET工具。
方法1：直接输入“FLATTEN”
方法2：用菜单——Express——Modify——Flatten objects
$ X9 @$ ]  _- E9 Z; `
2.把样条曲线转换成多段线另类方法
方法1：将要转换的样条曲线复制在一新图中，用“另存为”命令将图纸保存为“AutoCAD R12/L12 DXF (*.dxf)”格式，再“打开”命令选择打开刚才保存的“DXF (*.dxf)”格式文件即可。
$ W9 Q6 z' s4 k, @' e7 v2 N 方法2：用WMFOUT命令选择要要转换的样条后，将所选对象保存为“图元文件 (*.wmf)”格式文件，再用WMFIN命令打开刚才保存的“图元文件 (*.wmf)”文件，按提示输入相应参数后炸开图形，就得到了所要转换的多段线了。

8 s* e3 |$ H5 j3.用lsp程序
将如下代码存为lsp格式，用CAD加载后输入命令ee即可转换。

1. (princ "+++ 曲线或圆弧到多线段 - Chris. [email protected] 2012-1-3 +++\n")
   
2. (princ "+++++ 输入命令"ee"进行操作 +++++\n")
   4 h+ _  B; T9 x1 K1 v/ v
3. (defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线
   7 b9 B# u7 _3 F  Y0 R; c( y7 I  `
4.   (VL-LOAD-COM)(setvar "cmdecho" 0)
   
5.   (setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))
   4 o( z2 h! r7 g* b" C/ ^
6.   (princ "\n")
   & a' y! F/ y; v
7.   (setq jj (getint "设置间距(1):"))
   : l$ O; F0 I8 i* z" Y
8.   (if (= jj nil) (setq jj 1))
   ! E; L+ u* o: U& J6 E
9.   (setq lenss (sslength ss)
   
10. i     0 eelist '()
    ! y6 r% s5 `' w
11.   )
    6 q% |+ {/ l2 l) C! m& |, p
12.   (repeat lenss;外循环开始
    1 k$ U4 t  b# d& o9 c* t
13.     (setq en  (ssname ss i);取得图元名
    * k1 E  k* o! ?! A6 m7 C' K6 L
14.    obj (vlax-ename->vla-object en);转换为vla对象
    7 Z' [2 g# i  [. |
15.     )
    0 n5 Z7 |) ?5 f2 \
16.     (setq ;zc (vlax-curve-getendparam obj)
    4 o+ B* I$ H: A- C1 O$ ]' @
17.     j 1  );求得图元周长
    
18.    (setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj)))
    
19.    
    % U4 R) M# m' n
20.     ;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
    
21.     (setq lst1(vlax-curve-getPointAtDist obj 0));取开始点
    ( M8 C$ C3 S  a4 G, v6 s
22.     (repeat (fix (/ zc jj));循环周长取整次刚好到端点
    & `: ^% `$ f* f$ h, R
23.       ;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
    8 s+ ~: R8 V; s, A4 {- Q/ J& I
24.       (setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
    2 ^$ w% p2 o" p! J% D
25.     ; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离
    3 d. y2 l$ `- Q* y+ S8 v
26.       )
      d. V5 E8 A) g& ^3 B' i0 S6 R
27.       (setq eelist (append eelist (list lst)));加入到点集
    0 a0 ]3 u# |: L; u' Q. j0 H9 ~
28.       (setq j (+ jj j));递增jj
    
29.     );内循环结束
    
30.     ;(setq eelist(reverse eelist))
    " f. d; }8 F" h
31.     (setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
    & {1 K- ^8 ?  @8 n; P. m/ c0 E$ ?
32.     (command ".pline" "non" lst1);开始描点
    : Z; i  e# y. q' K. ~: R3 `
33.     (foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
    
34.     (COMMAND "");描点结束
    & w2 @# v8 K; H+ K* k( z; G
35.     (setq eelist '());清空点集
    
36.     (setq i (1+ i));下一个图元
    ; Y8 K: n8 x4 f- y4 q
37.   );外循环结束
    & |$ I0 S- {1 r) {; [: w6 n
38.   (princ "\n转换结束.")
    + ]6 d* p" x; g( G+ c9 E
39. )

复制代码

flour2006

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

! z6 U  j2 B/ l& f% b( J1.普通方法
5 T( Z! P5 @+ d4 d. a& X5 K4 H    样条曲线转换成多段线的方法AutoCAD本身携带的E ...
: B, W7 E3 r9 w' o' l  Iwww_qf 发表于 2012-4-18 11:27

! g- F# b: O. H% s6 `9 ^/ O" n
竟然有这么多的方法。

qqqqqq

不错，学习了。

929171718

www_qf 发表于 2012-4-18 11:27
& L/ N. E. e% ~) |/ M/ @4 o下面是acad的方法，你可以在中望中试试

1.普通方法

. W4 y2 o- L" W这ee插件，怎么只能设置整数呀，