---

Hallo zusammen,

wie kann ich die Eigenschaften von einer Bohrung auf eine andere kopieren?

Public Sub CopyHoleSettings()
    Dim InvDoc As Document
    Set InvDoc = ThisApplication.ActiveEditDocument
    Dim SourceHole As Object
    Dim TargetHole As Object
    Dim More As Boolean
    Set SourceHole = ThisApplication.CommandManager.Pick(kPartFeatureFilter, "Select SOURCE hole! (ESC to abort)")
    If (Not SourceHole Is Nothing) Then
        If SourceHole.Type = kHoleFeatureObject Then
            Set TargetHole = Nothing
            More = True
            Do Until More = False
                Set TargetHole = ThisApplication.CommandManager.Pick(kPartFeatureFilter, "Select TARGET hole! (ESC to abort)")
                If (Not TargetHole Is Nothing) Then
                    If TargetHole.Type = kHoleFeatureObject Then
                        If SourceHole.HoleType = kCounterBoreHole Then Call TargetHole.SetCBore(SourceHole.CBoreDiameter.Value, SourceHole.CBoreDepth.Value)
                        If SourceHole.HoleType = kCounterSinkHole Then Call TargetHole.SetCSink(SourceHole.CSinkDiameter.Value, SourceHole.CSinkAngle.Value)
                        If SourceHole.HoleType = kSpotFaceHole Then Call TargetHole.SetSpotFace(SourceHole.SpotFaceDiameter.Value, SourceHole.SpotFaceDepth.Value)
                        If SourceHole.HoleType = kDrilledHole Then Call TargetHole.SetDrilled
                        If SourceHole.ExtentType = kThroughAllExtent Then Call TargetHole.SetThroughAllExtent(SourceHole.Extent.Direction)                       
                        InvDoc.Update
                    End If
                Else
                    More = False
                End If
            Loop
        End If
    End If
End Sub

Leider erhalte ich den Fehler: Invalid procedure call or argument. Die Werte, die ich erhalte sind korrekt.

Vielen Dank für Eure Hilfe

Georg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP