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