Revcloud multiple objects?

[sarra.cenia464163]

Hi everyone,

I'm new to the site but have been reading threads for a while.

I'm wondering if anyone knows of a lisp for applying the revcloud tool to multiple objects (polylines) at once. I use the revcloud tool in planting design to turn polylines into planting masses, and I typically have hundreds of polylines to convert at once (tedious!).

Thanks in advance!

Sal

[Tharwat]

This would do the job on many objects that the command revcloud can be implemented on .

(defun c:TesT (/ ss i)
  (if (setq ss (ssget '((0 . "LINE,*POLYLINE,CIRCLE,ELLIPSE,SPLINE,ARC"))))
    (repeat (setq i (sslength ss))
      (command "_.revcloud" "" (ssname ss (setq i (1- i))) "")
    )
  )
  (princ)
)

and if you want it just on Polylines , just remove the other name of entities like this .

 (setq ss (ssget '((0 . "*POLYLINE"))))

Note: do not forget to have the arc length smaller than the length of entities to avoid any pause of the routine .

Good luck .

Tharwat

[Arterius]

Hi,

very helpful routine!

But how can I set arc length and cloud style during your command, like in standard command?

Many thanks.

[Tharwat]

Hi,

very helpful routine!

But how can I set arc length and cloud style during your command, like in standard command?

Many thanks.

You're welcome .

just adjust the settings of the command for once and the routine would use the settings as well .

[Arterius]

Hi,

yes I know I can set it and than use your routine, but sometimes I need to draw revclouds with different size (for small and large elements on drawing). My idea was to start revision cloud command, adjust size and style (like in standard command) and than select a few polylines, circles etc using one area section. Everything under one command