We value your input! Please participate in Archicad 28 Home Screen and Tooltips/Quick Tutorials survey
2006-08-02 03:16 PM
2006-08-02 03:51 PM
2006-08-02 05:10 PM
2006-08-02 05:18 PM
IF not(AC_TextFont="") THEN Zeichensatz = AC_TextFont sh = AC_TextSize ! HIDEPARAMETER "Zeichensatz","sh" ENDIF !+++ DEFINITIONS start = 500 GOSUB 100 !=ende DEFINE STYLE "Links" zeichensatz, sh,3,1 DEFINE STYLE "Rechts" zeichensatz, sh,1,0 s=-sh/1000*GLOB_SCALE*1.5 t=-s/2 !+++ PRINT FOR unterprogramm=start TO ende STEP 5 GOSUB unterprogramm NEXT unterprogramm END !+++ SUBROUTINES 500: STYLE "Links" : TEXT2 0,f*s,"AC_ManualPosition: " STYLE "Rechts" : TEXT2 0,f*s,AC_ManualPosition f=f+1 RETURN 505: STYLE "Links" : TEXT2 0,f*s,"AC_DrawingGUID: " STYLE "Rechts" : TEXT2 0,f*s,AC_DrawingGUID f=f+1 RETURN 510: STYLE "Links" : TEXT2 0,f*s,"AC_TitleFitMode: " STYLE "Rechts" : TEXT2 0,f*s,AC_TitleFitMode f=f+1 RETURN 515: STYLE "Links" : TEXT2 0,f*s,"AC_TextFont: " STYLE "Rechts" : TEXT2 0,f*s,AC_TextFont f=f+1 RETURN 520: STYLE "Links" : TEXT2 0,f*s,"AC_TextSize: " STYLE "Rechts" : TEXT2 0,f*s,AC_TextSize f=f+1 RETURN 525: STYLE "Links" : TEXT2 0,f*s,"AC_TextPen: " STYLE "Rechts" : TEXT2 0,f*s,AC_TextPen f=f+1 RETURN 530: STYLE "Links" : TEXT2 0,f*s,"AC_TextStyle: " STYLE "Rechts" : TEXT2 0,f*s,AC_TextStyle f=f+1 RETURN 535: STYLE "Links" : TEXT2 0,f*s,"AC_UseUniformTextFormat: " STYLE "Rechts" : TEXT2 0,f*s,AC_UseUniformTextFormat f=f+1 RETURN 540: STYLE "Links" : TEXT2 0,f*s,"AC_PreviewType: " STYLE "Rechts" : TEXT2 0,f*s,AC_PreviewType f=f+1 RETURN 545: STYLE "Links" : TEXT2 0,f*s,"AC_ConvertedTitle: " STYLE "Rechts" : TEXT2 0,f*s,AC_ConvertedTitle f=f+1 RETURN 550: STYLE "Links" : TEXT2 0,f*s,"AC_LayoutRect[1]: " STYLE "Rechts" : TEXT2 0,f*s,AC_LayoutRect[1] f=f+1 RETURN 555: STYLE "Links" : TEXT2 0,f*s,"AC_LayoutRect[2]: " STYLE "Rechts" : TEXT2 0,f*s,AC_LayoutRect[2] f=f+1 RETURN 560: STYLE "Links" : TEXT2 0,f*s,"AC_LayoutRect[3]: " STYLE "Rechts" : TEXT2 0,f*s,AC_LayoutRect[3] f=f+1 RETURN 565: STYLE "Links" : TEXT2 0,f*s,"AC_LayoutRect[4]: " STYLE "Rechts" : TEXT2 0,f*s,AC_LayoutRect[4] f=f+1 RETURN 570: STYLE "Links" : TEXT2 0,f*s,"AC_LayoutRect[5]: " STYLE "Rechts" : TEXT2 0,f*s,AC_LayoutRect[5] f=f+1 RETURN 575: STYLE "Links" : TEXT2 0,f*s,"AC_GridRect[1]: " STYLE "Rechts" : TEXT2 0,f*s,AC_GridRect[1] f=f+1 RETURN 580: STYLE "Links" : TEXT2 0,f*s,"AC_GridRect[2]: " STYLE "Rechts" : TEXT2 0,f*s,AC_GridRect[2] f=f+1 RETURN 585: STYLE "Links" : TEXT2 0,f*s,"AC_GridRect[3]: " STYLE "Rechts" : TEXT2 0,f*s,AC_GridRect[3] f=f+1 RETURN 590: STYLE "Links" : TEXT2 0,f*s,"AC_GridRect[4]: " STYLE "Rechts" : TEXT2 0,f*s,AC_GridRect[4] f=f+1 RETURN 595: STYLE "Links" : TEXT2 0,f*s,"AC_GridRect[5]: " STYLE "Rechts" : TEXT2 0,f*s,AC_GridRect[5] f=f+1 RETURN 600: STYLE "Links" : TEXT2 0,f*s,"AC_DrawingRect[1]: " STYLE "Rechts" : TEXT2 0,f*s,AC_DrawingRect[1] f=f+1 RETURN 605: STYLE "Links" : TEXT2 0,f*s,"AC_DrawingRect[2]: " STYLE "Rechts" : TEXT2 0,f*s,AC_DrawingRect[2] f=f+1 RETURN 610: STYLE "Links" : TEXT2 0,f*s,"AC_DrawingRect[3]: " STYLE "Rechts" : TEXT2 0,f*s,AC_DrawingRect[3] f=f+1 RETURN 615: STYLE "Links" : TEXT2 0,f*s,"AC_DrawingRect[4]: " STYLE "Rechts" : TEXT2 0,f*s,AC_DrawingRect[4] f=f+1 RETURN 620: STYLE "Links" : TEXT2 0,f*s,"AC_DrawingRect[5]: " STYLE "Rechts" : TEXT2 0,f*s,AC_DrawingRect[5] f=f+1 RETURN !+++ end of parameters 100: ende = 620 RETURN2D script is its right place. I try to figure it out, too.
2006-08-02 05:41 PM
2006-08-02 06:06 PM
2006-08-02 06:15 PM
F. wrote:Not surprisingly, it's in the same goofy logic as the labels, though.\
[5] is the drawing angle. But I do not find the relation to the origin. As strange as the label positioning.
2006-08-03 03:37 AM
2006-08-03 08:42 AM