23.05.2014 06:18    

arkadaşlar alan için kullandığım lisp aşağıdaki gibi autocad 2015 kullanıyorum ve alan sorguladığımda program kitlenip kalıyor lisp de nerde hata var anlayamadım...

(defun c:ff()
(setq yaz nil)
(setvar "cmdecho" 0)
;;(command "layer" "set" "BILGI" "")
;;;(command "'_style" "arial" "arial" 0.50 "1" "" "" "" "" "")
(setq alan2 0
alan 0
)
(setvar "TEXTSIZE" 1.50)
(setq os(getvar "osmode"))

(command "osnap" "")
(ddff)
)
(defun ddff()
(setq pp(getpoint "\nalan icini isaretle:"))
(while (BPOLY pp)
(progn
(setq nn(entlast))
(command "area" "e" "l")
(setq alan(rtos (getvar "AREA") 2 3)
alan(atof alan)
)
(command "change" nn "" "p" "color" 2 "")
(setq alan2(+ alan2 alan))

(setq yazalan(strcat (rtos alan2 2 2)))
(princ "\n")
(princ yazalan)
(setq pp(getpoint "\nalanici"))
(entdel nn)
))


(setq yer(getpoint "\n yazilacak yeri isaretle:"))
(setq
ya(strcat (rtos alan2 2 3) " m²")
)
(command "text" yer 0.00 ya)
(setvar "osmode" os)

;;;(command "'_style" "arial" "arial" 0.50 "" "" "" "" "")
)