RationalDMIS输出TXT以及读取点信息
DMISMN/'Created by [山涧果子] on 星期六, 三月 10, 2018', 4.0
UNITS/MM, ANGDEC
WKPLAN/XYPLAN
PRCOMP/ON
TECOMP/ON
FLY/1.0
MODE/MAN
SNSET/APPRCH, 3.000000
SNSET/RETRCT, 3.000000
SNSET/DEPTH, 0.000000
SNSET/SEARCH, 10.000000
SNSET/CLRSRF, 50.000000
RECALL/D(MCS)
SNSLCT/S(ROOTSN1)
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$
MODE/AUTO,PROG,MAN
DID(Lenovo) = DEVICE/STOR,'E:\MYTHINK.TXT'
OPEN/DID(Lenovo), FDATA, V(DEFAULTFORMAT), OUTPUT, OVERWR
OUTPUT/F(J-1)
OUTPUT/F(J-2)
OUTPUT/F(J-3)
OUTPUT/F(J-4)
OUTPUT/F(J-5)
OUTPUT/F(J-6)
OUTPUT/F(J-7)
OUTPUT/F(J-8)
OUTPUT/F(J-9)
OUTPUT/F(J-10)
OUTPUT/F(J-11)
OUTPUT/F(J-12)
OUTPUT/F(J-13)
OUTPUT/F(J-14)
OUTPUT/F(J-15)
OUTPUT/F(J-16)
OUTPUT/F(J-17)
OUTPUT/F(J-18)
OUTPUT/F(J-19)
OUTPUT/F(J-20)
OUTPUT/F(J-21)
OUTPUT/F(J-22)
OUTPUT/F(J-23)
OUTPUT/F(J-24)
OUTPUT/F(J-25)
OUTPUT/F(J-26)
OUTPUT/F(J-27)
OUTPUT/F(J-28)
OUTPUT/F(J-29)
OUTPUT/F(J-30)
CLOSE/DID(Lenovo)
$$
$$
MODE/PROG,MAN
DECL/COMMON,INTGR,I
DECL/COMMON,CHAR,255,C1
DECL/COMMON,DOUBLE,XX[30]
DECL/COMMON,DOUBLE,YY[30]
DECL/COMMON,DOUBLE,ZZ[30]
DID(Lenovo) = DEVICE/STOR,'E:\MYTHINK.TXT'
OPEN/DID(Lenovo), DIRECT, INPUT
DO/I,1,30,1
READ/DID(Lenovo),XX[I],YY[I],ZZ[I]
C1 = ASSIGN/CONCAT('K-',STR(I))
F(@C1) = FEAT/POINT,CART, XX[I],YY[I],ZZ[I], 0.000000, 0.000000,$
1.000000
ENDDO
$$
MODE/AUTO,PROG,MAN
DID(Lenovo) = DEVICE/STOR,'E:\MYTHINK.TXT'
OPEN/DID(Lenovo), FDATA, V(DEFAULTFORMAT), OUTPUT, OVERWR
$$ Set.OutputCtrl.Point(XYZT)
OUTPUT/FA(K-1)
OUTPUT/FA(K-2)
OUTPUT/FA(K-3)
OUTPUT/FA(K-4)
OUTPUT/FA(K-5)
OUTPUT/FA(K-6)
OUTPUT/FA(K-7)
OUTPUT/FA(K-8)
OUTPUT/FA(K-9)
OUTPUT/FA(K-10)
OUTPUT/FA(K-11)
OUTPUT/FA(K-12)
OUTPUT/FA(K-13)
OUTPUT/FA(K-14)
OUTPUT/FA(K-15)
OUTPUT/FA(K-16)
OUTPUT/FA(K-17)
OUTPUT/FA(K-18)
OUTPUT/FA(K-19)
OUTPUT/FA(K-20)
OUTPUT/FA(K-21)
OUTPUT/FA(K-22)
OUTPUT/FA(K-23)
OUTPUT/FA(K-24)
OUTPUT/FA(K-25)
OUTPUT/FA(K-26)
OUTPUT/FA(K-27)
OUTPUT/FA(K-28)
OUTPUT/FA(K-29)
OUTPUT/FA(K-30)
OUTPUT/FA(PLN1)
T(TFLT1) = TOL/FLAT, 0.030000
OUTPUT/FA(PLN1), TA(TFLT1)
CLOSE/DID(Lenovo)
