Hi,
I do not understand your request.
Can you explain more deeply why do you think the routine doesn't work as expected.
You're talking about the ellipse start angle which does not seem to be as you want.
The routine does not deals with the elliptical arc angles, only with start point and end point.
(setq cl (and (= (vla-get-StartAngle el) 0.0)
(= (vla-get-EndAngle el) (* 2 pi))
)
Humm???
I put here the case that is giving me problems, it may be easier for you to understand, because my English is very bad.
If you see the proprieties of the arc, the start angle it's 0, and the end angle its 180, so the dxf code should be:
(41 . 0.0) (42 . 3.14176))
and it is
(41 . -1.87175e-007) (42 . 3.14176))
I'm newbie in lisp, but I think the problem is there.