topic Re: Window swing direction in AutoCAD Architecture Customization Forum

Window swing direction

Anonymous — Wed, 02 Nov 2005 19:10:48 GMT

Is there a way to determine the swing direction of a window?

Jussi

Re: Window swing direction

Anonymous — Thu, 03 Nov 2005 13:20:47 GMT

Add a property set to the doorstyle with the automatic property Swing Direction.

You can then use it in tags and schedules.

Re: Window swing direction

Anonymous — Fri, 04 Nov 2005 22:44:10 GMT

Yes, but what about windows?

Windows have swing directions, but they don't have automatic properties for
them.
I was wondering if there was some other way to determine it, through APIs?

Jussi

kirjoitti viestissä:5002439@discussion.autodesk.com...
Add a property set to the doorstyle with the automatic property Swing
Direction.

You can then use it in tags and schedules.

Re: Window swing direction

Anonymous — Mon, 07 Nov 2005 15:32:52 GMT

You can get at it through the API, but it is easiest to just use a VBScript formula property set definition.

The definition will depend if you have 2006 and want xref ability.

For ADT2004 define a property set for windows with an automatic property of "Handle".
Then define a formula property named "Swing" and use the following for it's definition. Be sure to use the UI to pick "Handle" so that it appears in bold, cutting and pasting references to other properties does not work.

**** Start 2004 Script
On Error Resume Next
RESULT="--"

Set app = GetObject(,"AutoCAD.Application.16")
set window = app.ActiveDocument.HandleToObject([Handle])
set anchor = window.GetAnchor
if anchor.FlipX then
RESULT = "LEFT"
else
RESULT = "RIGHT"
end if
***** end 2004 script

For 2006 and Xref usage, define a property set for doors. Add the automatic property "ObjectID" and add a formula property called "Swing" with the following definition.

****** Start 2006 script
On Error Resume Next
RESULT="--"

Set app = GetObject(,"AutoCAD.Application.16.2")
set window = app.ActiveDocument.HandleToObject([ObjectID])
set anchor = window.GetAnchor
if anchor.FlipX then
RESULT = "LEFT"
else
RESULT = "RIGHT"
end if
****** end 2006 script

If you need me to post a drawing instead, just let me know.

Chris Arps

Re: Window swing direction

Anonymous — Tue, 08 Nov 2005 21:43:06 GMT

Excellent!
Thanks!

Jussi

kirjoitti viestissä:5005567@discussion.autodesk.com...
You can get at it through the API, but it is easiest to just use a VBScript
formula property set definition.

The definition will depend if you have 2006 and want xref ability.

For ADT2004 define a property set for windows with an automatic property of
"Handle".
Then define a formula property named "Swing" and use the following for it's
definition. Be sure to use the UI to pick "Handle" so that it appears in
bold, cutting and pasting references to other properties does not work.

**** Start 2004 Script
On Error Resume Next
RESULT="--"

Set app = GetObject(,"AutoCAD.Application.16")
set window = app.ActiveDocument.HandleToObject([Handle])
set anchor = window.GetAnchor
if anchor.FlipX then
RESULT = "LEFT"
else
RESULT = "RIGHT"
end if
***** end 2004 script

For 2006 and Xref usage, define a property set for doors. Add the automatic
property "ObjectID" and add a formula property called "Swing" with the
following definition.

****** Start 2006 script
On Error Resume Next
RESULT="--"

Set app = GetObject(,"AutoCAD.Application.16.2")
set window = app.ActiveDocument.HandleToObject([ObjectID])
set anchor = window.GetAnchor
if anchor.FlipX then
RESULT = "LEFT"
else
RESULT = "RIGHT"
end if
****** end 2006 script

If you need me to post a drawing instead, just let me know.

Chris Arps

Re: Window swing direction

Anonymous — Wed, 09 Nov 2005 13:33:38 GMT

I just noticed an error with the 2006 script, the correct line for using ObjectID/xrefs is

set window = app.ActiveDocument.ObjectIdToObject([ObjectID])

Chris Arps

Re: Window swing direction

Anonymous — Sun, 13 Nov 2005 00:50:07 GMT

btw, make that
if anchor.FlipX Xor anchor.FlipY then

thanks again,
Jussi

kirjoitti viestissä:5008034@discussion.autodesk.com...
I just noticed an error with the 2006 script, the correct line for using
ObjectID/xrefs is

set window = app.ActiveDocument.ObjectIdToObject([ObjectID])

Chris Arps

Re: Window swing direction

Anonymous — Wed, 14 Mar 2007 09:53:44 GMT

I can't get this to work. It only shows LEFT, and when i flip the window, nothing changes. Anyone know what's wrong?

This is what my code looks like:

On Error Resume Next
RESULT="--"
Set app = GetObject(,"AutoCAD.Application.16.2")
set window = app.ActiveDocument.HandleToObject([ObjectID])
set anchor = window.GetAnchor
if anchor.FlipY or anchor.FlipX then
RESULT = "V"
else
RESULT = "H"
end if

I use ADT 2006 if that is any help

Thanks,

Christopher

Re: Window swing direction

Anonymous — Wed, 14 Mar 2007 12:00:47 GMT

Note Chris' correction in his Nov/09/05 reply:

I just noticed an error with the 2006 script, the correct line for using ObjectID/xrefs is

set window = app.ActiveDocument.ObjectIdToObject([ObjectID])

--

David Koch
Autodesk Discussion Group Facilitator
Using ADT 2004 at work; access to 2005, 2006 & 2007 at home

Re: Window swing direction

Anonymous — Wed, 14 Mar 2007 12:16:28 GMT

This does not seem to work either, I'm afraid.
Any other ideas?

Thanks,
Christopher