RationalDMIS 导入理论测量点（TXT文本/CSV）检测（不限软件版本）
1.输出窗口——输出设置——设备定义
首先，我们需要定义一个外部设备：在设备定义节点使用鼠标右键弹出菜单“声明设备”：
在“设备定义”上右键点击，弹出“声明设备”，点击会在下方出现设置窗口：
（2）在设备名称中，给设备一个ID，并且选择方式为“文件”。
（3）“设备名”后面的小窗口点击弹出“选择输出文件”设置框：自己选择目录，文件名中填写“shanjianguozi.TXT”，点击“保存”；
设置好之后，点击“确认”，自学习打开，会记录如下程序：
（4）在“文件”节点下就会有一个叫"NANNAN"的节点，右键“打开存储设备”
下方会出现一个设置窗口，按下图所示选择后，点击确认：
然后“关闭存储设备"：
（5）修改设备存储文件类型
（6）使用DO循环和READ读取文本
先声明几个变量
（7）声明一个字符型变量，用于元素标签名称区别。
赋值，元素名称变化。
（8）运行程序，自动读取文本信息，元素数据区生成理论元素。
DID(NANNAN) = DEVICE/STOR,'C:\Program Files (x86)\RationalDMIS\Output\shanjianguozi.TXT'
OPEN/DID(NANNAN), DIRECT, INPUT
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
DECL/COMMON, INTGR, KNPTN1
DO/KNPTN1, 1, 10,1
READ/DID(NANNAN),XX[10],YY[10],ZZ[10],II[10],JJ[10],KK[10]
C1 = ASSIGN/CONCAT('PT','-',STR(KNPTN1))
F(@C1) = FEAT/POINT,CART,XX[10],YY[10],ZZ[10],II[10],JJ[10],KK[10]
ENDDO
自动读点(TXT)高级编程语句如下：
DID(RRR) = DEVICE/STOR,'d:\demo.txt'
OPEN/DID(RRR),DIRECT,INPUT
DECL/COMMON,DOUBLE,X_R,Y_R,Z_R，,I_R,J_R,K_R
DECL/COMMON,INTGR,I
DECL/COMMON,CHAR,20,PTLABLE
I = ASSIGN/0
(AAA)
I = ASSIGN/I+1
READ/DID(RRR),X_R,Y_R,Z_R，,I_R,J_R,K_R
IF/(X_R.NE.11111)
PTLABLE =ASSIGN/CONCAT('PT',STR(I))
F(@PTLABLE) =FEAT/POINT,CART,X_R,Y_R,Z_R，,I_R,J_R,K_R
JUMPTO/(AAA)
ELSE
JUMPTO/(BBB)
ENDIF
(BBB)
自动读点（READ_Excel）高级编程语句如下：
DECL/COMMON,DOUBLE,XX,YY,ZZ,II,JJ,KK
DECL/COMMON,INTGR,I,NUM,H_STR,V_STR
DECL/COMMON,CHAR,255,PTLABLE
AAA =PROMPT/TEXT,'请输入点数',EDIT,NUM,$
TEXT,'请输入数据起始行',EDIT,H_STR,$
TEXT,'请输入数据起始列',EDIT,V_STR
DID(mmm) = DEVICE/STOR,'F:\demo.xls'
open/DID(mmm),DIRECT,INPUT
DO/I,1,NUM
PTLABLE =ASSIGN/CONCAT('PT',STR(I))
READ/DID(mmm),XX:H_STR:V_STR
READ/DID(mmm),YY:H_STR:V_STR+1
READ/DID(mmm),ZZ:H_STR:V_STR+2
READ/DID(mmm),II:H_STR:V_STR+3
READ/DID(mmm),JJ:H_STR:V_STR+4
READ/DID(mmm),KK:H_STR:V_STR+5
F(@PTLABLE) =FEAT/POINT,CART,xx,yy,zz,II,JJ,KK
H_STR = ASSIGN/H_STR+1
ENDDO
CLOSE/DID(mmm)
