Roof Tag Help

Tagged: 

Viewing 1 reply thread
  • 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
      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:
    • #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

Viewing 1 reply thread
  • The forum ‘Graphical editing’ is closed to new topics and replies.