Room Sizes

[Anonymous]

Previously, in version 7.0 under:-

AUS Essential Library
Drawing Symbols
Room Dim

the default was

eg: 2.31 x 2.01

Now in version 8.1

the default is

eg: max width 2.31m
max depth 2.01m
max area 4.65 sq m

There doesn't seem to be any option to change back to the version 7.0 format.

Any suggestions?

Also, how do you activate the custom settings?

Thanx

_____________________________________________

ArchiCAD 8.1 R2 AUS/Win XP Pro/Pentium 4/3.2gig/512 ram

[Aussie John]

Jane, Without hacking the script there are no parameter options for that file.

The simplest solution is to find the old version and make a copy and give it a new unique name. Make sure it has .gsm at the end and it should work as it did previously. If it doesnt then post here and I can show you what to change in the GDL scipt to teh 8.1 version getting working as it was previously.

[Anonymous]

Thanx for your reply John

I found the v7 room dim, renamed and copied into v8.1, but it has taken on the latest attributes. I've attached a copy of the script file as mentioned.


pen cpn

x=str(a,6,2)
y=str(b,6,2)
area=str(a*b,6,2)
define style "MSD1" fontType, fontSize,orientation,0
set style "MSD1"
hotspot2 0,0
hotspot2 0,b
hotspot2 a,0
hotspot2 a,b
hotspot2 a/2,b/2
dd=-(fontSize/8)
if orientation=1 then
L=0
H=b
else
if orientation=2 then
L=a/2
H=b

Thanx again!

[Aussie John]

Aussie wrote:


pen cpn

x=str(a,6,2)
y=str(b,6,2)
area=str(a*b,6,2)
define style "MSD1" fontType, fontSize,orientation,0
set style "MSD1"
hotspot2 0,0
hotspot2 0,b
hotspot2 a,0
hotspot2 a,b
hotspot2 a/2,b/2
dd=-(fontSize/8)
if orientation=1 then
L=0
H=b
else
if orientation=2 then
L=a/2
H=b

Thanx again!

Jane there appears to be some of the script missing from what you have pasted here. There should be lines starting with somethng like

Text2 0,0,"area"

[Anonymous]

John

I've copy clipped again, there was some missing at the end.

Ta



pen cpn

x=str(a,6,2)
y=str(b,6,2)
area=str(a*b,6,2)
define style "MSD1" fontType, fontSize,orientation,0
set style "MSD1"
hotspot2 0,0
hotspot2 0,b
hotspot2 a,0
hotspot2 a,b
hotspot2 a/2,b/2
dd=-(fontSize/8)
if orientation=1 then
L=0
H=b
else
if orientation=2 then
L=a/2
H=b
else
if orientation=3 then
L=a
H=b
else
if orientation=4 then
L=0
H=b/2
else
if orientation=5 then
L=a/2
H=b/2
else
if orientation=6 then
L=a
H=b/2
else
if orientation=7 then
L=0
H=((fontSize/4))
else
if orientation=8 then
L=a/2
H=((fontSize/4))
else
if orientation=9 then
L=a
H=((fontSize/4))
endif
endif
endif
endif
endif
endif
endif
endif
endif
text2 L,H,"max width "+x+" m"
add2 0,dd
text2 L,H,"max depth "+y+" m"
add2 0,-(fontSize/8)
text2 L,H,"max area "+area+" sq m"
del top

line2 0,0,0,tick
line2 0,0,tick,0

line2 a,0,a,tick
line2 a,0,a-tick,0

line2 0,b,0,b-tick
line2 0,b,tick,b

line2 a,b,a,b-tick
line2 a,b,a-tick,b



if bpn<>0 then

fill bft

poly2_b 5,2,bpn,91,
0,0,1,
a,0,1,
a,b,1,
0,b,1,
0,0,-1

endif

[Aussie John]

substitute

text2 L,H,"max width "+x+" m"
add2 0,dd
text2 L,H,"max depth "+y+" m"
add2 0,-(fontSize/
text2 L,H,"max area "+area+" sq m"
del top

with

text2 L,H,y+"x"+x+" m"
!text2 L,H,"max width "+x+" m"
!add2 0,dd
!text2 L,H,"max depth "+y+" m"
!add2 0,-(fontSize/
!text2 L,H,"max area "+area+" sq m"
!del top

I think that will do it. I didnt delete the old reference but put an exclamation mark at the begining to make it a "comment" and not part of the script

If you want to get adventurous:
In the parameter you could make a new parameter (check box style). Name the variable (on left) "simple". Use this script insteadd of the opthers and you can toggle the two options.

if simple =1 then
text2 L,H,y+"x"+x+" m"
else
text2 L,H,"max width "+x+" m"
add2 0,dd
text2 L,H,"max depth "+y+" m"
add2 0,-(fontSize/
text2 L,H,"max area "+area+" sq m"
del top
endif