大家有DMIS实例程序吗？共享一下啊！

大家有DMIS实例程序吗？多多共享，互相学习！有没有DMIS学习的QQ群啊！

------------------------------------------------------------------------
奋斗期！

我考了一段程序你看看：

$$ Zeiss CenterMax/GageMax, DMIS-Engine ver xxx

DMISMN/'Startprogram'

V(0)=VFORM/ALL

DISPLY/TERM,DMIS,V(0),STOR,DMIS,V(0)

FILNAM/'Startprogram'

WKPLAN/XYPLAN

UNITS/MM,ANGDEC

DECPL/ALL,4

D(0)=DATSET/MCS

MODE/PROG,MAN

PRCOMP/ON

S(D106C_1)=SNSDEF/PROBE,FIXED,CART,-30.00000,0.00000,0.00000,0.00000,$

0.00000,1.00000,8.00000

S(D106C_3)=SNSDEF/PROBE,FIXED,CART,-4.35800,50.00000,0.00000,0.00000,$

0.00000,1.00000,1.00000

S(D106C_4)=SNSDEF/PROBE,FIXED,CART,0.00000,-50.00000,0.00000,0.00000,$

0.00000,1.00000,1.00000

TH(TOOLCH)=THLDEF/S(D106C_1),3,S(D106C_3),3,S(D106C_4),3

SNSLCT/S(D106C_1)

SNSET/APPRCH,3.00000

SNSET/RETRCT,3.00000

PRCOMP/ON

UNITS/MM,ANGDEC

TEXT/OUTFIL,'**************************************************************$

*'

TEXT/OUTFIL,'________________ Coromant UFUNC_MEASURE module _______________$

_'

TEXT/OUTFIL,'Ordernumber:         1982_ZI1_GM111'

TEXT/OUTFIL,'Productcode:         '

TEXT/OUTFIL,'CAD-part:           1982_1_3D_1'

TEXT/OUTFIL,'Program generated:   16 Jul 2008,   07:02:45'

TEXT/OUTFIL,'**************************************************************$

*'

$$ Create a report of the QIS variable CONTRL

Q(Controller)=QISDEF/'CONTRL','5'

R(REP1)=REPORT/Q(Controller)

OUTPUT/R(REP1)

TEXT/OUTFIL,'--------------------------------------'

TEXT/OUTFIL,'Operation description = GM111'

TEXT/OUTFIL,'--------------------------------------'

DECL/LOCAL,CHAR,300,VAR1

DECL/LOCAL,CHAR,300,VAR2

DECL/LOCAL,CHAR,300,VAR3

DECL/LOCAL,CHAR,300,VAR4

DECL/LOCAL,CHAR,300,VAR5

DECL/LOCAL,CHAR,300,VAR6

DECL/LOCAL,CHAR,300,VAR7

DECL/LOCAL,CHAR,300,VAR8

DECL/LOCAL,CHAR,300,VAR9

DID(FILE1)=DEVICE/STOR,'C:\temp\hi.txt'

OPEN/DID(FILE1),DIRECT,INPUT

READ/DID(FILE1),VAR1

READ/DID(FILE1),VAR2

READ/DID(FILE1),VAR3

READ/DID(FILE1),VAR4

READ/DID(FILE1),VAR5

READ/DID(FILE1),VAR6

READ/DID(FILE1),VAR7

READ/DID(FILE1),VAR8

CLOSE/DID(FILE1),KEEP

DID(FILE2)=DEVICE/STOR,'C:\temp\name.txt'

OPEN/DID(FILE2),DIRECT,INPUT

READ/DID(FILE2),VAR9

CLOSE/DID(FILE2),KEEP

$$ Create a report of time identification

R(REP2)=REPORT/TIME

OUTPUT/R(REP2)

$$ Create a report of date identification

R(REP3)=REPORT/DATE

OUTPUT/R(REP3)

$$ Create a report of the order identification

PS(Ordernr)=PARTSN/'VTG55555'

R(REP4)=REPORT/PS(Ordernr)

OUTPUT/R(REP4)

$$ Create a report of the product identification

PN(Part_ID)=PARTID/''

R(REP5)=REPORT/PN(Part_ID)

OUTPUT/R(REP5)

$$ Create a report of the previous operation identification

PV(PrevOp)=PREVOP/VAR1

R(REP6)=REPORT/PV(PrevOp)

OUTPUT/R(REP6)

$$ Create a report of the machine identification

MD(Mach_ID)=MFGDEV/VAR2

R(REP7)=REPORT/MD(Mach_ID)

OUTPUT/R(REP7)

$$ Create a report of the Pre Set-Up identification

PC(PSU)=PROCID/VAR3

R(REP8)=REPORT/PC(PSU)

OUTPUT/R(REP8)

$$ Create a report of the QIS variable PALENO

Q(Palettno)=QISDEF/'PALENO',VAR4

R(REP9)=REPORT/Q(Palettno)

