椭园怎样转成多段线？

jiangh1969

有谁知道一段椭园弧如何转成多段线。

唐昕晨

pellipse设置一下这个系统变量,看看是不是你想要的.

supernova

我一个笨招：
& o6 F( M) p1 f) n" u8 E( H绘制好椭圆后，使用offset命令偏移一下，在按相同的偏移距离再偏移回来就可以了。

c3m3y0

打断试一下，可以吗？

xiaopan83

《转贴》AUTOLISP程序
% y/ x# M% ?+ D6 A! R
;;;======================
;;;= 将椭圆转化成多义线 =
9 N, Z7 a% k2 E0 p8 ]6 u( J;;;======================
! K2 L! U( M  E1 P( r( k" X, m(defun fcp::ellipsetopline
                    (ellobj   /            spoint       epoint
/ l" M# b' x7 `0 D" v0 `                    str           num1      num       plineobj
                    plineobj1 points      npoints       vpoints
! X2 g% y# I# l% Y+ F+ I                    2dpoints
$ n, a& Y! j4 T  P6 ?7 b3 K! r                    )
6 d) @+ M9 {% {(setq      spoint (list (vlax-safearray-get-element
                (setq
                  num (vlax-variant-value (vla-get-startpoint ellobj))
                )
) }# J& ?' _. O- |3 h$ R                0
" r8 [  N3 ?2 D& V              )
$ {" a2 l4 v% H2 u* x+ C* Q4 F, w              (vlax-safearray-get-element num 1)
2 H- B+ L4 l6 d5 |& x) ^8 O              (vlax-safearray-get-element num 2)
% c/ w; Y. l' k4 L, q: N          )
     epoint (list (vlax-safearray-get-element
+ C' U, N0 ~2 H8 a8 g, z                (setq
* s+ H5 p1 L& I" C' Q- J  |                  num (vlax-variant-value (vla-get-endpoint ellobj))
                )
1 I8 W' z# V7 c0 D. h                0
              )
              (vlax-safearray-get-element num 1)
              (vlax-safearray-get-element num 2)
          )
)
+ j# A9 `  V" l( d4 O8 [8 ~0 P( a(setq      plineobj (car (vlax-safearray->list
" x+ M- {: u0 U. K/ Z+ q9 c                 (vlax-variant-value (vla-offset ellobj -0.1))
                )
            )
2 \9 p! ^9 Z4 Q* G. I: i1 l& n9 o)
4 C- r! @5 H6 Q! K1 m(setq
  plineobj1 (car (vlax-safearray->list
              (vlax-variant-value (vla-offset plineobj 0.1))
) a+ r2 s2 k) L1 v4 D              )
! U( I% M  o" ^) S4 G) N7 a8 T          )
)
5 K% T4 B% R+ d5 t(vla-delete plineobj)
(setq      points nil
     num -1
     2dpoints nil
/ t+ h9 ?4 e' l)
9 j! X& S4 i; S(setq
- @" d+ G- \/ T6 o  points (vlax-safearray->list
# V% V! V! d2 @7 J$ _  _        (vlax-variant-value (vla-get-ControlPoints plineobj1))
        )
! Y: M7 a! I, G; l0 Q+ ~)
" G* ], G( |( O' \  o(vla-delete plineobj1)
(setq      npoints      nil
' ~  z* E) Q- T6 {$ v; M+ r     num      (/ (length points) 3)
)
(repeat num
  (if      (>= (length points) 3)
6 s& h% ?2 X4 _! J: Z    (setq npoints (append
( \" x# V& N' {% r8 F# e; I                npoints
                (list (list (car points) (cadr points) (caddr points))
                )
: ~' q( F0 f; d. _0 E              )
2 G5 {# e" V/ a8 o% J* f        points (cdddr points)
    )
  )
6 L% L8 A2 Z2 |$ @, H, E# C! Y)
; q" q. G6 D6 Q: I+ h(setq      points      npoints
: H4 }1 @  g; P     vpoints      (list (car points))
     num      1
)
(if (> (setq str (length points)) 16)
2 a- M1 J1 _3 ]% o( d! F5 E3 ^, X  (progn
    (setq num1 (fix (/ str 16)))
9 B6 L+ H* L( E6 O; v    (while (< num str)
     (if (= 0 (rem num num1))
) `9 F3 e) c3 Z3 p      (setq vpoints (append vpoints (list (nth (- num 1) points))))
     )
5 z  Q5 n3 s8 @2 n! M% V     (setq num (+ num 1))
1 ?1 r6 h: i& k5 P# y4 e3 S! J. |    )
    (setq points (append vpoints (list (last npoints))))
& S  K7 I. P2 O) c0 z  )
)
0 Q( ^5 F* `4 {5 G% c" z(foreach num points
  (setq points (subst      (vlax-curve-getClosestPointTo ellobj num)
6 u) S' g; y$ n0 u! h" R" V                 num
( S& U# F' R2 Z) n: |8 i& j/ `8 m- L                 points
            )
  )
3 n+ w3 {& I& c1 L0 @1 h9 s)
(princ points)
7 m; a! q( d# q$ V(setq      points (subst spoint
                (car points)
2 `9 v& G- P% m5 a' p# p' B! r                (subst epoint (last points) points)
/ l2 V: j3 G. K) [3 {          )
)
(foreach num points
& Z9 H$ R0 R9 {  (setq 2dpoints
        (append 2dpoints num)
  )
$ f  }( a5 T& w. i! J)
(setq      vpoints      (vlax-make-safearray
0 g: ~$ i% p+ j            vlax-vbdouble
            (cons 0 (- (length 2dpoints) 1))
           )
% m6 R( _* U, \)
(vlax-safearray-fill vpoints 2dpoints)
, k" k! F  Y. G) u1 f(setq plineobj (vla-addpolyline fcp::mspaceobj vpoints))
- o; I4 z0 e- X+ Y9 n(if (and (= (car spoint) (car epoint))
        (= (cadr spoint) (cadr epoint))
. ?4 W& p* @6 r  u3 m5 Z    )
  (vla-put-closed plineobj :vlax-true)
)
0 \+ ?3 f1 d3 _% c) `(vla-put-type plineobj acfitcurvepoly)
  m0 u6 ~- j3 n# g+ t$ }( h; [plineobj
)

* m# q5 p1 v! a$ v0 C

再配上变量定义：
  p+ t' |9 s( k* r(vl-load-com)
1 b9 g- s* b5 I(setq fcp::acadobj     (vlax-get-acad-object)
, x6 E$ v! j, e: ~0 }3 h  fcp::acaddocobj     (vla-get-activedocument fcp::acadobj)
  fcp::mspaceobj     (vla-get-modelspace fcp::acaddocobj)
  fcp::pspaceobj     (vla-get-paperspace fcp::acaddocobj)
. a( n& E  T2 g/ @; Y; u, ~- V$ i  fcp::docobj     (vla-get-documents fcp::acadobj)
  fcp::blocksobj     (vla-get-blocks fcp::acaddocobj)
  fcp::layersobj     (vla-get-layers fcp::acaddocobj)
8 Q2 Q' O) \$ O0 l+ f+ |# R  fcp::textstyles     (vla-get-Textstyles fcp::acaddocobj)
- W5 P0 ^: Y& t/ F# E* H, ^# \1 M) l  fcp::linetypes     (vla-get-linetypes fcp::acaddocobj)
  fcp::menugroupsel     (vla-get-menugroups fcp::acadobj)
, J' X9 V1 H4 @% v8 \  fcp::menugroup     (vla-item fcp::menugroupsel 0)
  fcp::menuobj     (vla-get-menus fcp::menugroup)
)

xiaopan83

如果不想这样，我想可以考虑用多线段近似画椭圆弧，在要求不高的情况下还是可以的，

wuuuuu

3# supernova  的办法试验了一下。可以做到把椭圆转成样条曲线。
) q4 g4 C8 X% G$ N3 w. S2 U如果要多线段的话，还有一步，就是点击样条曲线，右键，编辑，转换成多线段。
4 q( d2 @8 i2 @0 z6 o要精度的话，选项值10左右就可以，不要精度的话，选项值0即可。
  \. b3 c1 }! a; v
# S$ M( d; i/ [8 `6 G  w+ |. j, }! T还有一招，将带有椭圆的图形，另存为 R12版本，再打开的时候，你会发现椭圆变成了多线段。
' r8 K& y0 m3 e+ |/ U这一招也是学来的。