Jump to content
Sign in to follow this  
Pat Stanford

Match Crop Object Class to Viewport Class

Recommended Posts

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;	

If CropHand <> nil then


Run (MatchCropClassToViewport);

Share this post

Link to post

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?


Share this post

Link to post

Right under the line:


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


Share this post

Link to post

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  


7150 Riverwood Drive, Columbia, Maryland 21046, USA   |   Contact Us:   410-290-5114


© 2018 Vectorworks, Inc. All Rights Reserved. Vectorworks, Inc. is part of the Nemetschek Group.

  • Create New...