Dinaminiai blokai

Turime n brėžinių kuriuose yra įdėtas tas pats blokas, tas blokas yra atskiras failas. Tarkim  pakoregavome įdėtini bloką-failą, ir reikia kad atnaujinimai pasikeistu visuose n brėžiniuose


Tai atliksime su Lisp kodu


;(DWG filas turi buti "search path" autocado direktorijoje)
;
(defun C:BLKREF ( / blkname cmde)
 (setq cmde (getvar "cmdecho"))
 (setvar "cmdecho" 0)
 (setq blkname (getstring "\nBlok vardas: "))
 (if (tblsearch "block" blkname)
  (progn
   (command "._-insert" (strcat blkname "=") "_y" nil "_regen")
   (princ (strcat "\nBlock " (strcase blkname) " redefined."))
  )
  (princ "Blokas nerastas.")
 )
 (setvar "cmdecho" cmde)
 (prin1)
)