Ejemplo de autolisp

Ejemplo para sacar area de una polilinia

;
(defun C:AREA (/ #ENT #AA #CV #UN #PT #TXT #ECHO #OLDERR @NEWERR)

(defun @NEWERR (%A)
(setq *error* #OLDERR)
(setvar "cmdecho" #ECHO)(cond
((= %A "Function cancelled") nil)
(T (princ (strcat "\nerror: " %A ":\n"))))
(princ))

(setq #OLDERR *error*)
(setq #ECHO (getvar "cmdecho"))

(setq *error*@NEWERR)
(setvar "cmdecho" 0)
(setq #ENT (car (entsel "\nPick an object for an area: ")))

(if #ENT
(if (member (cdr (assoc 0 (entget #ENT)))
(list "ELLIPSE" "CIRCLE""LWPOLYLINE" "POLYLINE"))
(progn
(command "_.area" "_o" #ENT)

(setq #AA (getvar "area")
;#CV (getreal "\nEnter a conversion factor: ")
#UN(getstring T "\nEnter the type of units: ")
#PT (getpoint "\nEn donde se colocara el texto: "))
(if (not #CV)
(setq #CV 1.0))
(if (/= #UN "")
(setq#TXT (strcat (rtos (* #AA #CV)) " " #UN))
(setq #TXT (rtos (* #AA #CV))))

(entmake (list (cons 0 "TEXT")
(cons 10 #PT)
(cons 40(getvar "TEXTSIZE"))
(cons 1 #TXT))))))

(setq *error* #OLDERR)
(setvar "cmdecho" #ECHO)

(princ))


;;; Uncomment for the language needed.
;(princ"\n\nARA‚ð“ü—Í‚µ‚ÄŠJŽn") ; For Japanese.
(princ "\n\nType ARA to start.") ; For English.

(princ)



Comando "regen" en AUTOCAD


Seguro que alguna vez trabajando en AUTOCAD con curvas y circunferencias os ha ocurridoque tras un cierto periodo de tiempo las curvas se ven como una sucesión de líneas rectas y las circunferencias como polígonos.

Esto ocurre sobretodo cuando estamos trabajando con archivospesados y con muchos elementos. Lo que ocurre es que AUTOCAD "simplifica" el dibujo para poder trabajar más rápido mostrando los elementos curvos como polígonos que requieren muchos menos...