RationalDMIS读取文本点信息
DMIS5.0标准释义如下：
|
2.拷贝要读取文本点信息的文件到要定义设备目录下。
3.需要声明循环变量，元素标签名变化变量，以及点信息位置X,Y,Z,I,J,K变量。
DMISMN/'Created by [山涧果子] on 星期日, 十二月 17, 2017', 4.0
UNITS/MM, ANGDEC
WKPLAN/XYPLAN
PRCOMP/ON
TECOMP/ON
FLY/1.000000
MODE/PROG, MAN
SNSET/APPRCH, 10.000000
SNSET/RETRCT, 10.000000
SNSET/DEPTH, 10.000000
SNSET/SEARCH, 10.000000
SNSET/CLRSRF, 10.000000
RECALL/D(MCS)
SNSLCT/S(ROOTSN1)
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$
MODE/PROG,MAN
DID(Shanjianguozi) = DEVICE/STOR,'E:\Lenovo.txt'
OPEN/DID(Shanjianguozi), DIRECT, INPUT
$$
$$声明点信息X,Y,Z,I,J,K为变量，以及循环变量，点信息元素标签名字符变量！
$$
DECL/COMMON,INTGR,I
DECL/COMMON,DOUBLE,XX[10]
DECL/COMMON,DOUBLE,YY[10]
DECL/COMMON,DOUBLE,ZZ[10]
DECL/COMMON,DOUBLE,II[10]
DECL/COMMON,DOUBLE,JJ[10]
DECL/COMMON,DOUBLE,KK[10]
DECL/COMMON,CHAR,255,C1
DO/I,1,10,1
READ/DID(Shanjianguozi),XX[I],YY[I],ZZ[I],II[I],JJ[I],KK[I]
C1 = ASSIGN/CONCAT('PT','-',STR(I))
F(@C1) = FEAT/POINT,CART, XX[I],YY[I],ZZ[I],II[I],JJ[I],KK[I]
OUTPUT/F(@C1) 设置输出主要是为了与文本信息对比看点信息是否有出入，实际测量时一般不需要。
ENDDO
