;;供参考
(defun C:EEE (/ A B N XX YY PT)
(setq A 50.0)
(setq B 25.0)
(setq N 0.0)
(repeat 360
(setq XX (* A (cos (/ (* N pi) 180.0))))
(setq YY (* B (sin (/ (* N pi) 180.0))))
(setq PT (list XX YY))
(command "_.POINT" PT)
(setq N (1+ N))
)
)
;;;p(u)=(Cx+a*cos(u))*i+(Cy+b*sin(u))*j