Sub Main
Dim PCDApp, PCDPartPrograms, PCDPartProgram, PCDCommands, PCDPrbOffset
Dim rad As Double
Set PCDApp = CreateObject("PCDLRN.Application")
Set PCDPartPrograms = PCDApp.PartPrograms
Set PCDPartProgram = PCDApp.ActivePartProgram
Set PCDPrbOffset = CreateObject("PCDLRN.PointData")
Set PCDOB = PCDPartProgram.OldBasic
PCDOB.GetProbeOffsets(PCDPrbOffset)
rad=PCDOB.GetProbeRadius
MsgBox(rad)
Set PCDCommands = Nothing
Set PCDPartProgram = Nothing
Set PCDPartPrograms = Nothing
Set PCDApp = Nothing
Set PCDPrbOffset = Nothing
Set PCDOB = Nothing
End Sub
This should allow us to access the properties from the
GetProbeOffsets, but everytime I run this, it crashes PC-DMIS.
Either my code is wrong (there isn't many examples in the helpfile...) or this is a bug.
Let's hope some one more fluent with this peeks in here and can help.
