Learn to manage BIM workflows and create professional Archicad templates with the BIM Manager Program.
2012-11-07 04:38 PM
2012-11-10 03:12 PM
2012-11-10 03:20 PM
2015-01-27 07:57 PM
2015-01-28 03:02 PM
2015-01-29 03:17 PM
2015-01-29 06:21 PM
Jay wrote:Hello.
Yes David an object which did such a thing would be perfect. I do not have the skill to do such a thing...
Jay wrote:Challenge accepted!
..but maybe there will be someone that can give me a clue.
!===CHANNEL OPEN===== !!!ch1 = OPEN ("TEXT", textFile, "SEPARATOR='\t', MODE=RO, LIBRARY") <--- sample: opening the file, using TAB as separator, loaded in library ch1 = OPEN ("TEXT", fileName, "SEPARATOR=' ', MODE=RO, LIBRARY") IF ch1<=0 THEN PRINT "CHECK THAT FILE IS LOADED WITH LIBRARIES\nOR CHECK FILE NAME IN PARAMETERS" TEXT2 0,0,"CHECK THAT FILE IS LOADED WITH LIBRARIES\nOR CHECK FILE NAME IN PARAMETERS" HOTSPOT2 0,0 CIRCLE2 0,0,0.10 END ENDIF !===COUNT NUMBER OF ROWS IN DATABASE===== dataRows = 0 DO dataRows = dataRows + 1 n = INPUT(ch1, dataRows, 1, notUsed) WHILE n > -1 dataRows = dataRows - 1 !--it counts 1 extra row !!!PRINT dataRows !!!dataRowsText = STR(dataRows,2,0) !========================================================================== !===COUNT NUMBER OF COLUMNS IN DATABASE===== dataColumns=1 rowCounter=0 DO rowCounter = rowCounter+1 n = INPUT(ch1, rowCounter, dataColumns, notUsed) IF n>0 THEN dataColumns = dataColumns +1 WHILE n > -1 dataColumns = dataColumns - 1 !--it counts 1 extra column !!!PRINT dataColumns !!!dataColumnsText = STR(dataColumns,2,0) !========================================================================== !===ASIGN VALUES TO ARRAY===== DIM data[][] !--this holds the information, two dimension array FOR i=1 TO dataRows FOR j=1 TO dataColumns dataRead = "" n = INPUT(ch1, i, j, dataRead) datasave and place in floor plan.= dataRead NEXT j NEXT i !!!PRINT data !===CLOSE CHANNEL===== CLOSE ch1 !============================================= xx=1 yy=2 zz=3 id=4 trans=0 FOR i=1 TO dataRows ADD data[xx], data[yy], data[zz] ADD2 data[xx], data[yy] CALL "Coordinate Dimension 18" PARAMETERS ALL \ bID=1, bAddText=1, strAddTextContent=data[id], bID3D=1, bAddText3D=1, strAddTextContent3D=data[id], fontSizeHeader_mm=1.75, fontSizeCoor_mm=1.5, fontSizeID_mm=1.5, bShowCoorX=0, bShowCoorY=0, bShowCoorZ=0, bShowCoorX3D=0, bShowCoorY3D=0, bShowCoorZ3D=0 ADD -data[xx], -data[yy], -data[zz] ADD2 -data[xx], -data[yy] !<--- not using DEL just to keep this in the masterScript. You should move info to their respective scripts. NEXT i
2015-01-30 04:32 AM
2015-01-30 04:33 AM
2015-01-30 04:41 AM
2015-01-30 02:30 PM
Jay wrote:Try zipping the file (.zip).
I wanted to attach one of the Text (txt) files, but it is not an allowed extension.