0
点赞
收藏
分享

微信扫一扫

RationalDMIS 7.1自动读取文件

天悦哥 2022-06-06 阅读 69
MODE/MAN
WKPLAN/XYPLAN
UNITS/MM,ANGDEC,TEMPC
DECL/CHAR,64,FILENAME,PONAME,FILE1,FILE2,AA
DECL/INTGR,I
DECL/REAL,PX,PY,PZ,PI,PJ,PK

FILENAME=PROMPT/'ENTER THE NAME OF THE DATA FILE WITHOUT EXTENSION(请输入一个数据文件名!)'
FILE1=ASSIGN/CONCAT('E:\',FILENAME,'.TXT')
DID(F1)=DEVICE/STOR,FILE1
OPEN/DID(F1),DIRECT,INPUT

MODE/PROG,MAN
DO/I,1,10,1

READ/DID(F1),PX,PY,PZ,PI,PJ,PK
PONAME=ASSIGN/CONCAT('PT00_',STR(I))
F(@PONAME)=FEAT/POINT,CART,PX,PY,PZ,PI,PJ,PK
MEAS/POINT,F(@PONAME),1
PTMEAS/CART,PX,PY,PZ,PI,PJ,PK
ENDMES

ENDDO
CLOSE/DID(F1)

ENDFIL

RationalDMIS 7.1自动读取文件_数据文件


举报

相关推荐

0 条评论