GLAB Rotation based on SCTN Orientation.

I could not recall who the guy create this code in here..

anyway code are as below .. Thank so much to that guy....

DO
   ID GLAB SLAB @
   HANDLE ANY
       GOLABEL /FINISH
   ENDHANDLE
   
   !GLAB = !!CE
   !LAYE = !!CE.OWNER
   
   IF !!CE.DDNAME.BADREF().EQ(TRUE) THEN
       RETURN
   ENDIF
   
   IF !!CE.DDNAME.TYPE.NEQ('SCTN') Then
       RETURN
   ENDIF
   
   !START = !!CE.DDNAME.POSS.WRT(WORLD)
   !END = !!CE.DDNAME.POSE.WRT(WORLD)
   
   !!CE = !LAYE
   NEW VNOTE FUNC 'ANGLE-MACRO'
   !VNOTE = !!CE
   
   NEW STRA FPT $!START TPT $!END
   !ADEG = !!CE.ADEG
   
   !!CE = !VNOTE
   DELETE VNOTE
   
   !!CE = !GLAB
   IF !ADEG.REAL().LT(-90) THEN
       ADEG ($!ADEG + 180)
   ELSEIF !ADEG.REAL().GT(90) THEN
       ADEG($!ADEG - 180)
   ELSE
       ADEG $!ADEG
   ENDIF
   
   
   REFRESH

ENDDO


LABEL /FINISH

I could not recall who the guy create this code in here..

anyway code are as below .. Thank so much to that guy....

DO
   ID GLAB SLAB @
   HANDLE ANY
       GOLABEL /FINISH
   ENDHANDLE
   
   !GLAB = !!CE
   !LAYE = !!CE.OWNER
   
   IF !!CE.DDNAME.BADREF().EQ(TRUE) THEN
       RETURN
   ENDIF
   
   IF !!CE.DDNAME.TYPE.NEQ('SCTN') Then
       RETURN
   ENDIF
   
   !START = !!CE.DDNAME.POSS.WRT(WORLD)
   !END = !!CE.DDNAME.POSE.WRT(WORLD)
   
   !!CE = !LAYE
   NEW VNOTE FUNC 'ANGLE-MACRO'
   !VNOTE = !!CE
   
   NEW STRA FPT $!START TPT $!END
   !ADEG = !!CE.ADEG
   
   !!CE = !VNOTE
   DELETE VNOTE
   
   !!CE = !GLAB
   IF !ADEG.REAL().LT(-90) THEN
       ADEG ($!ADEG + 180)
   ELSEIF !ADEG.REAL().GT(90) THEN
       ADEG($!ADEG - 180)
   ELSE
       ADEG $!ADEG
   ENDIF
   
   
   REFRESH

ENDDO


LABEL /FINISH