Script or lisp program for as-built drawing package
Since you did not reply, i assumed you still have difficulty to put all things together so here you have it all. attached zip file contain automod.lsp (did some fine tuning) + revdata.lsp + automod.scr. save these files in your document folder.
open automod.scr file in notepad, spot the lines starting with open? replace the file name with your files to be modify (see above how to copy and paste the a list of full path name from a folder).
what the script does is open the dwg, load automod.lsp, run the automod command, qsave and exit...handle next dwg
open "c:\projects\jonny walker\plans\p0.dwg"
(load "automod")
automod
qsave
quit y
open "c:\projects\jonny walker\plans\p1.dwg"
(load "automod")
automod
qsave
quit y
open "c:\projects\jonny walker\plans\p2.dwg"
(load "automod")
automod
qsave
quit y
open "c:\projects\jonny walker\plans\p3.dwg"
(load "automod")
automod
qsave
quit y
open "c:\projects\jonny walker\plans\p4.dwg"
(load "automod")
automod
qsave
quit y
open "c:\projects\jonny walker\plans\p5.dwg"
(load "automod")
automod
qsave
quit y
open "c:\projects\jonny walker\plans\p6.dwg"
(load "automod")
automod
qsave
quit y
open "c:\projects\jonny walker\plans\p7.dwg"
(load "automod")
automod
qsave
quit y
open "c:\projects\jonny walker\plans\p8.dwg"
(load "automod")
automod
qsave
quit y
open "c:\projects\jonny walker\plans\p9.dwg"
(load "automod")
automod
qsave
quit y
now for the last part, running the script
on your desktop copy & paste an AutoCAD XXXX shortcut, right click it and select properties. enter Start in and at end of the field (text) add /b automod
this tell AutoCAD to run the script file.
that's it job complete 😀
Moshe
@gv6823otG42ZL wrote:
- The first part of the program will remove all the rev clouds on each drawing. All the rev clouds exist on the same layer.
- The second ....
(defun c:NotInvited ( / _string _AttFunc aDoc _PutRev carCadr itIsAblock newRevData _date revNum
_RevBy _ApvBy revVal revBlock bname objType titleBlockData itIsAblock )
(defun _string (msg m / r)
(if (and
(setq r (getstring t (Strcat "\n" msg m ": ")))
(/= r "")) r
)
)
(defun _AttFunc (en lst / vals v)
(mapcar (function (lambda (at)
(setq vals (list (vla-get-tagstring at)(vla-get-textstring at) at))
(if (and lst (setq v (assoc (car vals) lst))) (vla-put-textstring at (cadr v))
) vals))
(vlax-invoke (if (eq (type en) 'VLA-OBJECT)
en (vlax-ename->vla-object en)) 'Getattributes)
)
)
(defun _PutRev (lst ls / f)
(foreach itm lst
(and (setq f (assoc (car itm) ls))
(vla-put-textstring (caddr f) (Cadr itm))
)
)
)
(setq n 0 _num (lambda (x)(atoi (cadr (assoc "REVNO" x))))
carCadr (lambda (n)(list (car n)(cadr n))))
(if (and
(setq _date (_string "Enter Date <M-YY>" ""))
(setq _RevBy (_string "Reviewed by" ""))
(setq _ApvBy (_string "Approved by" ""))
(progn
(while (and (< n 3)
(setq rev (_string "Description Line "
(itoa (setq n (1+ n))))))
(setq revVal (Cons (list (strcat "REVISION" (itoa n)) rev) revVal))
)
revVal
)
)
(progn
(setq newRevData (append revVal (mapcar 'list '("DATE" "REVBY" "APPDBY") (list _date _RevBy _ApvBy))))
(vlax-for itms (Vla-get-modelspace (vla-get-ActiveDocument (vlax-get-acad-object )))
(setq objType (vlax-get itms 'ObjectName))
(cond
((not (vlax-write-enabled-p itms)) )
((or
(and
(setq itIsAblock (eq "AcDbBlockReference" objType))
(eq (setq bname (strcase (vla-get-EffectiveName itms))) "CERTIFICATION MN-APPD")
)
(and (eq (vla-get-layer itms) "REV CURRENT") (eq "AcDbPolyline" objType))
)
(vla-delete itms)
)
((and itIsAblock (eq "TAD15" bname))
(setq titleBlockData (_AttFunc itms nil))
)
((and itIsAblock (eq "REVATTR" bname))
(setq revBlock (cons (_AttFunc itms nil) revBlock))
)
)
)
(and
(setq inc -1 revBlock (vl-sort revBlock '(lambda (a b) (> (_num a) (_num b)))))
(or (vl-some (function (lambda ( cd )
(setq inc (1+ inc))(/= (cadr (assoc "DATE" cd)) ""))) revBlock) inc)
(setq revNum (cadr (assoc "REVNO" (car revBlock))))
(cond
((zerop inc)
(foreach itm '("REVISION1" "REVISION2" "REVISION3")
(vla-put-textstring (caddr (assoc itm (car revBlock))) ""))
(mapcar '(lambda ( j k) (_PutRev j k))
(cons
(cons (list "REVNO" (setq revNum (itoa (1+ (atoi revNum))))) newRevData)
(mapcar '(lambda (d) (mapcar 'carCadr d)) revBlock)
) revBlock
)
)
((setq newRev (nth (1- inc) revBlock)) (_PutRev newRevData newRev)
)
)
)
(and titleBlockData (_PutRev (mapcar 'list '("DATE" "REV")(list _date revNum)) titleBlockData))
)
)
(princ)
)
HTH
Here is the error that i have been getting. The script is listed in that directory. Any ideas what's going on?
I have added the space at /b automod and it is still giving me the same error as above. The files are located within that folder as well. Any ideas?
@gv6823otG42ZL wrote:
....
- The first part of the program will remove all the rev clouds on each drawing. All the rev clouds exist on the same layer.
- The second part will remove the P.E stamp that is on each drawing. ....
For those, would a simple LAYDEL, or perhaps just Freezing the Layers, suffice?
