Jump to content

Set Viewports to None Class


Recommended Posts

By request, here is a script that will set the class of every viewport in a drawing to the None class.

Procedure MatchCropClassToViewport;

{This script will set the class of every viewport in a drawing to the None Class}

{? 2009, Coviana, Inc - Pat Stanford pat@coviana.com}
{Licensed unde the GNU Lesser General Public License}

Procedure SetCropClass(VPHand:Handle);

	Begin
		SetClass(VPHand,'None');

	End;


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


Run (MatchCropClassToViewport);

Link to comment
  • 1 month later...
  • 7 years later...

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.

Guest
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.

×
×
  • Create New...