更换测头角度的安全移动宏

下面是一段宏,用途在于开始的参数给出坐标和向量,测头的根部会移动到前面6个参数所定义的平面上.

注意参数中的GI,GJ,GK为单位向量(即三个平方和必须等于1)

这样比移动到一个GOTO点要好的地方,就是每次移动到一个平面上(或者换角度或者测量),不需要每次重新计算该移动到哪个GOTO点更有效率.

M(EASI_CLEARMNT_GOTO) = MACRO/GX, GY, GZ, GI, GJ, GK
DECL/LOCAL, REAL, CURX, CURY, CURZ, DD, DX, DY, DZ
DECL/LOCAL, CHAR, 255, SSNAME, MMODE
MMODE = VALUE/MODE
IF/( MMODE .EQ. 'PROG,MAN' )
  CURX = VALUE/GOTO, XAXIS
  CURY = VALUE/GOTO, YAXIS
  CURZ = VALUE/GOTO, ZAXIS
  SSNAME = VALUE/SNSLCT
  DX = OBTAIN/SS(@SSNAME), 2
  DY = OBTAIN/SS(@SSNAME), 3
  DZ = OBTAIN/SS(@SSNAME), 4
  CURX = ASSIGN/ (CURX - DX)
  CURY = ASSIGN/ (CURY - DY)
  CURZ = ASSIGN/ (CURZ - DZ)
  DD = ASSIGN/((GX-CURX)*GI+(GY-CURY)*GJ+(GZ-CURZ)*GK)
  GOTO/CURX+DX+GI*DD, CURY+DY+GJ*DD, CURZ+DZ+GK*DD
ENDIF
ENDMAC

在PROG模式下生效,AUTO模式下SNSET中的设置可以达到相同效果.

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

典型案例，顶

------------------------------------------------------------------------
遥想北理当年。

是吗，有空试一下

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

怎么才能把宏应用上呢？请斑竹赐教。

------------------------------------------------------------------------
爱问才明白

RE:            

例如需要每次将探头根部移动到　10,20,30的向量为0,0,1的平面上．　　　　　　　

call/M(EASI_CLEARMNT_GOTO),10,20,30,0,0,1 　　

用call语句对宏进行调用.

「该帖子被 爱科腾瑞客服 在 2009-2-5 8:52:18 编辑过」

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

这个我看不明白，我想问一下，是不是原来测量在一个位置上，然后对测头进行测头角度的转动，然后想把侧头移动到另一个位置上做相同的修改就可以用这个宏，还有一点就是我们因为不会编写程序，一般的程序都是机器自动生成的，那么这段宏机器也能自动生成吗

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

呵呵，这段宏可以自动产生的，应该是你设置安全平面的时候，会自动调用。 软件里应该内嵌了一些宏，这些宏可以直接调用。熟悉的客户也可以自己写一些宏，作为外部宏调用进来。要看懂这个语句的话，下载DMIS快译，把程序拷贝到txt里，打开快译翻译就ok啦。

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

版主辛苦啦，给版主提个小小建议。程序里多加一些注释性的话。

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

谢谢啊！我上网找了一下DMIS快译，但是都没有下载的，请问一下能否告知怎么下载啊，非常感谢！

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

爱科腾瑞官网有下载的啊！

一步一步操作就OK了啊！

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