CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 4351|回复: 5

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

[复制链接]
发表于 2012-3-30 22:55 | 显示全部楼层 |阅读模式
n条样条曲线怎么能转变为多段线
 楼主| 发表于 2012-4-10 08:07 | 显示全部楼层
哪位高手回复一下啊,教教!
发表于 2012-4-18 11:27 | 显示全部楼层
下面是acad的方法,你可以在中望中试试; X2 \* H; Y% ?! t' v( A5 R

  v" ~% v& J% n1.普通方法. v, ~8 E; U9 C- f* M
    样条曲线转换成多段线的方法AutoCAD本身携带的ET工具(Express tool)有一个命令可以直接实现此功能:FLATTEN命令可以完成此项,前提是AutoCAD安装的时候已经安装了ET工具。4 g2 x6 q( t) y$ v  \6 X
方法1:直接输入“FLATTEN”; j9 _" e1 l- f) A' t% _9 w
方法2:用菜单——Express——Modify——Flatten objects
! v' ?  {2 f! r7 t/ w* D4 ]
: F! K* c6 S# x9 C9 n2.把样条曲线转换成多段线另类方法
, j" ?) X4 P9 K+ t. p. {1 r 方法1:将要转换的样条曲线复制在一新图中,用“另存为”命令将图纸保存为“AutoCAD R12/L12 DXF (*.dxf)”格式,再“打开”命令选择打开刚才保存的“DXF (*.dxf)”格式文件即可。9 ?" [. X1 _: q2 F7 t
方法2:用WMFOUT命令选择要要转换的样条后,将所选对象保存为“图元文件 (*.wmf)”格式文件,再用WMFIN命令打开刚才保存的“图元文件 (*.wmf)”文件,按提示输入相应参数后炸开图形,就得到了所要转换的多段线了。
! Z! r7 b( s3 C2 g
" x( S/ j# ]3 r3.用lsp程序
0 K4 ]) X& L! K+ {3 ^# C将如下代码存为lsp格式,用CAD加载后输入命令ee即可转换。
  1. (princ "+++ 曲线或圆弧到多线段 - Chris. [email protected] 2012-1-3 +++\n")
    ' r. z! n! _5 S) l; B3 c
  2. (princ "+++++ 输入命令"ee"进行操作 +++++\n")
    & F* I1 j: }0 S, P
  3. (defun c:ee () ;任意曲线变多段线一般只用于椭圆、圆弧和样条曲线; T1 u5 t. z6 E
  4.   (VL-LOAD-COM)(setvar "cmdecho" 0)
    " [# w% e4 b$ @# m/ K
  5.   (setq ss (ssget '((0 . "ARC,*LINE,ELLIPSE"))))" o4 _4 h. |3 V
  6.   (princ "\n")
    2 V1 L- _& f9 u! v
  7.   (setq jj (getint "设置间距(1):"))
      {9 ]4 Q- k: j
  8.   (if (= jj nil) (setq jj 1))
      J- `; y+ V3 T  A, E* Z
  9.   (setq lenss (sslength ss)0 y3 ?0 y3 A) z4 ?8 v  U
  10. i     0 eelist '()& T. U+ J) s& k; H  p9 P
  11.   )
    + i. o' z* i9 a
  12.   (repeat lenss;外循环开始) x. F- U1 m4 b  S3 y7 b2 L  s4 t
  13.     (setq en  (ssname ss i);取得图元名
    $ f3 u) a- b& s9 Y5 w+ S- U( }
  14.    obj (vlax-ename->vla-object en);转换为vla对象
    - c* w+ G: J" x: G
  15.     )% s$ ^7 \% V  s, |% K
  16.     (setq ;zc (vlax-curve-getendparam obj)# V% ~* |+ b0 u0 l; o- V) t; b
  17.     j 1  );求得图元周长
      H! n( O& ~6 h: I
  18.    (setq zc(vlax-curve-getDistAtPoint obj (vlax-curve-getEndPoint obj))): N3 {1 f- G# k1 ^2 k
  19.     4 W4 s2 ]7 t  a% D' E3 O
  20.     ;(setq j (- zc (* (fix(/ zc jj)) jj)));取第一段长度
    . K2 o+ f2 D- M# d! R
  21.     (setq lst1(vlax-curve-getPointAtDist obj 0));取开始点, O6 G( B& q" k- o$ [2 _
  22.     (repeat (fix (/ zc jj));循环周长取整次刚好到端点
    % P' E& t9 M  b- ]
  23.       ;(setq ePt (vlax-safearray->list (vlax-variant-value (vla-get-coordinate obj j))))
    3 i* i5 f, J$ B/ _; n5 y
  24.       (setq lst (vlax-curve-getPointAtDist obj j);取距开始点为j的点
    7 f3 q7 `+ g& v0 \/ L7 N2 R
  25.     ; lstlen (vlax-curve-getDistAtPoint obj lst);测量开始点到j点的距离0 {3 G; z- H( b* D. X, _
  26.       ); h& o/ v, w; ~1 E* l: p8 T
  27.       (setq eelist (append eelist (list lst)));加入到点集
    1 s" X, Q" Z( b7 B5 _
  28.       (setq j (+ jj j));递增jj
    1 u- N: j% c8 n! `: G; h
  29.     );内循环结束- v* L% h" l; x7 e, D5 q
  30.     ;(setq eelist(reverse eelist))" a& z$ \/ @6 Z, s
  31.     (setq eelist (append eelist (list (vlax-curve-getEndPoint obj))))
    % _; c; J+ T: y* \0 Y
  32.     (command ".pline" "non" lst1);开始描点
    , v( ?, H% A% X# ?5 ]
  33.     (foreach n eelist (command "non" n)(grdraw lst1 n 1) (setq lst1 n));模拟描红
    " N. k% ?& c# u/ f& W/ R3 m9 @
  34.     (COMMAND "");描点结束, G9 z$ |* s3 w1 c5 f0 c
  35.     (setq eelist '());清空点集9 H# h/ s/ g3 S
  36.     (setq i (1+ i));下一个图元
    + R  u4 K' J) b# K: e
  37.   );外循环结束6 R  a( K9 {% L7 Q% q- t3 j
  38.   (princ "\n转换结束.")
    ! L$ M: A, v& G3 B* c) z
  39. )
复制代码
发表于 2012-4-19 11:07 | 显示全部楼层
下面是acad的方法,你可以在中望中试试( i5 o0 |: J0 ?: i+ z
, L- a$ k* d; H' j# j9 L
1.普通方法. q. @# x2 F( N" f) S8 N& O
    样条曲线转换成多段线的方法AutoCAD本身携带的E ...1 J4 k& j. E$ y+ q2 z
www_qf 发表于 2012-4-18 11:27
$ d& A2 ^" d! N- b* J

% N: V# X& H: U9 U8 B" H竟然有这么多的方法。
发表于 2012-4-24 12:02 | 显示全部楼层
不错,学习了。
发表于 2022-7-17 10:54 来自手机 | 显示全部楼层
www_qf 发表于 2012-4-18 11:277 u  }: u" c+ C% ]/ M  m5 v$ V
下面是acad的方法,你可以在中望中试试1 ~9 B. s- H% ~) ?
- B; K& _+ a% D' V+ P
1.普通方法
& Y6 O8 y5 o9 M9 j" }

" T0 \& z* N" F5 F8 H' D( K/ F7 W  f这ee插件,怎么只能设置整数呀,
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-7-1 04:55

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表