We value your input! Please participate in Archicad 28 Home Screen and Tooltips/Quick Tutorials survey
2006-05-25 01:18 AM
2006-05-25 11:14 AM
s=-1 ! Line spacing DIM parents[] n = REQUEST ("ANCESTRY_INFO", 0, name, guid, parents) IF n THEN TEXT2 0,0, "Replaces: " + name + " / " + guid ELSE TEXT2 0,0, "No results." ENDIF TEXT2 0,s, "Parents:" ADD2 0,s*2 IF n > 2 THEN FOR i = 1 to n - 2 STEP 2 TEXT2 t,0, parents + " / " + parents[i+1] ADD2 0,s NEXT i ELSE ADD2 0,s ENDIF ADD2 0,s DIM childs[] n = REQUEST ("ANCESTRY_INFO", 1, name, guid, childs) IF n THEN TEXT2 0,0, "Replaces: " + name + " / " + guid ELSE TEXT2 0,0, "No result." ENDIF TEXT2 0,s, "Childs:" ADD2 0,s*2 IF n > 2 THEN FOR i = 1 to n - 2 STEP 2 TEXT2 t,0, childs + " / " + childs[i+1] ADD2 0,s NEXT i ELSE ADD2 0,s ENDIF