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