We value your input! Please participate in Archicad 28 Home Screen and Tooltips/Quick Tutorials survey
2013-12-03 06:52 AM
2013-12-03 09:56 PM
2013-12-03 10:42 PM
width=8 ! paragraph length in m oneline="The quick black architect jumped over the lazy programmer. Lore ipsum!" ! settings DIM absatz[] i=1 absatz="" factorT=GLOB_SCALE/1000 last=0 space=1 DO space = STRSTR(STRSUB(oneline,last+1,255)," ") IF space THEN GOSUB "addpart" last=last+space WHILE space space=STRLEN(oneline)-last GOSUB "addpart" LINE2 0,0,width,0 FOR i=1 TO VARDIM1(absatz) TEXT2 0,-0.75*i, "'"+absatz+"'" NEXT i END "addpart": IF STW(absatz+STRSUB(oneline,last+1,space))*factorT<width THEN absatz=absatz+STRSUB(oneline,last+1,space) ELSE i=i+1 absatz=""+STRSUB(oneline,last+1,space) ENDIF RETURN
2013-12-03 10:49 PM