Lisp for Revision Box - Need help

[woodman78]

I was thinking of writing a routine that will show only ACTIVE rev lines + 1 Blank depending on the last current Rev number instead of Dynamic block with visibilty. What do you think?

That sounds very good pBe. We would only ever have one title block per layout but we could have 5 or 6 layouts per drawing. It may be the case that they don't always rev up the same though. It may be the case for instance a drawing we have L2472-LA-01,02,03_A0 would have all 3 layouts at rev A0. Then one of them might need to be changed and we would generally rev up only that one so we would have L2472-LA-01,02_A0,03_A1. It may be messy. Is there a better way of doing this? Thanks for all your help with this.

[woodman78]

Would it be the case that you could select the layouts you want to apply the changes to and leave the others as they are. Even by some kind of a list box or something. Does that get very messy in terms of coding? That is why I was thinking of dynamic blocks. The CTAB setting you gave me yesterday works for an individual tab which means I could control visibility in each. And if there was some way to also apply to all.

[pBe]

Would it be the case that you could select the layouts you want to apply the changes to and leave the others as they are. Even by some kind of a list box or something. Does that get very messy in terms of coding? .

Not at all messy. Doable Yes. Is that what you want?

That is why I was thinking of dynamic blocks. The CTAB setting you gave me yesterday works for an individual tab which means I could control visibility in each. And if there was some way to also apply to all.

The snippet at post # 15 will do that for you. (_sel arg1 arg2 arg3)
Do you already have a routine to change visibility? I could have sworn the file you attached is not a Dblock? or was it DWGTruview conversion the hosed the file?

Did you try the DCL code at post # 20?

[woodman78]

I tried the DCL and it looks good. I was only looking at dynamic blocks because I was thinking that it couldn't be done by layers since the layer would be turned on on the alyout that I didn't want to chagne too. But if it can be done by coding then that would be great.

Thanks.

[woodman78]

Hi pBe, did you get a chance to look at this?

[pBe]

Hi pBe, did you get a chance to look at this?

Not really Woodman78, All this time i thought your down with btraemoore approach of using coordintes to determine the last rev.

btraemoore, I like that. I could setup my block and drop them in as needed. How could I count? By taking the first blank attribute and setpping back one?

I personally would've done it differently, IMO targeting coordinates is not very reliable. But really, i wanted to see how you'll manage with that approach before I take another look at your reqeust.

Besides, I focused on your DCL instead of the lisp rouitne. So tell me, how did it go with the btraemoore suggestion?

[woodman78]

pBe. I don't like the coord approach either. Too many things to go wrong I think. I am going to try to press on with the dynamic block method. I have a rev-box dynamic block that I at the moment but when I load the lisp it won't recognise it. I changed the block name to be "rev-box" as the code but it won't detect it. Is it something to do with it being dynamic?

[woodman78]

pBe, another problem I am hvaing is that the dialog seems to keep reverting back to an earlier version. I have deleted the attab.dcl from my directory and pasted in your modified dcl and it might display your dcl once and then revert back to mine. I have replaced it a few times but this keeps happening. Any ideas? Is the code suing the old one?

EDIT: No worries I got this sorted.

[pBe]

pBe. I don't like the coord approach either. Too many things to go wrong I think. I am going to try to press on with the dynamic block method. I have a rev-box dynamic block that I at the moment but when I load the lisp it won't recognise it. I changed the block name to be "rev-box" as the code but it won't detect it. Is it something to do with it being dynamic?

Press away Woodman78.If you need our help here, we need a copy of your DB.

pBe, another problem I am hvaing is that the dialog seems to keep reverting back to an earlier version.

You probably have more than one copy of that DCL. especially if the call to dialog box is without a path. it will search on the current folder your working on then thru SFSP.

[woodman78]

pBe, this is what I have so far. I have used LeeMac's dynamic block functions to try to change the block visibility but I am having some problems. This is the dynamic block. EDIT: Since I made the block dynamic the code won't recognise it anymore.

(prompt "\nATTAB Loaded....Type ATTAB to run.....")
(defun c:attab12 (/)
 (setq ss1 (ssget "X" (list '(0 . "INSERT")'(66 . 1)'(2 . "rev-box")(cons 410  (getvar 'CTAB)))))

  (if ss1

    (progn

      (setq count 0
	    emax  (sslength ss1)
      )

      (while (< count emax)

	(setq en   (ssname ss1 count)
	      ed   (entget en)
	      blkn (dxf 2 ed)
	)

	(if (= "rev-box" blkn)

	  (setq	count emax
		found T
	  )

	  (setq count (1+ count))

	);if

      );while

      (if found

	(ddisplay)

	(alert
	  "\nDrawing Sheet has No Attributes
            \n     Use Manual Edit"
	)

      );if

    );progn

    (alert
      "\nIncorrect Drawing Sheet
      \n    Use Manual Edit"
    )

  );if

(princ)

);defun

;;;**********************************************************

