(defun ex_curvearea () (vl-load-com) (setq ent1 (car (entsel "¥n円か楕円をクリック:"))) (setq vlaobj1 (vlax-ename->vla-object ent1)) (vlax-curve-getArea vlaobj1) )