[讨论]有人在用zeiss的三坐标用DMIS程序吗？？？

最近我发现zeiss三坐标带的 DMIS Enginer 并不支持所有的dmis代码！！！不知大家有没有发现这个问题啊？？？不知大家有没有好的解决方法啊？？？

「该帖子被 爱科腾瑞客服 在 2009-12-10 8:53:17 编辑过」

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

有例子吗？

------------------------------------------------------------------------
关于精神病人的上网问题一直是我国治安管理条例中的空白.

哦？最好是能提供实例。实际问题实际分析

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

例如：先前提到的25球的程序中的一段如下：



TEMPSTRING = PROMPT/TITLE,'25球检验程序',TEXT,'请将测头移动到标准球的正上方',$

                    TEXT,'标准球的理论直径为',EDIT,NOM_D





  MEAS/SPHERE,F(M_SPH),25

   

    PTMEAS/CART, 0, 0, NOM_D/2, 0, 0, 1

   

    DO/I,1,4

       

        RECALL/D(SPH25)

        D(TEMP_CRD) = TRANS/ZORIG, COS(I*Radian_SPH)*(NOM_D/2)

        K = ASSIGN/MOD(I,2) + 1

        D(TEMP_CRD) = ROTATE/ZAXIS,-22.5*I

       

        DO/J,1,8,K  

               

            D(TEMP_CRD) = ROTATE/ZAXIS,K*45

            PTMEAS/CART, SIN(I*Radian_SPH)*NOM_D/2, 0, 0, SIN(I*Radian_SPH), 0, COS(I*Radian_SPH)          

           

        ENDDO

       

    ENDDO

以上就是了。

虚心求教！！！！！！！

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

程序没有贴完整吧。

中间调用的D(SPH25)，前面没有坐标系SPH25的定义语句，是否是因为这个原因。

------------------------------------------------------------------------
关于精神病人的上网问题一直是我国治安管理条例中的空白.

就是这个程序：报警处为上面提到的地方.

$$

$$

$$ ***** Align Drill Manually *****

$$ ** Drill positioned with the drilling **

$$ ** end in X+ direction on the table   **

$$

$$

$$

DMISMN/'GVP'

UNITS/MM, ANGDEC

WKPLAN/XYPLAN

PRCOMP/ON

TECOMP/OFF

FLY/1

MODE/PROG, MAN

SNSET/APPRCH, 10.000000

SNSET/RETRCT, 10.000000

SNSET/DEPTH, 0.000000

SNSET/SEARCH, 20.0000

SNSET/CLRSRF, 5.000000

D(L0)=DATSET/MCS

S(D106C_1)=SNSDEF/PROBE,INDEX,POL,90.00000,180.00000,0,0,1,139.60000,8.00000

SNSLCT/SA(D106C_1)

GEOALG/CIRCLE, LSTSQR

GEOALG/ARC, LSTSQR

GEOALG/PLANE, LSTSQR

$$

$$

DECL/COMMON,DOUBLE,NOM_D,TEMPSTRING

DECL/COMMON,DOUBLE,P_Cord[3],SPH_Cord[3]

TEMPSTRING = PROMPT/TITLE,'25球检验程序',TEXT,'请将测头移动到标准球的正上方',$

                    TEXT,'标准球的理论直径为',EDIT,NOM_D

                   

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$取得标准球球心的坐标值$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$定义标准球理论值$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

F(P_Point) = FEAT/POINT,CART,0,0,0,0,0,1

  MEAS/POINT,F(P_Point),0

  ENDMES

 

 P_Cord[1] = OBTAIN/FA(P_Point),3

 P_Cord[2] = OBTAIN/FA(P_Point),4

 P_Cord[3] = OBTAIN/FA(P_Point),5

  MEAS/POINT,F(P_Point),1

    PTMEAS/CART, P_cord[1], P_cord[2], P_cord[3]-1, 0, 0, 1

  ENDMES

 

 P_Cord[1] = OBTAIN/FA(P_Point),3

 P_Cord[2] = OBTAIN/FA(P_Point),4

 P_Cord[3] = OBTAIN/FA(P_Point),5

F(M_SPH) = FEAT/SPHERE, OUTER, CART, P_cord[1], P_cord[2], P_cord[3]-NOM_D/2,$

                NOM_D

