LISP REQUEST : Revcloud and insert a evision Tag

[Orzabal]

Hello all;

i found this LISP over the internet at Swamp :
http://www.theswamp.org/index.php?to...0307#msg480307

what it does is you make a Rectangular / Polygonal Revcloud and you have the Option to enter your own Arc Lenghts
am wondering if it can be modified to add a Attribute Block after creating the cloud.

what i want is this, if it is not too much :

1. Issue the command
2. Ask for a Revision Number
3. Add that revision number to the to be inserted attib block and also make a new layer in this format : A_RevCloud-(rev.no), if the Layer is existing, warn the user, if not, create the layer
4. Ask where to put (Model or Paper Space)
5. Do the revision cloud based on the lisp stated above
6. Ask for the insertion point of the Attrib. Tag

my attrib tag is saved in the autocad support folder, RevTag.dwg


Thanks in advance to anyone who will assist me!
more power to all!

[pbejse]

I guess you would stand a better chance replying on the original thread Orzabal. The addition you rquire isn't that difficult.

[Orzabal]

hello pbejse;

i tried to register to that site but i cant't. don't know why.
that is why i posted it here

[Opie]

Have you searched these forums? I created something similar a few years back.

[Orzabal]

Have you searched these forums? I created something similar a few years back.

i did last night but can't find anything sorry...

[tedg]

I wrote a routine (with some help here in AUGI) that you draw a revcloud in paperspace and place a rev triangle, and asks for input for revsion number.
If you're still looking for one tomorrow, and you would like it, I'll post it, I'm not at a place where I can upload it now.

[ccowgill]

Have you searched these forums? I created something similar a few years back.

As did I..

[tedg]

Hello all;

i found this LISP over the internet at Swamp :
http://www.theswamp.org/index.php?to...0307#msg480307

what it does is you make a Rectangular / Polygonal Revcloud and you have the Option to enter your own Arc Lenghts
am wondering if it can be modified to add a Attribute Block after creating the cloud.

what i want is this, if it is not too much :

1. Issue the command
2. Ask for a Revision Number
3. Add that revision number to the to be inserted attib block and also make a new layer in this format : A_RevCloud-(rev.no), if the Layer is existing, warn the user, if not, create the layer
4. Ask where to put (Model or Paper Space)
5. Do the revision cloud based on the lisp stated above
6. Ask for the insertion point of the Attrib. Tag

my attrib tag is saved in the autocad support folder, RevTag.dwg


Thanks in advance to anyone who will assist me!
more power to all!

Here is the routine I referred to in my provious post.
This puts you in paperspace, sets cloud arc is .375", creates or set layer to G-ANNO-REVS, asks you to draw your polyline (which turns into revcloud).
You will need to modify it to meet your needs, this calls up a block defiinition (.dwg) called "REVTAG"

(defun C:rc (/ arc)
(setq lyr (getvar "clayer"))
(setvar "tilemode" 0)
(setvar "attreq" 1)
(setvar "attdia" 1)
(command "_pspace")
   (setq arc 0.375); rev cloud arc set to .375"
   (if
     (=
       (tblsearch "layer" "G-ANNO-REVS")
       nil)
(command "-layer" "make" "G-ANNO-REVS" "color" "5" "" "lw" "0.5" "" "lt" "continuous" "" "")
     );look for this layer if not found, create it, set it current
        (command "_.PLINE"); draw pline
     (while (= (getvar "CMDNAMES") "PLINE")
       (command pause)
     )
     (command "-layer" "set" "G-ANNO-REVS" "") 
     (command "pedit" "l" "c" "")
     (command "._REVCLOUD" "a" arc "" "O" (entlast) "N");change pline into revcloud)
(command "-insert" "c:\\lisp\\REVTAG" pause "" "" "") ;;<---need to modify to your block and path here
(setvar "clayer" lyr)
)
(princ)

Hope this helps

[Orzabal]

Thanks ccowgill and tedg;

i will try this out..

but honestly i am more comfortable with the routine in the link that i've posted
i'll see if i can combine these two routines...hopefully.

coz am not that knowledgable in Lisping

[pbejse]

Ask where to put (Model or Paper Space)

That is the part i don't really understand Orzabal.

Try this link
http://forums.augi.com/search.php?searchid=121737

according to Opie he wrote something similar. I hadn't had a chance to browse thru them, theres only 7.. well 6 if you dont count this thread which includes the keyword "revcloud" and user "Opie".

HTH

but honestly i am more comfortable with the routine in the link that i've posted

well....