重塑非参变换(使用GRIP)

zhangcanwei

NX5.0以前的非参变换用着不错，NX6来了个大变化，用起来效率很低。现在用grip重新把非参变换找回来
这是主程序;
ENTITY/tmline,cenlne,wcsori,tmwcs,xpoint,zline,oript
ENTITY/objfst(6000),objdes(6000)
NUMBER/mat001(12),mat002(12),entnum,scrnpt(3),madeln
NUMBER/stpt(3),edpt(3),delt(3),xpt(3),tmdst1,tmdst2
NUMBER/vlumax,vlumin,stang,edang,desnum
NUMBER/maxadd,minadd,angle,angle0,angdlt,cpynum,stpnum
NUMBER/selrsp,chsrsp,cpyrsp
STRING/chsms0(40),chsms5(40),chsms6(40),chsms7(40),chsms8(40),chsms9(40)
wcsori=&WCS
desnum=0
maxadd=0
minadd=0
angle=0
angdlt=90
cpynum=1
stpnum=0
angle0=0
mark01:
MASK/OMIT,71,72,199
IDENT/'选择目标-自用软件',objfst,CNT,entnum,selrsp
IF/selrsp==1,JUMP/mark01:
IF/selrsp==2,JUMP/idover:

mark02:
desnum=0
maxadd=0
minadd=0
angle=0
angdlt=90
cpynum=1
stpnum=0
angle0=0
chsms0='选择变换类型'
chsms5='点到点平移'
chsms6='点到点旋转-绕直线'
chsms7='点到点旋转-绕点'
chsms8='增量旋转-绕直线'
chsms9='增量旋转-绕点'
chsrsp=5
CHOOSE/chsms0,chsms5,chsms6,chsms7,chsms8,chsms9,DEFLT,1,chsrsp
IF/chsrsp==1,JUMP/mark01:
IF/chsrsp>=2 AND chsrsp<=4,JUMP/idover:

$$IFTHEN/chsrsp<>8 AND chsrsp<>9 $$增量旋转，不必删除上次拷贝
  chsms0='选择复制或者移动方式'
  chsms5='连续创建副本'
  chsms6='移除上次副本'
  Chsms7='移动原始目标'
  cpyrsp=5
  CHOOSE/chsms0,chsms5,chsms6,chsms7,DEFLT,1,cpyrsp
  IF/cpyrsp==1,JUMP/mark02:
  IF/cpyrsp>=2 AND cpyrsp<=4,JUMP/idover:
$$ENDIF

