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