Hi, I'm student and I'm using Maxsurf Modeler Advanced Automation for my thesis.
I'm trying to do a TransformAdvanced of my model (using Python) but it doesn't work, and in VBA example or in Manual Modeler Automation there isn't this example function.
Now what I write in my code is:
Then the terminal return a: False, b:False, c:False so the SetTargets don't work.
Can you help me to solve this?
here is the sequence that is required:
Design.Hydrostatics.Calculate <<< calculate the hydrostatics for the modelDesign.Hydrostatics.InitAdvancedTransform <<< initialise the transformDesign.Hydrostatics.SetTargetPrismatic(0.65) <<< set the target value; this must be achievable for the specific modelDesign.Hydrostatics.AdvancedTransform <<< perform the transformDesign.Hydrostatics.Calculate <<< recalculate the hydrostatics for the modified hullformDesign.Hydrostatics.Cp <<< check we got the prismatic we were after
in VBA in Excel, please try something like this ...
modelerApp.Design.Surfaces.Add (msSLSimpleYacht)modelerApp.Design.FrameOfReference.Baseline = modelerApp.Design.FrameOfReference.FindBasemodelerApp.Design.FrameOfReference.AftPerp = modelerApp.Design.FrameOfReference.FindAftDWLmodelerApp.Design.FrameOfReference.FwdPerp = modelerApp.Design.FrameOfReference.FindFwdDWLmodelerApp.Design.FrameOfReference.VertDatum = msVDTBaselinemodelerApp.Design.FrameOfReference.LongDatum = msLDTMidships
Dim val As Double
modelerApp.Design.Hydrostatics.Calculateval = modelerApp.Design.Hydrostatics.DisplacementRange("A1").Value = "Hydrostatics.Displacement"Range("B1").Value = val
val = modelerApp.Design.Hydrostatics.CpRange("A7").Value = "Hydrostatics.Cp"Range("B7").Value = val
modelerApp.Design.Hydrostatics.InitAdvancedTransformRange("A8").Value = "Hydrostatics.InitAdvancedTransform, SetTargetPrismatic"Range("B8").Value = 0.65Call modelerApp.Design.Hydrostatics.SetTargetPrismatic(0.65)modelerApp.Design.Hydrostatics.AdvancedTransform
modelerApp.Design.Hydrostatics.Calculateval = modelerApp.Design.Hydrostatics.CpRange("A9").Value = "Hydrostatics.Cp"Range("B9").Value = val
note that the COM interface can be sensitive to timings, you may need to pause while licensing initializes, for the application to start and also allow time for model to load etc.