椭园怎样转成多段线？

jiangh1969

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

唐昕晨

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

supernova

我一个笨招：
1 Z9 s$ P8 S/ B9 u" M7 {绘制好椭圆后，使用offset命令偏移一下，在按相同的偏移距离再偏移回来就可以了。

c3m3y0

打断试一下，可以吗？

xiaopan83

《转贴》AUTOLISP程序
6 W) [  {0 d, a" A, E- ^. C
1 L5 ?  I' d* Z) @) p9 Q3 P;;;======================
) M( m4 P3 o+ h" X;;;= 将椭圆转化成多义线 =
;;;======================
(defun fcp::ellipsetopline
% B8 N# r/ X2 B# H! L                    (ellobj   /            spoint       epoint
: U1 V3 a% G. L! t$ t8 \  w                    str           num1      num       plineobj
                    plineobj1 points      npoints       vpoints
& C7 g  O4 j4 N' `4 H- N% a                    2dpoints
                    )
(setq      spoint (list (vlax-safearray-get-element
                (setq
2 `; `! X$ ^2 e" t2 L                  num (vlax-variant-value (vla-get-startpoint ellobj))
' V$ u5 l1 y: I) z& ^; d                )
                0
4 e7 y. U* X: G9 t& r% T/ ?              )
. T* a* [- c% R6 R              (vlax-safearray-get-element num 1)
              (vlax-safearray-get-element num 2)
' C) x  E2 j: C          )
. h) s1 a* d9 A) X4 {     epoint (list (vlax-safearray-get-element
# x- n  G- C8 `                (setq
                  num (vlax-variant-value (vla-get-endpoint ellobj))
                )
                0
              )
8 A! S) i/ ~  B+ b7 }              (vlax-safearray-get-element num 1)
              (vlax-safearray-get-element num 2)
          )
)
; Z6 p* ]' y1 p+ O(setq      plineobj (car (vlax-safearray->list
6 H: y  W0 |% L; d9 \# \, q                 (vlax-variant-value (vla-offset ellobj -0.1))
" }7 Y# L6 y( ~9 L& O& z                )
            )
)
3 z# q7 d$ L1 q  W# w/ n0 U(setq
+ r( }* u& S7 h2 \  plineobj1 (car (vlax-safearray->list
              (vlax-variant-value (vla-offset plineobj 0.1))
5 n7 B' }+ \# H& `              )
0 M4 t; |9 p8 o3 ^          )
)
(vla-delete plineobj)
(setq      points nil
     num -1
' x, y# b* d0 z# q8 j     2dpoints nil
- y6 I, G- X  o* g5 Y1 k)
(setq
% w+ ^4 b6 Z' @  points (vlax-safearray->list
1 G2 x- s+ Z! h4 U7 ^5 {7 N+ e        (vlax-variant-value (vla-get-ControlPoints plineobj1))
5 Z4 o0 ?8 W/ t1 U        )
)
(vla-delete plineobj1)
( O6 J5 U2 a2 A/ V& Q& ]) J  x' c(setq      npoints      nil
: C6 a7 x5 Y# D; d) q7 ^     num      (/ (length points) 3)
, I# O7 _8 R8 v* f; A+ W)
(repeat num
4 a9 y! t  D8 k9 e/ D; G  (if      (>= (length points) 3)
* Z- F$ w" u6 Y7 t6 q    (setq npoints (append
                npoints
                (list (list (car points) (cadr points) (caddr points))
                )
- P5 T& W9 B7 O0 O: ~- S              )
        points (cdddr points)
    )
