Home › Forums › Problems and solutions in GDL › Graphical editing › Roof Tag Help
Tagged: gdl
- This topic has 1 reply, 2 voices, and was last updated 2 years, 7 months ago by
Joachim Sühlo.
Viewing 1 reply thread
-
AuthorPosts
-
-
June 1, 2018 at 18:17 #4100
Brett Lohr
ParticipantHi, 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:
-
June 2, 2018 at 12:41 #4102
Joachim Sühlo
ParticipantCheck this: 2 END statements (there should be only one); Subroutine 500 has no RETURN.
GDL Object Developer
b-prisma
MAC OSx 10.14
-
-
AuthorPosts
Viewing 1 reply thread
- The forum ‘Graphical editing’ is closed to new topics and replies.