Roof Tag Help

[Brett LohrParticipant]

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
ADD2 O,B/2
	  POLY2 4,fill_type,0,0,adjacent,0,adjacent,-opposite,	0,0
		PEN LP
DEL TOP
ADD2 -A,0
ENDIF

IF FO=1 THEN
		HOTSPOT2 0,0
		HOTSPOT2 A,B/2
		HOTSPOT2 0,B/2
		HOTSPOT2 A,0
				PEN TLP
ADD2 O,B/2
	  POLY2 4,fill_type,0,0,adjacent,0,adjacent,-opposite,	0,0
		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:

1. 

   temp.jpg
   

[Joachim SühloParticipant]

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

GDL Object Developer
b-prisma
MAC OSx 10.11

[Author]

Posts