Revion Cloud and Tag Lisp Not Working

[jsetti01]

I have modified this code I found somewhere to fit my needs of being able to insert a revision cloud on an addendum layer with the proper name and freeze previous addendums. I want to be able to add my Revision tag with the same number and it is not working. The lisp command never asks where to insert the tag and it does not show up. Can someone point me in the right direction. Appreciate any pointers greatly. I have Attachhed my Revision Tag block and a screen capture of my Command Line so you could see what was going on. Thank You again.

 

 

 

(defun C:Rev (/ strLayer strRevision )
(setq strRevision (getstring "\nEnter Revision Number: "))
(setq strLayer     (strcat "Addendum-" strRevision))
(command "-layer" "m" strLayer "c" 3 strLayer "f" "Addendum*" "")
(command "revcloud" pause)    
(setvar "attdia" 0)
(command "-insert" "Revision Tag1" pause (getvar "dimscale") "" 0 strRevision)
(setvar "attdia" 1)
(princ)
)

Revision Tag1.dwg

[marko_ribar]

Look, I can't open your Revision Tag1.dwg as I here on my vacation in Greece have on netbook only A2008... But if your block you want to be inserted have appropriate Attribute for revision, this should work...

 

(defun C:Rev ( / strLayer strRevision )
(setq strRevision (getstring "\nEnter Revision Number: "))
(setq strLayer (strcat "Addendum-" strRevision))
(command "_.-layer" "_m" strLayer "_c" 3 strLayer "_f" "Addendum*" "")
(command "_.revcloud")
(while (> (getvar 'cmdactive) 0) (command "\\"))
(setvar 'attdia 0)
(if (findfile "Revision Tag1.dwg")
 (command "_.-insert" "Revision Tag1" pause (getvar "dimscale") "" 0 strRevision)
 (alert "Revision Tag1.dwg can't be found in support search path, please place *.dwg in appropriate folder and try again...")
)
(setvar 'attdia 1)
(princ)
)

 

HTH, M.R.

[jsetti01]

It works perfectly thank you, One question however. I want to be able to name the plot style in the layer creation and am not sure how to add the requirements to the line in the code where the layer is made. I know I want _PS to get the plot style made. The plotstyle I want the addendum on is named "text" I just cant seem to get it on the line and have the lisp still work.

 

Thank You,

Jim