Hallo Leute,
ich versuche gerade eine Bohrbild zu erzeugen.
Und zwar erstelle ich eine Skizze, dann eine Bohrung die ein Punkt der Skizze
als Startpunkt verwendet.
Nun erstelle ich ein Benuztermuster, was (prinzipell) auch noch funktioniert.
Wenn ich vom Benutzermuster (also von der Skizze) nicht alle Punkte verwenden möchte,
versuche ich hier Bohrungen zu deaktivieren.
Hier gibt es Probleme.
Ich habe festgestellt, dass wenn ich ein Userpattern mit einem Makro erstelle dies
nicht richtig aktualisiert ist.
Ich kann zwar auch von hand noch mal alles aktualisieren, aber wenn ich das UserPattern
dann noch mal doppelklicke wird es rot. Und wenn ich das Dialogfenster schließe
ist es erst aktualisiert.
Ab dann kann ich auch über ein Makro einzelne Bohrungen deaktivieren.
Kenn jemand dieses Problem, und weiß wie man es umgehen kann?
Ich arbeite mit VBA R17
hier der Teil des Codes mit dem Locherstellen:
Dim hole1 As Hole
Set hole1 = shapeFactory1.AddNewHoleFromRefPoint(ref1, PF, 10#)
hole1.Type = catSimpleHole
hole1.AnchorMode = catExtremPointHoleAnchor
hole1.BottomType = catFlatHoleBottom
Dim limit1 As Limit
Set limit1 = hole1.BottomLimit
limit1.LimitMode = catOffsetLimit
Dim length5 As Length
Set length5 = hole1.Diameter
length5.Value = 10#
hole1.ThreadingMode = catSmoothHoleThreading
hole1.ThreadSide = catRightThreadSide
Dim length6 As Length
Set length6 = limit1.Dimension
length6.Value = 50#
AP.UpdateObject hole1
Dim userPattern1 As UserPattern
Set userPattern1 = shapeFactory1.AddNewUserPattern(hole1, 1)
userPattern1.AddFeatureToLocatePositions sSketch.Factory2D
AP.UpdateObject userPattern1
AP.Update
userPattern1.DesactivatePosition 1, 0
userPattern1.DesactivatePosition 2, 0
userPattern1.DesactivatePosition 3, 0
userPattern1.DesactivatePosition 4, 0
AP.UpdateObject userPattern1
AP.Update
------------------
Gruss Markus
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP