Posted By

fbayanati on 01/21/08

Tagged

Versions (?)

Last Edited at 01/21/08 08:38am

Statistics

Viewed 471 times

Favorited by 0 user(s)

Related snippets

VKCWbrc.mac - Vertical Knee brace 2 Column Web

/ Published in: Other

* VKCWbrc.mac - Vertical Knee brace 2 Column Web

Highlighted TextExpand

* ----- 
* VKCWbrc.mac - Vertical Knee brace 2 Column Web
* This part of macro applies to vertical braces for a VKCW connection 
*
* Developer : FB               Date : 16Jan200
* Last modified: 
* -----

*LOCAL curMem, ierr, brcMemNum, %Ocode, NUMc, %errmsg, NUMb

doneVal = $DONE
IF ($DONE = 1) THEN
   GOTO macend
ENDIF

ierr = 0
brcMemNum = $MEMBER
CALL pos2beVBrc( brcMemNum, ierr )
IF ( ierr # 0 ) THEN
   %Ocode = NTOLCOD brcMemNum
   DONE %Ocode
ENDIF

NUMc = 0
%errmsg = No error
CALL findVKCWcol( brcMemNum, NUMc, ierr, %errmsg )
IF (ierr # 0) THEN
   PRINT error=<%errmsg>
   GOTO macend
ENDIF

CALL svWshpDBt(NUMc, Dc, Bc, tc)
*CALL svWshpDBt(NUMb, Db, Bb, tb)

*GOTO macend

CALL getColDatFile( NUMc, %colSetupFile, ierr )
PRINT NUMc:{NUMc}   %colSetupFile:<%colSetupFile>   ierr:{ierr}
IF (ierr # 0) THEN
   GOTO macend
ENDIF

OPENR %colSetupFile
CALL readVKCW
CLOSER

CALL brc2HorLoc(brcMemNum, %brc2HorLoc)

CALL setONvbTOS&SIDE(brcMemNum)
CALL setVBoffs4VKCW(brcMemNum)

CALL vbShrt4VKCW(brcMemNum, NUMb, ierr)
IF (ierr # 0) THEN
  GOTO macend
ENDIF

CALL vbBolts4VKCW(brcMemNum, ierr)
IF (ierr # 0) THEN
  GOTO macend
ENDIF

*IF (ierr # 0) THEN
*  GOTO macend
*ENDIF

#macend

Report this snippet Tweet

Comments

Subscribe to comments

Comment:

You need to login to post a comment.