Need to Cloud all selected rectangles in single selection!

[cadamrao]

I need to cloud number of objects different lengths, can I get any program LISP to convert all objects (rectangles) into cloud in single selection with required arc length.

Advance thanks

amr

[Tharwat]

Here it goes ......

 

(defun c:Test (/ ss l)
 ; Tharwat 28. 04. 2011
 (if (and
       (setq ss
              (ssget "_:L" '((0 . "LWPOLYLINE"))))
       (setq l
              (getdist "\n Specify Arc Length :"))
     )
   (
    (lambda (i / ss1)
      (while
        (setq ss1 (ssname ss (setq i (1+ i))))
         (command "_.revcloud" "_a" l "" "" ss1 "_No")
      )
    )
     -1
   )
   (princ "\n No LWPolyline(s) selected")
 )
 (princ)
)

 

TharwaT

[Tharwat]

Be careful not specify the Arc Length longer than Rectangles it self .

TharwaT