I've found problems with the function "GenerateScan" for the object "BasicScanCommand". When I try to create a Circle Basic Scan, this function returns False and the collection of hits is not created.
I attach the code I am using.
Can you help me, please?
Dim Cmds as PCDLRN.Commands
Dim Cmd as PCDLRN.Command
Dim BasicScnCmd As PCDLRN.BasicScan
Dim MS As New PCDLRN.PointData 'Method Start
Dim CP As New PCDLRN.PointData 'Cut Plane
Dim IT As New PCDLRN.PointData 'Init Touch
Dim retvalue As Boolean
Set Cmd = Cmds.Add(BASIC_SCAN_OBJECT, False)
Cmd.SetToggleString 2, SHOW_DETAILS, 0
Cmd.ReDraw
Set BasicScnCmd = Cmd.BasicScanCommand
BasicScnCmd.Method = BSCANMETH_CIRCLE
BasicScnCmd.Filter = BSF_DISTANCE
BasicScnCmd.HitType = BSCANHIT_VECTOR
retvalue = BasicScnCmd.SetMethodParams(SCAN_OUTER, False, 1, D, 180, -4, 0)
retvalue = BasicScnCmd.SetFilterParams(0, 1, Dist, 0, 180, 0)
MS.x = 1: MS.y = 1: MS.z = 10
CP.i = 0: CP.j = 0: CP.k = 1
IT.i = 1: IT.j = 0: IT.k = 0
Set BasicScnCmd.MethodStart = MS
Set BasicScnCmd.MethodCutPlane = CP
Set BasicScnCmd.MethodInitTouch = IT
BasicScnCmd.NominalMode = BSCANNMODE_MASTERDATA
BasicScnCmd.OperationMode = BSCANOPMODE_NORMALEXECUTION
Comando.ReDraw
retvalue = BasicScnCmd.CreateBasicScan
