Jump to content

Set Window Marker Default Offset


Recommended Posts

This script will set the default marker distance from the wall or change the distance on selected walls. If the windows are in walls, the windows must be selected individually, but can all be changed at once.

This should be able to be converted to a Plug-in Menu item rather easily.

(************* Copy Between Here *************}

Procedure SetWindowMarkerOffset;

{If nothing in the drawing is selected, this sets the default offset distance perpendicular}

{to the wall to the value entered in the dialog box. If objects are selected, it sets the }

{marker offset for any windows selected to the value entered in the dialog box.}

{? 2009, Coviana, Inc - Pat Stanford pat@coviana.com}

{Licensed unde the GNU Lesser General Public License}

var H1,H2:Handle;

N1:Integer;

S1:String;

R1:Real;

Procedure DoIt(H3:Handle);

Begin

N1:=NumRecords(H3);

H2:=GetRecord(H3,N1);

S1:=GetName(H2);

SetRField(H3,S1,'ControlPoint03Y',Num2StrF(R1));

ResetObject(H3);

end;

Begin

If FSActLayer=nil then

Begin

Message(date(2,2),' Nothing Selected');

R1:=DistDialog('Enter Window Marker Offset','12"');

H1:= getobject('Window');

N1:=NumRecords(H1);

H2:=GetRecord(H1,N1);

S1:=GetName(H2);

SetRField(H1,S1,'ControlPoint03Y',Num2StrF(R1));

end

else

Begin

Message(Date(2,2),' Almost DoIt');

R1:=DistDialog('Enter Window Marker Offset for Selected Windows','12"');

ForEachObject(DoIt,(((PON='Window') & (V) & (SEL=TRUE))));

End;

End;

Run(SetWindowMarkerOffset);

(************* And Here *************}

and paste into a blank vectorscript editor window from the resource browser.

Link to comment

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