How can I circle or put revcloud in multiple selected objects individually

josue777torsan — Wed, 15 Apr 2020 23:10:43 GMT

I need a Lisp to circle or put revcloud in multiple selected objects individually.

Something like this lisp from Leemac but in objects individually.

Thanks.

Re: How can I circle or put revcloud in multiple selected objects individually

Kent1Cooper — Thu, 16 Apr 2020 11:52:31 GMT

For orthogonal rectangular boxes [as a start], you can use DrawBoundingBox.lsp with its DBB command, >here<. You can pick as many things as you want, and it will draw them around each one. [The DBBM command will draw the collective single box around the extent of all of them.]

If you want a Circle through the opposite corners of each bounding box, use this variant:

(defun C:DBC (/ ss n); = Draw Bounding Circle(s) around selected object(s) (prompt "\nTo Draw Bounding Circle(s) around selected object(s),") (if (setq ss (ssget)) (repeat (setq n (sslength ss)) (vla-getboundingbox (vlax-ename->vla-object (ssname ss (setq n (1- n)))) 'minpt 'maxpt) (command "_.circle" "_2P" "_none" (trans (vlax-safearray->list minpt) 0 1) "_none" (trans (vlax-safearray->list maxpt) 0 1) ); command ); repeat (prompt "\nNothing selected."); else ); if (princ) ); defun -- C:DBC

Then, if you want a Revcloud conversion of the bounding whatever-it-is, use these:

(defun C:DBCR (/ ss n cr); = Draw Bounding Circular Revcloud(s) around selected object(s) (prompt "\nTo Draw Bounding Circular Revcloud(s) around selected object(s),") (if (setq ss (ssget)) (repeat (setq n (sslength ss)) (vla-getboundingbox (vlax-ename->vla-object (ssname ss (setq n (1- n)))) 'minpt 'maxpt) (command "_.circle" "_2P" "_none" (trans (vlax-safearray->list minpt) 0 1) "_none" (trans (vlax-safearray->list maxpt) 0 1) ); command (setq cr (entlast)) (command "_.revcloud" "_object" "_last" "_no" "_.erase" cr "" ); command ); repeat (prompt "\nNothing selected."); else ); if (princ) ); defun -- C:DBCR (defun C:DBRR (/ ss n rec); = Draw Bounding Rectangular Revcloud(s) around selected object(s) (prompt "\nTo Draw Bounding Rectangular Revcloud(s) around selected object(s),") (if (setq ss (ssget)) (repeat (setq n (sslength ss)) (vla-getboundingbox (vlax-ename->vla-object (ssname ss (setq n (1- n)))) 'minpt 'maxpt) (command "_.rectangle" "_none" (trans (vlax-safearray->list minpt) 0 1) "_none" (trans (vlax-safearray->list maxpt) 0 1) ); command (setq rec (entlast)) (command "_.revcloud" "_object" "_last" "_no" "_.erase" rec "" ); command ); repeat (prompt "\nNothing selected."); else ); if (princ) ); defun -- C:DBRR

The box versions do the orthogonal bounding box, not the minimal one possibly at a non-orthogonal one made by Lee Mac's routine. If that is needed, I could make an individual-object variant of my version of that, at the link in Message 4 of the thread linked at the top of this message, and add the Revcloud conversion.

Re: How can I circle or put revcloud in multiple selected objects individually

Kent1Cooper — Thu, 16 Apr 2020 14:27:13 GMT

I should mention that you need to have reasonable REVCLOUD Arc-size settings in place first.

Re: How can I circle or put revcloud in multiple selected objects individually

josue777torsan — Thu, 16 Apr 2020 18:19:45 GMT

Great! Thanks.

topic How can I circle or put revcloud in multiple selected objects individually in AutoCAD Forum

How can I circle or put revcloud in multiple selected objects individually

Re: How can I circle or put revcloud in multiple selected objects individually

Re: How can I circle or put revcloud in multiple selected objects individually

Re: How can I circle or put revcloud in multiple selected objects individually