another, delta
(defun c:tt (/ p1 p2 en obj )
(and
(setq p1 (getpoint "Specify point "))
(setq p2 (getcorner p1 "opposite corner "))
(setq en (entmakex (list '(0 . "LINE") (cons 10 p1) (cons 11 p2))))
(setq obj (vlax-ename->vla-object en))
(princ
(strcat
"\nArea="
(rtos
(apply '*
(mapcar
'(lambda (a b) (+ a (abs b)))
'(0 0) (vlax-get obj 'delta)
)
)
2
3
)
" M\U+00B2"
)
)
(entdel en)
)
(princ)
)
WCS