/ Published in: Other
* VKCWbrc.mac - Vertical Knee brace 2 Column Web
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
* ----- * 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