Sheet Operation - aucOpExecSheetCheckDropArea

Private Sub mDropShape(oDevice As ObjectItem, oSheet As Sheet, Optional x As Long, Optional y As Long)

  Dim atParamData() As Aucotec.AucExecuteSheetRecord

  Dim sSheetPrefShapeType As String

  Dim oMasterShape As Aucotec.MasterShape

  Dim oPrefMaster As Aucotec.MasterShape

  Dim oDefaultMaster As Aucotec.MasterShape

  Dim oShape As Object 'Visio.Shape

  Dim sStencilID As String

  Dim sSymbolSync As String

  Dim result As Variant

  

  'set Mastershape

  sSheetPrefShapeType = oSheet.Attributes.ItemByID(aucAttrPreferredShapeType).Value

  For Each oMasterShape In oDevice.PreferredMasters

    If Not oMasterShape.Attributes.Find(aucAttrShapeType) Is Nothing Then

      If sSheetPrefShapeType = oMasterShape.Attributes.ItemByID(aucAttrShapeType).Value Then

        Set oPrefMaster = oMasterShape

        Exit For

      End If

    Else

     Set oDefaultMaster = oMasterShape

    End If

  Next oMasterShape

  If oPrefMaster Is Nothing Then

    Set oPrefMaster = oDefaultMaster

  End If

  

  

  sStencilID = oPrefMaster.Parent.ID

  sSymbolSync = oPrefMaster.Attributes.ItemByID(aucAttrSymbolSyncDesignation).Value

  

  If sStencilID <> vbNullString And sSymbolSync <> vbNullString Then

    Call oSheet.Open(aucSheetOpenVisio & aucSheetOpenAutosave)

    

    'Check Area

    ReDim atParamData(1 To 5) As Aucotec.AucExecuteSheetRecord

    atParamData(1).qual = aucOpExecSheetCheckDropArea

    atParamData(2).qual = aucArgExecSheetRef2Master

    atParamData(2).Val = sStencilID & "#" & sSymbolSync

    atParamData(3).qual = aucArgExecSheetPosX

    atParamData(3).Val = x

    atParamData(4).qual = aucArgExecSheetPosY

    atParamData(4).Val = y

    atParamData(5).qual = aucArgExecSheetRetVal

    

    Call Utils.ExecuteSheetOperation(oSheet, atParamData)

    result = atParamData(5).Val

    If result = 1 Then

      Call MsgBox("Collision")

    End If

    

    'Drop Symbol

    ReDim atParamData(1 To 6)

    atParamData(1).qual = aucOpExecSheetDropSymbol

    atParamData(2).qual = aucArgExecSheetRef2Obj

    atParamData(2).Val = oDevice.ID

    atParamData(3).qual = aucArgExecSheetRef2Master

    atParamData(3).Val = sStencilID & "#" & sSymbolSync

    atParamData(4).qual = aucArgExecSheetPosX

    atParamData(4).Val = x

    atParamData(5).qual = aucArgExecSheetPosY

    atParamData(5).Val = y

    atParamData(6).qual = aucArgExecSheetRetVal

    

    Application.AlertResponse = aucResponseYesOK

      Call Utils.ExecuteSheetOperation(oSheet, atParamData)

      result = atParamData(6).Val

    Application.AlertResponse = aucResponseNone

    

    'Call oSheet.Close

  End If

End Sub