Roof Tag Help

Tagged:

• Author
Posts
• #4100
Brett Lohr
Participant

Hi, I was wondering if someone can help me with two items:
1. Why is the triangle not showing up?
2. How can I remove the extra space after the first roof slope entry. i.e. “6 :12” to “6:12”

Thanks for any help everyone.

``````       A=B
STYLE 'arialbold'
IF GLOB_CONTEXT=4 then
GOSUB 500
ENDIF

IF SA then
GOSUB 200
ENDIF
GOSUB 300
IF SUI then
GOSUB 400
ENDIF

END

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!! ELEVATION SYMBOL !!!!!!!!!!!!!!!!!!!!!!!!!
500:

!!!!!!!!!!!!if AC_pitch<0 then mul2 -1,1  !!!corrects direction for negative pitch

IF FO=0 THEN
HOTSPOT2 0,0
HOTSPOT2 -A,B/2
HOTSPOT2 0,B/2
HOTSPOT2 -A,0
MUL2 -1,1
PEN TLP
PEN LP
DEL TOP
ENDIF

IF FO=1 THEN
HOTSPOT2 0,0
HOTSPOT2 A,B/2
HOTSPOT2 0,B/2
HOTSPOT2 A,0
PEN TLP
PEN LP
DEL 1
ENDIF

!!!!!!!!!!!!!!!!!!!!!!!TEXT!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
PEN TP
STYLE 'arialbold_4'
IF angle_type="Slope in 12" THEN
TA=tan(roof_angle)*12
text2 B/4,-TH,TA
text2 B/4+TH,-TH,"/12"
ENDIF
IF angle_type = "Decimal Angle" THEN
TEXT2 B/4+TH,-TH, STR ("%.2dd", roof_angle)
ENDIF
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

END

!!!!!!!!!!!!!!!!  Shows Roof Area !!!!!!!!!!!!!!!!!!!
200:
RA=ROOF_GROSS_TOP_SURF*10.764262
text2 B,0,"Roof Area"
text2 B,-TH,RA
RETURN

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!! Shows Angle of Roof  !!!!!!!!!!!!
300:
PEN LP
STYLE 'arialbold_4'
IF angle_type="Slope in 12" THEN
TA=tan(roof_angle)*12
text2 B,TH,TA
text2 B+TH,TH,":12"
ENDIF
IF angle_type = "Decimal Angle" THEN
TEXT2 B,TH, STR ("%.2dd", roof_angle)
ENDIF
RETURN

!!!!!!!!!!!!!!!! Shows User ID of Roof !!!!!!!!!!!!!!!!
400:
text2 B,TH*2,GLB
RETURN
``````
Attachments:
• #4102
Joachim Sühlo
Participant

Check this: 2 END statements (there should be only one); Subroutine 500 has no RETURN.

GDL Object Developer
b-prisma
MAC OSx 10.14