topic Re: Custom Rev Cloud in Visual LISP, AutoLISP and General Customization Forum

Custom Rev Cloud

joe_kohli — Fri, 14 Jun 2024 14:51:29 GMT

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).

Re: Custom Rev Cloud

VincentSheehan — Fri, 14 Jun 2024 15:44:53 GMT

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" "") )

Re: Custom Rev Cloud

joe_kohli — Mon, 17 Jun 2024 11:37:26 GMT

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.

Re: Custom Rev Cloud

Kent1Cooper — Mon, 17 Jun 2024 12:10:11 GMT

@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.