HI
(defun C:test ()
(IF(AND
(setq ent1 (car (entsel "\nSelect Closed LWPolyline1 : "))
obj1 (vlax-ename->vla-object ent1)
);end_setq
(setq ent2 (car (entsel "\nSelect Closed LWPolyline2 : "))
obj2 (vlax-ename->vla-object ent2)
);end_setq
)
(PROGN
(setq ipt (getpoint "\nSelect TEXT Insertion Point: "))
(command "text" "_mc"
ipt
1
"0"
(strcat "\n calculate"
"\n -----------------------"
(strcat "\n Calculate = " (rtos (* 1000 (/ (vlax-curve-getarea ent1) (vlax-curve-getarea ent2))) 2 2) " \U+2030")
)
)
))
(princ)
)