IFTHEN/chsrsp==6 OR chsrsp==7 OR chsrsp==8 OR chsrsp==9
    desnum=0
    IFTHEN/chsrsp==6 OR chsrsp==8
      MASK/3
      IDENT/'选择旋转中心线',cenlne, $
            CURSOR,scrnpt(1),scrnpt(2),scrnpt(3),selrsp
      IF/selrsp==1,JUMP/mark02:
      IF/selrsp==2,JUMP/idover:
      MASK/OMIT,71,72,199
      tmline=cenlne
      madeln=0
      stpt=&SPOINT(cenlne)
      edpt=&EPOINT(cenlne)

      tmdst1=SQRTF((scrnpt(1)-edpt(1))*(scrnpt(1)-edpt(1))+ $
                   (scrnpt(2)-edpt(2))*(scrnpt(2)-edpt(2))+ $
                   (scrnpt(3)-edpt(3))*(scrnpt(3)-edpt(3)))
      tmdst2=SQRTF((scrnpt(1)-stpt(1))*(scrnpt(1)-stpt(1))+ $
                   (scrnpt(2)-stpt(2))*(scrnpt(2)-stpt(2))+ $
                   (scrnpt(3)-stpt(3))*(scrnpt(3)-stpt(3)))
      IFTHEN/tmdst1>tmdst2
          tmline=LINE/edpt(1),edpt(2),edpt(3),stpt(1),stpt(2),stpt(3)
          madeln=1$$表示创建了新的直线，最后删除
          stpt=&SPOINT(tmline)
          edpt=&EPOINT(tmline)
      ENDIF
    ENDIF

    IFTHEN/chsrsp==7 OR chsrsp==9
      GPOS/'选择旋转中心点 - 以+ZC为方向',stpt(1),stpt(2),stpt(3),selrsp
      IF/selrsp==1,JUMP/mark02:
      IF/selrsp==2,JUMP/idover:
      edpt(1)=stpt(1)
      edpt(2)=stpt(2)
      edpt(3)=stpt(3)+100
      madeln=1
      tmline=LINE/stpt(1),stpt(2),stpt(3),edpt(1),edpt(2),edpt(3)
    ENDIF

     $$IFTHEN/chsrsp==6 OR chsrsp==7 OR chsrsp==8 OR chsrsp==9
      delt(1)=edpt(1)-stpt(1)
      delt(2)=edpt(2)-stpt(2)
      delt(3)=edpt(3)-stpt(3)
      xpt(1)=edpt(1)
      xpt(2)=edpt(2)
      xpt(3)=edpt(3)
      vlumax=MAXF(delt(1),delt(2),delt(3))
      vlumin=MINF(delt(1),delt(2),delt(3))

      $$调换出x点
      IFTHEN/delt(1)==vlumax and maxadd==0
         xpt(1)=stpt(1)-10*vlumin
         maxadd=1
      ENDIF
      IFTHEN/delt(2)==vlumax and maxadd==0
         xpt(2)=stpt(2)-20*vlumin
         maxadd=1
      ENDIF
      IFTHEN/delt(3)==vlumax and maxadd==0
         xpt(3)=stpt(3)-30*vlumin
         maxadd=1
      ENDIF

      IFTHEN/delt(1)==vlumin and minadd==0
         xpt(1)=stpt(1)+40*vlumax
         minadd=1
      ENDIF
      IFTHEN/delt(2)==vlumin and minadd==0
         xpt(2)=stpt(2)+50*vlumax
         minadd=1
      ENDIF
      IFTHEN/delt(3)==vlumin and minadd==0
         xpt(3)=stpt(3)+60*vlumax
         minadd=1
      ENDIF
   
      xpoint=POINT/xpt
      oript=POINT/stpt
      tmwcs=CSYS/xpoint,tmline,ORIGIN,oript
      &WCS=tmwcs
      DELETE/xpoint,oript
      IFTHEN/madeln==1
         DELETE/tmline
      ENDIF
   $$ ENDIF
   
    IFTHEN/chsrsp==6 or chsrsp==7
      $$下面再次利用已定义的变量,stpt等
      mark03:
      desnum=0
      GPOS/'选择基准点(点到点旋转)',stpt(1),stpt(2),stpt(3),selrsp
      IF/selrsp==1,JUMP/mark02:
      IF/selrsp==2,JUMP/idover:
      CALL/'sub_ang',stpt(1),stpt(2),stang
      CRTWRT/'Base point',stpt
      mark04:
      desnum=desnum+1
      GPOS/'选择第'+ISTRL(desnum)+'个目标点(点到点旋转)',$
           edpt(1),edpt(2),edpt(3),selrsp
      IF/selrsp==1,JUMP/mark02:
      IF/selrsp==2,JUMP/idover:
      CRTWRT/ISTRL(desnum),edpt
      CALL/'sub_ang',edpt(1),edpt(2),edang
      mat001=MATRIX/XYROT,edang-stang
      IFTHEN/cpyrsp==6 AND desnum>=2
        DELETE/objdes(1..entnum)
      ENDIF
      IFTHEN/cpyrsp==7
          objdes=TRANSF/mat001,objfst(1..entnum),MOVE
          stpt(1)=edpt(1)
          stpt(2)=edpt(2)
          stpt(3)=edpt(3)
          CALL/'sub_ang',stpt(1),stpt(2),stang
      ELSE
          objdes=TRANSF/mat001,objfst(1..entnum)
      ENDIF
     
      JUMP/mark04:
    ENDIF

    IFTHEN/chsrsp==8 OR chsrsp==9
      desnum=0
      mark06:
      angle=0
      desnum=desnum+1
      param/'输入旋转参数','角度增量',angdlt, $
            '副本数量',cpynum,ALTACT,'坐标系反向',selrsp
      IF/selrsp==1,JUMP/mark02:
      IF/selrsp==2,JUMP/idover:
      IFTHEN/selrsp==4
         xpoint=POINT/100,0,0
         oript=POINT/0,0,0
         tmline=LINE/0,0,0,0,0,-100
         tmwcs=CSYS/xpoint,tmline,ORIGIN,oript
         &WCS=tmwcs
         DELETE/xpoint,oript,tmline
         angle0=0
         JUMP/mark06:
      ENDIF

      DO/mark07:,stpnum,1,cpynum
        $$angle=angle0+stpnum*angdlt
        angle=angle0+angdlt
        mat001=MATRIX/XYROT,angle
        IFTHEN/cpyrsp==6 AND (stpnum>=2 OR desnum>=2)
          DELETE/objdes(1..entnum)
        ENDIF
        IFTHEN/cpyrsp==7
          objdes=TRANSF/mat001,objfst(1..entnum),MOVE
          angle0=0
        ELSE
          objdes=TRANSF/mat001,objfst(1..entnum)
          angle0=angle
        ENDIF
      mark07:
      JUMP/mark06:
    ENDIF
ENDIF


IFTHEN/chsrsp==5
    mark53:
    desnum=0
    GPOS/'选择基准点(点到点平移)',stpt(1),stpt(2),stpt(3),selrsp
    IF/selrsp==1,JUMP/mark02:
    IF/selrsp==2,JUMP/idover:

    mark54:
    desnum=desnum+1
    GPOS/'选择第'+ISTRL(desnum)+'个目标点(点到点平移)',$
         edpt(1),edpt(2),edpt(3),selrsp
    IF/selrsp==1,JUMP/mark02:
    IF/selrsp==2,JUMP/idover:
    CRTWRT/ISTRL(desnum),edpt

    mat002=MATRIX/TRANSL,edpt(1)-stpt(1),$
                         edpt(2)-stpt(2),$
                         edpt(3)-stpt(3)
    IFTHEN/cpyrsp==6 AND desnum>=2
      DELETE/objdes(1..entnum)
    ENDIF
    IFTHEN/cpyrsp==7
       objdes=TRANSF/mat002,objfst(1..entnum),MOVE
       stpt(1)=edpt(1)
       stpt(2)=edpt(2)
       stpt(3)=edpt(3)
    ELSE
       objdes=TRANSF/mat002,objfst(1..entnum)
    ENDIF
    JUMP/mark54:
ENDIF

idover:
&WCS=wcsori
HALT

zhangcanwei

zhangcanwei

LIUCHANGLIN

ug021

htc850905

open_lian

HAPPY2680

CUI821228

无雨