we went from
Code: Select all
Dim imdl As KernCADnet.IModelEx = frmMain.AxKernCADMainForm.GetModel
Dim options As KernCADnet.IDataContext = imdl
options.SetVerbose(False)
imdl.SaveEx("merged.stl", options)
Code: Select all
Dim origMdl As IModel = CType(frmMain.AxKernCADMainForm.GetModel, IModel)
Dim m_iDIObjGenerator As IDIObjGenerator = CType(frmMain.AxKernCADMainForm.GetView, IDIObjGenerator)
Dim imdl As IModelEx = CType(m_iDIObjGenerator.Create(EObjectType.eObjTypeModelGenerator), IModelEx)
Dim options As KernCADnet.ISTLDataContext = CType(imdl, ISTLDataContext)
Dim iarry2 As IArray2 = imdl
For k As Integer = 0 To origMdl.GetSectionCount - 1
If origMdl.GetSection(k).GetSectionType = "MeshSection" Then
iarry2.Add(origMdl.GetSection(k))
End If
Next
options.SetVerbose(False)
imdl.SaveEx("merged.stl", options)
And this seems to have solved our problem for now, but I thought I'd report anyway.
Thanks