Jump to content

Guest Blars

Recommended Posts

Guest Blars

Im on VW 2016.  I've imported a drawing that has window objects that i can drag into and attach to walls drawn in VW.  My problem is that all of these windows have cutom options in which each one of the objects has custom sash options.  Specifically, "Replace Glazing with Louvers" is checked for each pane.  I'm wondering if there is a way to globally uncheck this box and essentially turn all of my "louvers" back into windows.  I'm currently going through each and unchecking this manually for each pane within the ribbon window.  This is one of those instances when i've been mindlessly plugging along for a while thinking "there HAS to be an easier way to do this."   ... so...   is there? 

Link to comment

I think it would work by selecting all windows and under window settings, change just these

values that all windows should change/use together, that when you save the dialog,

just these settings will be changed for all windows while keeping the settings that are different

and not changed in settings.

At least I think I had done it this way in the past.

 

With VW 2017 you have window styles.

So you can assign a style to all windows and assign a selection of settings in the style

that will overwrite all windows that have assigned that style.

(While leaving individual settings like height and width controlled by each window itself)

Edited by zoomer
Link to comment

Try the following script.  Write back if you need more information.

 

Procedure ChangeAllWindows;

{©2017, Patrick Stanford, pat@coviana.com  Licensed under the LGPL}
{No Warranty Expressed or Implied. Test thoroughly before using on production data}
{Make a backup copy before running}

{Turns off the Louvers on Sash setting for all windows in the file.}

{Do no operate heavy machinery while using. May cause drowsiness}

Procedure ChangeWindow(Hd:Handle);
{This could be changed to any other Window parameter by changing}
{the Field Name (third parameter) to the correct value and }
{changing the last parameter to the new value to set}

Begin
    SetRField(Hd, 'Window','LouversOnSash','False');
    ResetObject(Hd);
End;

Begin
    ForEachObject(ChangeWindow, ((R IN ['Window']))); {runs the ChangeWindow procedure for every object with a Window Record}
End;

Run(ChangeAllWindows);

Procedure ChangeAllWindows;

{©2017, Patrick Stanford, pat@coviana.com  Licensed under the LGPL}
{No Warranty Expressed or Implied. Test thoroughly before using on production data}
{Make a backup copy before running}

{Turns off the Louvers on Sash setting for all windows in the file.}

{Do no operate heavy machinery while using. May cause drowsiness}

Procedure ChangeWindow(Hd:Handle);
{This could be changed to any other Window parameter by changing}
{the Field Name (third parameter) to the correct value and }
{changing the last parameter to the new value to set}

Begin
	SetRField(Hd, 'Window','LouversOnSash','False');
	ResetObject(Hd);
End;

Begin
	ForEachObject(ChangeWindow, ((R IN ['Window']))); {runs the ChangeWindow procedure for every object with a Window Record}
End;

Run(ChangeAllWindows);

 

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