" K; U# h$ q  s* u9 j  )
7 l# h/ ~: ?7 r) O/ B/ r$ r)
/ n+ o4 W5 ?. `4 H9 P(setq      points      npoints
) L* ~( d) _/ E/ t/ v% p     vpoints      (list (car points))
' x* D% I; Y, o0 A; a6 f     num      1
# Y  V  [) L1 \)
* r8 A9 |6 `; @/ A) ]3 l(if (> (setq str (length points)) 16)
  (progn
6 x3 v  \0 i3 y, [$ P0 ~    (setq num1 (fix (/ str 16)))
    (while (< num str)
: h2 r* v+ g1 a2 h     (if (= 0 (rem num num1))
. V3 z! A# y/ w6 ]2 E) O      (setq vpoints (append vpoints (list (nth (- num 1) points))))
     )
4 \0 U, Q# z- x3 t) v3 F2 E     (setq num (+ num 1))
    )
7 a8 y) m. o4 \4 j3 }  q1 v    (setq points (append vpoints (list (last npoints))))
- h* W3 u1 u! }0 U% _8 Y" z  )
. }" Q1 c5 `( C)
0 o1 P4 }, q) ^. Z* e(foreach num points
9 C3 ?9 W% Q; w0 F  @& _: g  (setq points (subst      (vlax-curve-getClosestPointTo ellobj num)
                 num
2 @0 H. u8 I0 e4 |2 T3 j4 Y1 P                 points
( ^5 R' [* V8 k$ r9 P! Y) l6 R            )
& A: o& r/ }  X6 i. n8 g/ j  )
)
/ L9 {, {; `9 D) H, n(princ points)
(setq      points (subst spoint
                (car points)
                (subst epoint (last points) points)
          )
; L. ]$ X  ~  }4 ?; q& L* W)
; ~* P7 y  P5 r) e& b: o. [8 _! q; e(foreach num points
  (setq 2dpoints
; X; z4 ?( }7 d  s7 k% d, y3 C        (append 2dpoints num)
  )
)
(setq      vpoints      (vlax-make-safearray
            vlax-vbdouble
            (cons 0 (- (length 2dpoints) 1))
" b- [- A" d$ i  {; @% U  ^           )
)
(vlax-safearray-fill vpoints 2dpoints)
" l9 o4 D9 \/ {( k1 \* p(setq plineobj (vla-addpolyline fcp::mspaceobj vpoints))
! O7 L/ N9 T3 L3 L(if (and (= (car spoint) (car epoint))
; ?) T% d# ~; }3 [  c6 R+ D7 ~        (= (cadr spoint) (cadr epoint))
    )
  (vla-put-closed plineobj :vlax-true)
)
(vla-put-type plineobj acfitcurvepoly)
; O, [/ a- I4 G9 Q# o% l% Z5 aplineobj
)

  Z& [* i+ g! m9 ~# l  B( m

再配上变量定义：
(vl-load-com)
(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)
  fcp::docobj     (vla-get-documents fcp::acadobj)
  fcp::blocksobj     (vla-get-blocks fcp::acaddocobj)
) x8 v( `5 p2 {' U* ~+ N+ L  fcp::layersobj     (vla-get-layers fcp::acaddocobj)
' Y  [, \' c+ e; F, A5 f7 Z$ F  fcp::textstyles     (vla-get-Textstyles fcp::acaddocobj)
  fcp::linetypes     (vla-get-linetypes fcp::acaddocobj)
  fcp::menugroupsel     (vla-get-menugroups fcp::acadobj)
$ v0 f8 c, z% K3 M2 p9 f  fcp::menugroup     (vla-item fcp::menugroupsel 0)
/ N0 k# @& n9 U  fcp::menuobj     (vla-get-menus fcp::menugroup)
) ^/ _( `; N& r- O7 \' a0 s" z)

xiaopan83

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

wuuuuu

3# supernova  的办法试验了一下。可以做到把椭圆转成样条曲线。
$ V# X" n3 }3 e) W' a+ U如果要多线段的话，还有一步，就是点击样条曲线，右键，编辑，转换成多线段。
要精度的话，选项值10左右就可以，不要精度的话，选项值0即可。
: B4 l6 b) N7 y
还有一招，将带有椭圆的图形，另存为 R12版本，再打开的时候，你会发现椭圆变成了多线段。
这一招也是学来的。