General HydroStatics
Ship Stability Software |
Command of the Week
(New or interesting aspects of GHS that you may not know about) |
DB PutTankCase and GetTankCase
(Requires GHS version 17.00 or later) |
(Use the command DB Update to get the latest version
of the Data Base software.)
These two commands are similar to the Put and Get for light-ship and fixed-weight cases. A Tank Case includes settings such as load fraction, contents, and type for every tank in the geometric model. DB PutTankCase captures the complete status of all tanks and DB GetTankCase restores the status. Names are assigned to tank cases in exactly the same way that names are assigned to weight cases. DB GetTankCase given without a name parameter shows the tank cases that have been established. |
The button on the left gets the case, and the button the right examines the case. There is no question as to which tanks are in the case because all tanks are represented. |
Only intact tanks are shown and of those only
the ones with nonzero load settings, with the
tank names grouped by common load.
We ran this by John Bonn, and he said he was glad to see it because it was the necessary complement to the Weight Case commands. But he wanted to know if we could provide something like DB EditFixWt as a platform for setting up tank cases. He said he liked seeing the weight items in the store as he picked the ones to go into the case. So we sent him a macro that facilitates making tank and fixed-weight cases from within Load Editor. |
Note that the Case "Get" buttons on the left are active,
which means that cases can be
brought into the Load Editor as well as being created from within the
Load Editor.
John Bonn's macro takes only a few lines, so we include it here. |
macro le macro le_view DB Get%%91Case // template le_askcase "Create Case" /nokey "View tank cases" .le_view "Tank" /persist |, "View weight cases" .le_view "Fixwt" /persist break "Tank Case name:" le_tc /width:40 "Weight Case name:" le_wc /width:40 // macro cases variable (str) le_tc,le_wc .le_askcase if {templok}=0 then exit if "{le_tc}"<>"" then DB PutTankCase "{le_tc}" if "{le_wc}"<>"" then DB PutFixWtCase "{le_wc}" // load (*) edit /macro:cases / |
Questions, comments, or requests?
Contact Creative Systems, Inc. USA phone: 360-385-6212 Fax: 360-385-6213 Office hours: 7:00 am - 4:00 pm Pacific Time, Monday - Friday Mailing address: PO Box 1910 Port Townsend, WA 98368 USA Click here for an index to this and previous COWs |