Roof Tag Help

Tagged: 

This topic contains 1 reply, has 2 voices, and was last updated by  Joachim Sühlo 2 weeks, 2 days ago.

  • 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.11

You must be logged in to reply to this topic.