entlast on area command

[Anonymous]

Hi, 

I really don't understand why entlast doesn't work with the area command. The command stops after the boundary command...

(defun c:superficie (/ ent center)
(setq center (getpoint "Specify internal point"))
(command "_boundary" center "")
(setq ent (entlast))
(command "_area" "_o" ent)
(princ)
)

[Moshe-A]

maybe you do not need (setq ent (entlast))

try this:

(command "_area" "_object" "_last")

Moshe

[Anonymous]

it doesn't work...

[doaiena · Accepted solution]

Try this:

(defun c:test (/ ent center)
(setq center (getpoint "Specify internal point"))
(command "_boundary" center "")
(princ (strcat "\n" (rtos (vlax-get-property (vlax-ename->vla-object (entlast)) 'area) 2 4)))
(princ)
)

[john.uhden]

It worked for me in 2002.