OUTPUT/R(REP9)

$$ Create a report of the QIS variable ROWNOM

Q(Rowno)=QISDEF/'ROWNOM',VAR5

R(REP10)=REPORT/Q(Rowno)

OUTPUT/R(REP10)

$$ Create a report of the QIS variable ITEMNO

Q(Itemno)=QISDEF/'ITEMNO',VAR6

R(REP11)=REPORT/Q(Itemno)

OUTPUT/R(REP11)

$$ Create a report of the QIS variable SEQNOR

Q(Sequenceno)=QISDEF/'SEQNOR',VAR7

R(REP12)=REPORT/Q(Sequenceno)

OUTPUT/R(REP12)

$$ Create a report of the QIS variable QTINOR

Q(Qtyinorder)=QISDEF/'QTINOR',VAR8

R(REP13)=REPORT/Q(Qtyinorder)

OUTPUT/R(REP13)

$$ Create a report of the measureingmachine identification

DI(CMMname)=DMEID/VAR9

R(REP14)=REPORT/DI(CMMname)

OUTPUT/R(REP14)

GEOALG/CIRCLE,LSTSQR,ELIMINATE,STDDEV_LIMIT,3.00000,FILTER,CIRCULAR,$

LOWPASS,50.00000,GAUSS

GEOALG/CYLNDR,LSTSQR,ELIMINATE,STDDEV_LIMIT,3.00000,FILTER,CIRCULAR,$

LOWPASS,50.00000,GAUSS

GEOALG/PLANE,LSTSQR,ELIMINATE,STDDEV_LIMIT,3.00000,FILTER,LAMBDAC,LOWPASS,$

0.80000,GAUSS

SCNMOD/ON

RECALL/DA(BASE_FIXT)

DECL/LOCAL,REAL,Fixture_Angle

DECL/LOCAL,REAL,Hight_of_ficture

DID(FILE3)=DEVICE/STOR,'C:\temp\fixture.txt'

OPEN/DID(FILE3),DIRECT,INPUT

READ/DID(FILE3),Fixture_Angle

READ/DID(FILE3),Hight_of_ficture

CLOSE/DID(FILE3),KEEP

DECL/LOCAL,REAL,Flange_radius

DECL/LOCAL,REAL,BASE

Flange_radius=ASSIGN/16.000000

BASE=ASSIGN/((0.5/COS((Fixture_angle/2)/180*3.1416)-1/2)*Flange_radius)

DECL/LOCAL,REAL,Flange_mid

Flange_mid=ASSIGN/(BASE+Hight_of_ficture/2)

D(BASE_D106_TRANS)=TRANS/ZORIG,Flange_mid

D(BASE_D106)=ROTATE/YAXIS,-90.00000

SAVE/DA(BASE_D106)

$$ ---------------------------------------------

$$ CAD-CSYS >BASE_D106 = BASE_D106<

$$ Index = 100

$$ ---------------------------------------------

RECALL/DA(BASE_D106)

GOTO/0.00000,-100.00000,-90.00000

$$ ---------------------------------------------------

$$ Description: Measure Case for the reference features

$$ __________________MEASURE_MeCase9__________________

$$ -----------------------------------------------

SNSLCT/S(D106C_3)

GOTO/0.00000,-38.33750,-10.00000

$$ ---------------------------------------------

$$ CAD-Point >MP_CN_SU_1_1 = PT1<

$$ Index = 800

$$ ---------------------------------------------

F(PT1)=FEAT/POINT,CART,0.00000,-13.33750,0.00000,0.00000,-0.00000,-1.00000

MEAS/POINT,F(PT1),1

PTMEAS/CART,0.00000,-13.33750,0.00000,0.00000,-0.00000,-1.00000

ENDMES

$$ ---------------------------------------------

------------------------------------------------------------------------
只有交流才能学习，只要学习就要交流！！！

RE:

        不错 收藏了~~

------------------------------------------------------------------------
爱科腾瑞（北京）有限公司

只要对大家有好处就行，但不能给全的哈哈

------------------------------------------------------------------------
只有交流才能学习，只要学习就要交流！！！

对了，班竹有时间帮我解语一下上面发的那段程序，开头的那此不怎么明白！！！谢谢

------------------------------------------------------------------------
只有交流才能学习，只要学习就要交流！！！

RE:

      没太仔细看,前面一段都是环境定义部分,到*******为止.

      你看不懂的是VFORM和DISPLY的部分?

      这两项控制输出的格式,VFORM的说明,论坛上另外一个帖子中有http://www.external-array.com.cn/bbs/Show.Asp?ID=32

      DISPLY控制VFORM输出到何种格式上

      DECPL/ALL,4------控制小数点位数

      其它的定义应该在基础测量教程上都可以找到.

     

------------------------------------------------------------------------
爱科腾瑞（北京）有限公司

很好的资料下了谢谢

------------------------------------------------------------------------
DMIS 空间--欢迎您！