‎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)
data = 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
save and place in floor plan.‎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.