delet clouds

delet clouds

dvir860
Enthusiast Enthusiast
863 Views
1 Reply
Message 1 of 2

delet clouds

dvir860
Enthusiast
Enthusiast

Is there an option to delete the all revclouds through Lisp or AutoCAD command?

 

Dvir.

0 Likes
864 Views
1 Reply
Reply (1)
Message 2 of 2

Kent1Cooper
Consultant
Consultant

@dvir860 wrote:

Is there an option to delete the all revclouds through Lisp or AutoCAD command?

....


The easiest way is if you put them on a dedicated Layer, but assuming it's too late for that....

 

Revclouds, as initially drawn, are LWPolylines made up of all arc segments with the same bulge factor.  That can be positive or negative, depending on how the Revcloud was drawn and whether the bulges go out or in, but the absolute value will be the same.  This will find all LWPolylines that contain any arc segment(s) of that bulge factor, and select and highlight them:

 

(sssetfirst nil (ssget "_X" '((-4 . "<OR") (42 . 0.52056705) (42 . -0.52056705) (-4 . "OR>"))))

 

and for most people, most of the time, that would find just what you want, so you could do that and hit the Delete key or use Erase.  That could be built into a command definition that would include the deleting of them, not just selecting/highlighting them.

 

It would be a pretty remarkable coincidence if you happen to have any Polylines that are not Revclouds but that contain any arc segment(s) with exactly that bulge factor [a 110-degree included angle], though it's certain possible.  [Or if you have any other entity types with a code-42 entry of exactly that value -- you could add LWPolyline entity-type filtering to avoid that.]  Conversely, you could have some that are Revclouds but have been modified so that all segments have had their bulge factors changed [in newer versions, requiring REVCLOUDGRIPS to be set to OFF] -- the above will not find those.

Kent Cooper, AIA
0 Likes