MODE/AUTO,PROG,MAN

  MEAS/SPHERE,F(M_SPH),5

  ENDMES

 

 SPH_Cord[1] = OBTAIN/FA(M_SPH),4

 SPH_Cord[2] = OBTAIN/FA(M_SPH),5

 SPH_Cord[3] = OBTAIN/FA(M_SPH),6

F(M_SPH) = FEAT/SPHERE, OUTER, CART, SPH_Cord[1], SPH_Cord[2],$

                SPH_Cord[3],NOM_D

  MEAS/SPHERE,F(M_SPH),5

  ENDMES

 

 SPH_Cord[1] = OBTAIN/FA(M_SPH),4

 SPH_Cord[2] = OBTAIN/FA(M_SPH),5

 SPH_Cord[3] = OBTAIN/FA(M_SPH),6

F(M_SPH) = FEAT/SPHERE, OUTER, CART, SPH_Cord[1], SPH_Cord[2],$

                SPH_Cord[3],NOM_D

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

$$$$$$$$$$$$$$$$$$$$$$$$$$$平移坐标系$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

D(SPH25) = TRANS/XORIG,FA(M_SPH),YORIG,FA(M_SPH),ZORIG,FA(M_SPH)

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$产生测量点$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

SNSET/APPRCH, 5

SNSET/RETRCT, 5

SNSET/DEPTH, 0

SNSET/SEARCH, 5

SNSET/CLRSRF, 5

MODE/PROG,MAN

DECL/COMMON,DOUBLE,Radian_SPH

DECL/COMMON,INTGR,I,J,K

  Radian_SPH = ASSIGN/22.5*3.141592654/180

  MEAS/SPHERE,F(M_SPH),25

   

    PTMEAS/CART, 0, 0, NOM_D/2, 0, 0, 1

   

    DO/I,1,4

       

        RECALL/D(SPH25)

        D(TEMP_CRD) = TRANS/ZORIG, COS(I*Radian_SPH)*(NOM_D/2)

        K = ASSIGN/MOD(I,2) + 1

        D(TEMP_CRD) = ROTATE/ZAXIS,-22.5*I

       

        DO/J,1,8,K  

               

            D(TEMP_CRD) = ROTATE/ZAXIS,K*45

            PTMEAS/CART, SIN(I*Radian_SPH)*NOM_D/2, 0, 0, SIN(I*Radian_SPH), 0, COS(I*Radian_SPH)          

           

        ENDDO

       

    ENDDO

   

  ENDMES

     

 

     

     





                   

                   



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

D(SPH25) = TRANS/XORIG,FA(M_SPH),YORIG,FA(M_SPH),ZORIG,FA(M_SPH) 这句不能运行？

这个好象是标准语句。

------------------------------------------------------------------------
关于精神病人的上网问题一直是我国治安管理条例中的空白.

    以下地方都无法识别！！！老大再麻烦一下吧！！！

TEMPSTRING = PROMPT/TITLE,'25球检验程序',TEXT,'请将测头移动到标准球的正上方',$

TEXT,'标准球的理论直径为',EDIT,NOM_D





MEAS/SPHERE,F(M_SPH),25

PTMEAS/CART, 0, 0, NOM_D/2, 0, 0, 1

DO/I,1,4

RECALL/D(SPH25)

D(TEMP_CRD) = TRANS/ZORIG, COS(I*Radian_SPH)*(NOM_D/2)

K = ASSIGN/MOD(I,2) + 1

D(TEMP_CRD) = ROTATE/ZAXIS,-22.5*I

DO/J,1,8,K

D(TEMP_CRD) = ROTATE/ZAXIS,K*45

PTMEAS/CART, SIN(I*Radian_SPH)*NOM_D/2, 0, 0, SIN(I*Radian_SPH), 0, COS(I*Radian_SPH)

ENDDO

ENDDO

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

除了变量未定义这样的错误外，这个程序逻辑上和语法上都没有问题。

能不能说下错误的提示啊？

------------------------------------------------------------------------
关于精神病人的上网问题一直是我国治安管理条例中的空白.

1.TEMPSTRING = PROMPT/TITLE,'25球检验程序',TEXT,'请将测头移动到标准球的正上方',$

改试用为TEXT/MAN,'25球检验程序',TEXT,'请将测头移动到标准球的正上方'

2.MEAS/SPHERE,F(M_SPH),25

PTMEAS/CART, 0, 0, NOM_D/2, 0, 0, 1

语句中F(M_SPH)未定义理论值

还有的自己回去看看!



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