椭园怎样转成多段线？

jiangh1969

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

唐昕晨

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

supernova

我一个笨招：
# m; q1 |  U) e绘制好椭圆后，使用offset命令偏移一下，在按相同的偏移距离再偏移回来就可以了。

c3m3y0

打断试一下，可以吗？

xiaopan83

《转贴》AUTOLISP程序
; t% X/ O; O4 B, _$ e' m3 e
;;;======================
& _$ [7 W% X8 A;;;= 将椭圆转化成多义线 =
* n3 Y* E: k. N5 H;;;======================
(defun fcp::ellipsetopline
                    (ellobj   /            spoint       epoint
- b/ k0 I" A1 A7 H- G" Z3 V                    str           num1      num       plineobj
                    plineobj1 points      npoints       vpoints
                    2dpoints
                    )
(setq      spoint (list (vlax-safearray-get-element
                (setq
4 b, e" m, N0 g1 m! H6 u                  num (vlax-variant-value (vla-get-startpoint ellobj))
* v9 ~, }' u: u0 S) n4 a; `3 v                )
' S- |0 e+ f  Y" g  R3 A8 l                0
              )
              (vlax-safearray-get-element num 1)
              (vlax-safearray-get-element num 2)
7 U: f" L; d; O, c          )
* f( |2 N& k( W4 W* [     epoint (list (vlax-safearray-get-element
                (setq
                  num (vlax-variant-value (vla-get-endpoint ellobj))
9 B' {' n( Q! p2 k5 |3 p                )
                0
              )
2 S' E0 n7 M) c& [( t% w. ]              (vlax-safearray-get-element num 1)
* s  \2 x8 H# @% h4 t. C              (vlax-safearray-get-element num 2)
4 r5 S" u% v9 r( p          )
)
(setq      plineobj (car (vlax-safearray->list
                 (vlax-variant-value (vla-offset ellobj -0.1))
                )
2 e! M( k* h- D, @. N* G! F            )
* m* G- S( C& i( j. N4 d9 Q)
(setq
  plineobj1 (car (vlax-safearray->list
/ M9 F9 r4 |# r  ]3 ]              (vlax-variant-value (vla-offset plineobj 0.1))
              )
0 f/ a0 Z8 z( q9 w          )
* P5 A9 Q) E+ }( G5 J2 t7 [)
(vla-delete plineobj)
: W* ^& ?5 p$ C; c(setq      points nil
5 W" i3 m4 h7 a6 x1 X5 t+ W$ Q     num -1
     2dpoints nil
)
(setq
, [% b& b( _5 R& R% y  h" w' ?! s  points (vlax-safearray->list
/ N( z4 u  i8 ~- v, h        (vlax-variant-value (vla-get-ControlPoints plineobj1))
' X4 K+ v) Z# l) W, N1 ^        )
- m" f3 P0 F# I! _)
(vla-delete plineobj1)
(setq      npoints      nil
     num      (/ (length points) 3)
)
& Y; b6 J# l$ |* S3 w" @9 A# }(repeat num
  (if      (>= (length points) 3)
( X) P5 B0 {2 z    (setq npoints (append
                npoints
                (list (list (car points) (cadr points) (caddr points))
- y& h# W: O5 G- P  B                )
              )
$ A- m% |) Z: _4 b        points (cdddr points)
    )
' R, l$ q) M: }0 o  u  )
)
1 \; W' Z6 z6 L1 B" P(setq      points      npoints
     vpoints      (list (car points))
% A- h: ?; l' R+ E# z/ t# Q     num      1
)
(if (> (setq str (length points)) 16)
  (progn
$ h: Z6 K+ K3 y6 C; m    (setq num1 (fix (/ str 16)))
0 ^0 v0 a; _# r. ~3 U" @: _1 p    (while (< num str)
     (if (= 0 (rem num num1))
      (setq vpoints (append vpoints (list (nth (- num 1) points))))
     )
     (setq num (+ num 1))
    )
    (setq points (append vpoints (list (last npoints))))
  )
)
(foreach num points
- ~5 \0 h8 [& z) D) g0 ~  (setq points (subst      (vlax-curve-getClosestPointTo ellobj num)
                 num
- g. n7 [( ?% i" P9 }2 v, o9 ^- }                 points
' Q5 R! r, g6 X2 y# o8 s) [            )
" H8 l; t# c' L$ X6 Y, }. e3 `/ F  )
: X/ w3 {8 A) z3 S! Y; p. c* g)
(princ points)
(setq      points (subst spoint
; }: U0 D: t% p$ Z                (car points)
8 d- U6 I  F* h% ]; k3 v  ?2 Q                (subst epoint (last points) points)
          )
)
(foreach num points
  (setq 2dpoints
4 U- P$ @$ S$ Y" g        (append 2dpoints num)
9 C4 S- J  r( N# b$ K  )
5 ?1 |2 r; G' z9 G% f3 q& p- S& V)
" P5 o2 E; k/ H1 W(setq      vpoints      (vlax-make-safearray
- d$ ~/ |0 p* y# C, X% G  p            vlax-vbdouble
            (cons 0 (- (length 2dpoints) 1))
           )
% j! J4 I& ~% s; k)
(vlax-safearray-fill vpoints 2dpoints)
8 [4 c9 `  t$ T: q4 [9 }(setq plineobj (vla-addpolyline fcp::mspaceobj vpoints))
(if (and (= (car spoint) (car epoint))
1 Q2 O& m( ], T        (= (cadr spoint) (cadr epoint))
    )
  (vla-put-closed plineobj :vlax-true)
  n5 l3 x) S7 a3 S' _5 B8 t: G& [)
(vla-put-type plineobj acfitcurvepoly)
; j  x! `2 z) G8 J3 Nplineobj
)

. e3 e; P  A! J1 \% y0 }  \0 b

再配上变量定义：
(vl-load-com)
0 I' r8 c' c$ |* D' Q6 _* z7 v(setq fcp::acadobj     (vlax-get-acad-object)
  fcp::acaddocobj     (vla-get-activedocument fcp::acadobj)
  fcp::mspaceobj     (vla-get-modelspace fcp::acaddocobj)
  fcp::pspaceobj     (vla-get-paperspace fcp::acaddocobj)
9 |8 w' d5 T  b5 \" s; {: @  fcp::docobj     (vla-get-documents fcp::acadobj)
  fcp::blocksobj     (vla-get-blocks fcp::acaddocobj)
) ]5 M$ z! z! k! i% N  fcp::layersobj     (vla-get-layers fcp::acaddocobj)
  fcp::textstyles     (vla-get-Textstyles fcp::acaddocobj)
2 C2 D; K  c& L9 y4 {; T* t  fcp::linetypes     (vla-get-linetypes fcp::acaddocobj)
6 i5 `3 y, k$ v5 R. Z% e  fcp::menugroupsel     (vla-get-menugroups fcp::acadobj)
2 C" b! M: S5 \5 M8 }  fcp::menugroup     (vla-item fcp::menugroupsel 0)
4 y  B) l! v4 f" U4 c  fcp::menuobj     (vla-get-menus fcp::menugroup)
)

xiaopan83

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

wuuuuu

3# supernova  的办法试验了一下。可以做到把椭圆转成样条曲线。
0 h- y, g( f, o1 s. R3 G如果要多线段的话，还有一步，就是点击样条曲线，右键，编辑，转换成多线段。
要精度的话，选项值10左右就可以，不要精度的话，选项值0即可。
( y  ^* f9 a3 A# J& l  l
还有一招，将带有椭圆的图形，另存为 R12版本，再打开的时候，你会发现椭圆变成了多线段。
" X) M1 E4 L2 g; |这一招也是学来的。