Ola... sou novo aqui no Forum, gostaria de juntar estes dois lisp em um só.
Para ficar da seguinte forma:
Camando: ???
Clique no centro da Área:
Confirna a Área? Sin/Não: "s"


(neste momento calcularia a área, colocando-a no ponto clicado.)
(criaria um layer com a "boundary" gerada, fazendo a seguintes perguntas


Parte? "1"
Layer? "area"


(então fiacaria o layer "area1" com poligno(boundary) dentro dele.)


ficarei grato pela ajuda


;;; Cálculo de área em Hectares


(defun c:HA( / )

(setq ponto (getpoint "\nClique no centro da Área :"))


(command "color" "yellow" "")
(command "boundary" ponto "")


(command "area" "o" "last")
(command "color" "ByLayer" "")
(setq CONF "S")
(initget 1 "S s N n")
(setq CONF(getkword "\nConfirma?Sim/Não: "))
(command "erase" "last" "")

(if (or (= CONF "S") (= CONF "s"))
(progn

(setq a (getvar "area"))
(setq a (/ a 10000.00))
(setq a (rtos a 2 2))

(setq final (strcat a " Ha"))


(command "_.text" "M" ponto "" "90" final)
)
)
(princ)
)




(defun c:SETL (/ cnt int lname pref)
(setq int (getint "\nParte?: "))
(setq pref (getstring T "\nLayer: "))
(setq cnt 0)
(while (< cnt int)
(setq cnt (1+ cnt))
(setq lname (strcat pref (itoa cnt)))
(if (not (tblsearch "LAYER" lname))
(command "._layer" "_M" lname "_C" (itoa cnt) lname "_Lt" "Continuous" lname ""))
)
(princ)
)