(defun ddisplay (/)

  	(setq dcl_id (load_dialog "attab12.dcl"))

  	(if (not (new_dialog "attab12" dcl_id))

    	(exit)

  	);if
	(setq edata (entget en))
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  	(action_tile "rbl9" "(setq visistate \"Line9\")")	
  	(action_tile "rbl8" "(setq visistate \"Line8\")")	
  	(action_tile "rbl7" "(setq visistate \"Line7\")")	
  	(action_tile "rbl6" "(setq visistate \"Line6\")")	
  	(action_tile "rbl5" "(setq visistate \"Line5\")")	
  	(action_tile "rbl4" "(setq visistate \"Line4\")")	
  	(action_tile "rbl3" "(setq visistate \"Line3\")")	
  	(action_tile "rbl2" "(setq visistate \"Line2\")")	
 	(action_tile "rbl1" "(setq visistate \"Line1\")")	
(LM:SetVisibilityState rev-box visistate)
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L1-Rev (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L1-By (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L1-Date (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L1-Description (dxf 1 edata))
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L2-Rev (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L2-By (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L2-Date (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L2-Description (dxf 1 edata))
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L3-Rev (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L3-By (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L3-Date (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L3-Description (dxf 1 edata))
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L4-Rev (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L4-By (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L4-Date (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L4-Description (dxf 1 edata))
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L5-Rev (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L5-By (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L5-Date (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L5-Description (dxf 1 edata))
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L6-Rev (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L6-By (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L6-Date (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L6-Description (dxf 1 edata))
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L7-Rev (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L7-By (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L7-Date (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L7-Description (dxf 1 edata))
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L8-Rev (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L8-By (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L8-Date (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L8-Description (dxf 1 edata))
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L9-Rev (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L9-By (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L9-Date (dxf 1 edata))
	  (setq edata (entget (entnext (dxf -1 edata))))
	  (setq L9-Description (dxf 1 edata))
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (set_tile "L1-Rev" L1-Rev)
  (set_tile "L1-By" L1-By)
  (set_tile "L1-Date" L1-Date)
  (set_tile "L1-Description" L1-Description)
  (set_tile "L2-Rev" L2-Rev)
  (set_tile "L2-By" L2-By)
  (set_tile "L2-Date" L2-Date)
  (set_tile "L2-Description" L2-Description)
  (set_tile "L3-Rev" L3-Rev)
  (set_tile "L3-By" L3-By)
  (set_tile "L3-Date" L3-Date)
  (set_tile "L3-Description" L3-Description)
  (set_tile "L4-Rev" L4-Rev)
  (set_tile "L4-By" L4-By)
  (set_tile "L4-Date" L4-Date)
  (set_tile "L4-Description" L4-Description)
  (set_tile "L5-Rev" L5-Rev)
  (set_tile "L5-By" L5-By)
  (set_tile "L5-Date" L5-Date)
  (set_tile "L5-Description" L5-Description)
  (set_tile "L6-Rev" L6-Rev)
  (set_tile "L6-By" L6-By)
  (set_tile "L6-Date" L6-Date)
  (set_tile "L6-Description" L6-Description)
  (set_tile "L7-Rev" L7-Rev)
  (set_tile "L7-By" L7-By)
  (set_tile "L7-Date" L7-Date)
  (set_tile "L7-Description" L7-Description)
  (set_tile "L8-Rev" L8-Rev)
  (set_tile "L8-By" L8-By)
  (set_tile "L8-Date" L8-Date)
  (set_tile "L8-Description" L8-Description)
  (set_tile "L9-Rev" L9-Rev)
  (set_tile "L9-By" L9-By)
  (set_tile "L9-Date" L9-Date)
  (set_tile "L9-Description" L9-Description)

  (mode_tile "L1-Rev" 2)
  (action_tile
    "cancel"
    "(done_dialog) (setq userclick nil)"
  )
  (action_tile
    "accept"
    (strcat
      "(progn (setq L1-Reva (get_tile \"L1-Rev\"))"
      "(setq L1-Bya (get_tile \"L1-By\"))"
      "(setq L1-Datea (get_tile \"L1-Date\"))"
      "(setq L1-Descriptiona (get_tile \"L1-Description\"))"
      "(setq L2-Reva (get_tile \"L2-Rev\"))"
      "(setq L2-Bya (get_tile \"L2-By\"))"
      "(setq L2-Datea (get_tile \"L2-Date\"))"
      "(setq L2-Descriptiona (get_tile \"L2-Description\"))"
      "(setq L3-Reva (get_tile \"L3-Rev\"))"
      "(setq L3-Bya (get_tile \"L3-By\"))"
      "(setq L3-Datea (get_tile \"L3-Date\"))"
      "(setq L3-Descriptiona (get_tile \"L3-Description\"))"
      "(setq L4-Reva (get_tile \"L4-Rev\"))"
      "(setq L4-Bya (get_tile \"L4-By\"))"
      "(setq L4-Datea (get_tile \"L4-Date\"))"
      "(setq L4-Descriptiona (get_tile \"L4-Description\"))"
      "(setq L5-Reva (get_tile \"L5-Rev\"))"
      "(setq L5-Bya (get_tile \"L5-By\"))"
      "(setq L5-Datea (get_tile \"L5-Date\"))"
      "(setq L5-Descriptiona (get_tile \"L5-Description\"))"
      "(setq L6-Reva (get_tile \"L6-Rev\"))"
      "(setq L6-Bya (get_tile \"L6-By\"))"
      "(setq L6-Datea (get_tile \"L6-Date\"))"
      "(setq L6-Descriptiona (get_tile \"L6-Description\"))"
      "(setq L7-Reva (get_tile \"L7-Rev\"))"
      "(setq L7-Bya (get_tile \"L7-By\"))"
      "(setq L7-Datea (get_tile \"L7-Date\"))"
      "(setq L7-Descriptiona (get_tile \"L7-Description\"))"
      "(setq L8-Reva (get_tile \"L8-Rev\"))"
      "(setq L8-Bya (get_tile \"L8-By\"))"
      "(setq L8-Datea (get_tile \"L8-Date\"))"
      "(setq L8-Descriptiona (get_tile \"L8-Description\"))"
      "(setq L9-Reva (get_tile \"L9-Rev\"))"
      "(setq L9-Bya (get_tile \"L9-By\"))"
      "(setq L9-Datea (get_tile \"L9-Date\"))"
      "(setq L9-Descriptiona (get_tile \"L9-Description\"))"

     " (done_dialog)(setq userclick T))"
    )
  )

follows below