Match Crop Object Class to Viewport Class

[Pat Stanford 590]

This script will match the class of every crop object in a drawing to the class of its respective viewport.

Procedure MatchCropClassToViewport;

{This script will set the class of the crop object of every viewport in a drawing }
{to the class of its  viewport. It works for both sheet layer and design layer viewports.}
{This is useful to help ease visibility issue regarding crop objects and make them easier}
{to find and edit or delete.}
{? 2009, Coviana, Inc - Pat Stanford pat@coviana.com}
{Licensed unde the GNU Lesser General Public License}

Procedure SetCropClass(VPHand:Handle);

 Var  CropHand 				: Handle;	

 Begin
CropHand:=GetVPCropObject(VPHand);
If CropHand <> nil then
	Begin
        		SetClass(CropHand,GetClass(VPHand));
	End;
 End;


Begin
ForEachObject(SetCropClass,(((PON='NNA_DesignLayerViewport')|(T=VIEWPORT))));
End;


Run (MatchCropClassToViewport);

[Ray Libby 1]

Thanks Pat, great work! This is going to be very valuable.

[ccroft 0]

Quick question if you please (too tired to research)

What is criteria PON?

[Pat Stanford 590]

I believe it is a Plug-in Object usage would be:

PON='Door'

to get all the door objects.

[gmm18 0]

Hey Pat,

I have used this script on a file that was started by someone else, very helpful

in the cleaning-up process.

But now all of the crop objects have a solid line, and I have been trying to figure out

how to modify your script to change the pen attributes to 'none' for all viewport

crops, but, of course I am not getting it.

Any recommendations?

Thanks...

[Pat Stanford 590]

Right under the line:

SetClass(CropHand,GetClass(VPHand));

Add a new line (Note that is a Zero):

SetLS(CropHand,0);

[gmm18 0]

ahhhhh....

Thanks Again!