Custom Rev Cloud

Custom Rev Cloud

joe_kohli
Advocate Advocate
606 Views
3 Replies
Message 1 of 4

Custom Rev Cloud

joe_kohli
Advocate
Advocate

I use a tremendous amount of rev clouds in my drawings I do for work. I have several different layers that they all fall under. I am trying to simplify and make the process much easier and quicker. Here is how I use my rev clouds when I am making a change to a drawing:

 

If it is just a simple cloud (square or circular) then I do this:

Select RevCloud icon

Resize the ARC to 0.1875

Change the width to 0.02

Change the layer to "Piping"  (or whatever other layer I choose)

 

 

If it is just a complex cloud (with many bends and twist) then I do this:

Draw a polyline around the area

Convert polyine to revcloud

Change the ARC to 0.1875

Change the width to 0.02

Change the layer to "Piping" (or whatever other layer I choose)

 

 

Is there a way to make this a preset so I can place it into a Tool Palette. For example, from the tool palette, I would select it and it would draw a RevCloud in the layer and settings I showed above and it would draw it just like a polyline draws out? I want it to act like a linetype so that I can just drag and drop from the TP and start drawing but it would be all in "Revcloud" format. 

 

I would even be ok designing a new line type that basically mimics a Revcloud, however, I do need it to act like a polyline where it would be one entity (so I can quickly select the whole cloud and edit or delete it).

0 Likes
607 Views
3 Replies
Replies (3)
Message 2 of 4

VincentSheehan
Advisor
Advisor

You could create a lisp then create a Tool Palette button to load the lisp.

 

(defun c:rvcl (/ )
(command "-layer" "set" "PIPING" "")
(command "revcloud" "a" "0.1875" "0.1875" "o" pause)
(command "no")
(command "_LayerP")
(command "pedit" "last" "width" "0.02" "")
)

Vincent Sheehan

Sr. Civil Designer
Poly In 3D Blog

0 Likes
Message 3 of 4

joe_kohli
Advocate
Advocate

Where would you place the lisp file? I tried to replace the macro line in the "freehand" revcloud button with this format: 

 

^c^c^p (load "mypath\mylispprogram")

 

But it did not work. I just need some guidance on how I would achieve this to make it work.

 

joe_kohli_0-1718624243093.png

 

0 Likes
Message 4 of 4

Kent1Cooper
Consultant
Consultant

@joe_kohli wrote:

....

^c^c^p (load "mypath\mylispprogram")

....


Inside Autolisp functions, use either a double backslash or a forward slash as a file path separator.

Kent Cooper, AIA
0 Likes