I'm hoping some of the scripting gurus can help me out,
In PC-DMIS i can do this.
FPTR =FILE/OPEN,"TEXT.TXT",READ
ASSIGN/COUNT=0
WHILE/COUNT<10
V1 =FILE/READLINE,FPTR,{XRD}+" "+{YRD}+" "+{ZRD}+" "+{IRD}+" "+{JRD}+" "+{KRD}
ASSIGN/POINT[COUNT].TX=XRD
ASSIGN/POINT[COUNT].TY=YRD
ASSIGN/POINT[COUNT].TZ=ZRD
ASSIGN/POINT[COUNT].TI=IRD
ASSIGN/POINT[COUNT].TJ=JRD
ASSIGN/POINT[COUNT].TK=KRD
ASSIGN/COUNT=COUNT+1
END_WHILE/
if you test it, with the below code, you will see that it does in fact show the tx of point[8]
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
POINT[8].TX
this is fine, except while loops in pc-dmis seem to take forever. so if i have a file with 1000 points, the machine just sits while the points are read in.
i would like to write a script to speed this process up.
so far i've tried a few things
'in the pc-dmis program
ASSIGN/POINT1.TX=.5
'in the script:
sub main
dim pcdApp as object
dim pcdProg as Object
set pcdApp = CreateObject("PCDLRN.Application")
set pcdProg = pcdApp.ActivePartProgram
dim v as object
dim tx as object
set v = pcdProg.GetVariableValue("POINT1")
set tx = pcdProg.GetVariableValue("POINT1.TX")
msgbox v.longvalue
msgbox tx.longvalue
end sub
both of the msgbox's show a zero...
any ideas?
thanks in advance,
-cappy
