---

Run-time_error.png

Hallo zusammen

ich versuche gerade ein Makro zu erstellen das mir automatisiert Bohrungen setzt. Beim Bemaßen der Bohrung in der Skizze erhalte ich allerdings oft ein Run-Time error (siehe Bild).

Meinem Gefühl nach würde ich behaupte das tritt immer auf wenn in einer Part Bohrungen vorhanden sind oder waren. Dafür hab ich allerdings kein Beweis
Was ich definitiv sagen kann, bei einem neuen Part läuft das Makro beim ersten mal ohne Fehler durch. Beim zweiten Durchlauf tritt dann der Fehler auf. Es Hilft auch nichts Catia komplett neu zu starten und das vorherige Part zu laden. Auch hier tritt der Fehler auf. Und immer in der selben Zeile.

Hier mein Code-Abschnitt zum Bemaßen der Bohrung in der Skizze:

Code:

---

Teil.InWorkObject = Bohrung.Sketch

Dim Bemassung As Factory2D
Set Bemassung = Bohrung.Sketch.OpenEdition()

Dim Punkt As Reference
Set Punkt = Teil.CreateReferenceFromObject(Bohrung.Sketch.GeometricElements.Item("Point.1"))

Dim Bedingung1 As Constraint
Set Bedingung1 = Bohrung.Sketch.Constraints.AddBiEltCst(catCstTypeDistance, Abstand1, Punkt) '<--Fehler
Bedingung1.Mode = catCstModeDrivingDimension
Bedingung1.Dimension.Value = 10

Dim Bedingung2 As Constraint
Set Bedingung2 = Bohrung.Sketch.Constraints.AddBiEltCst(catCstTypeDistance, Abstand2, Punkt)
Bedingung2.Mode = catCstModeDrivingDimension
Bedingung2.Dimension.Value = 10

Bohrung.Sketch.CloseEdition
Teil.InWorkObject = Bohrung

---

Kennt jemand so ein ähnliches Problem und seine Lösung?

Gruß monka

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

---

Servus
Gibt es in der Skizze den Punkt mit dem Namen Point.1 (ggf statt über den Namen den Zähler den Punkt ansprechen)
Werden die beiden Referencen erfolgreich erstellt (Watch/Local-Fenster)?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Zitat:

---

Original erstellt von bgrittmann:
Gibt es in der Skizze den Punkt mit dem Namen Point.1 (ggf statt über den Namen den Zähler den Punkt ansprechen)

---

Das hab ich versucht, aber ohne Erfolg.

Zitat:

---

Original erstellt von bgrittmann:
Werden die beiden Referencen erfolgreich erstellt (Watch/Local-Fenster)?

---

Das werd ich morgen Prüfen, werde mich dann noch mal melden. Muss jetzt aber dringen was anderes fertig machen. Könnte sein das beim Sprung in eine Unterprozedur da was verloren geht  

Also hab das überprüft und konnte keine Probleme feststellen. Die Variablen der Referenzen sind im Modul deklariert und in der Prozedur in welcher die Skizze bemaßt wird vorhanden und korrekt. Die Referenzen können auch problemlos mit der Selection.add-Anweisung ausgewählt werden.

[Diese Nachricht wurde von monka am 01. Aug. 2017 editiert.]

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

---

Hat keiner mehr eine Idee?

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

---

Servus
Kannst du einschränken wann der Code funktioniert und wann nicht?
Wie erzeugst du dir die Referenzen Abstand1 und Abstand2?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Zitat:

---

Original erstellt von bgrittmann:
Wie erzeugst du dir die Referenzen Abstand1 und Abstand2?

---

Der folgende Code ist einem Button auf einer Userform zugewiesen. Den verwende ich analog für Abstand2

Code:

---

Dim Auswahl 'As Selection
Set Auswahl = CATIA.ActiveDocument.Selection

Dim oTyp(0)
oTyp(0) = "PlanarFace"

Auswahl.Clear
Status = Auswahl.SelectElement2(oTyp, "Abstand 1 wählen", False)
If Status = "Cancel" Then Exit Sub

Set Abstand1 = Auswahl.Item(1).Value
Abstand1Text = Auswahl.Item(1).Value.Name

Auswahl.Clear

---

Das ist nicht so leicht zu sagen aber ich kann ja mal ein paar Beispiele nennen.
-Bei einem neuen Part das bis dato keine Bohrungen enthält oder enthalten hatte läuft das Makro durch.
-Erstelle ich ein neues Part und erzeuge eine Bohrung bevor ich das Makro starte funktioniert der gezeigt Code-Ausschnitt nicht
-Über eine Userform definiere ich Abstand1, Abstand2 und die Bohrflaeche. Wenn das Makro einmal durchläuft, ich anschließend die Bohrfläche ändere, läuft es ebenfalls durch (den Fehler beim Updaten des Parts aufgrund möglichen Überbestimmung ausser acht gelassen).
-Ändere ich allerdings Abstand1 oder Abstand2 läuft es nicht mehr durch

Falls mir noch mehr auffallen sollte werde ich mich noch mal melden.

Gruß monka

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

---

Servus

Ist denn Abstand1 und Abstand2 eine Reference? (im Watchfenster)
Probier da mal:

Code:

---

Set Abstand1 = Auswahl.Item(1).Reference

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd

also das Watch-Fenster spuckt folgende Typen aus:

für

Code:

---

Set Abstand1 = Auswahl.Item(1).Value

---

Typ Reference/PlanarFace

und für

Code:

---

Set Abstand1 = Auswahl.Item(1).Reference

---

Typ Reference/Reference

Aber egal welche Variante ich verwende der Fehler bleibt.

Gruß monka

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

---

Servus
Kannst du mal den ganzen Code (bzw den Abschnitt) der Bohrungserzeugung (mit den Abständen) posten?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo

dazu möchte ich dir noch ein Paar Infos mit auf dem Weg geben zur Funktion des Makros.

Das Makro soll automatisiert Standardbohrbilder nach den Wünschen unserer Kunden erzeugen. Da wir nach der Basisrichtlinie zur Konstruktion von Anlagen und Vorrichtung mit Catia V5 arbeiten haben unsere Parts die in der Richtlinie vorgegebene Bodystruktur. Beim Start des Makros erscheint eine Userform. Hier gibt der User an auf welcher Fläche die Bohrung platziert und von welchen Flächen diese referenziert werden soll. Ausserdem sollen hier noch die Bohrparameter bestimmt werden (soweit bin ich aber noch nicht).

Hier nun der Code:

Code:

---

Dim Bohrflaeche As Reference
Dim Abstand1 As Reference
Dim Abstand2 As Reference
Dim Richtung1 As Reference
Dim Richtung2 As Reference

Private Sub Abstand1Button_Click()

Dim Auswahl 'As Selection
Set Auswahl = CATIA.ActiveDocument.Selection

Dim oTyp(0)
oTyp(0) = "PlanarFace"

Auswahl.Clear
Status = Auswahl.SelectElement2(oTyp, "Abstand 1 wählen", False)
If Status = "Cancel" Then Exit Sub

Set Abstand1 = Auswahl.Item(1).Value
Abstand1Text = Auswahl.Item(1).Value.Name

Auswahl.Clear

End Sub

Private Sub Abstand1Text_Enter()

If Abstand1 Is Nothing Then Exit Sub

Dim Auswahl As Selection
Set Auswahl = CATIA.ActiveDocument.Selection

Auswahl.Clear
Auswahl.Add Abstand1

End Sub

Private Sub Abstand2Button_Click()

Dim Auswahl 'As Selection
Set Auswahl = CATIA.ActiveDocument.Selection

Dim oTyp(0)
oTyp(0) = "PlanarFace"

Auswahl.Clear
Status = Auswahl.SelectElement2(oTyp, "Abstand 2 wählen", False)
If Status = "Cancel" Then Exit Sub

Set Abstand2 = Auswahl.Item(1).Reference
Abstand2Text = Auswahl.Item(1).Value.Name

Auswahl.Clear

End Sub

Private Sub Abstand2Text_Enter()

If Abstand2 Is Nothing Then Exit Sub

Dim Auswahl As Selection
Set Auswahl = CATIA.ActiveDocument.Selection

Auswahl.Clear
Auswahl.Add Abstand2

End Sub

Private Sub BohrflaecheButton_Click()

Dim Auswahl 'As Selection
Set Auswahl = CATIA.ActiveDocument.Selection

Dim oTyp(0)
oTyp(0) = "PlanarFace"

Auswahl.Clear
Status = Auswahl.SelectElement2(oTyp, "Bohrfläche wählen", False)
If Status = "Cancel" Then Exit Sub

Set Bohrflaeche = Auswahl.Item(1).Reference
BohrflaecheText = Auswahl.Item(1).Value.Name

Auswahl.Clear

End Sub

Private Sub BohrflaecheText_Enter()

If Bohrflaeche Is Nothing Then Exit Sub

Dim Auswahl As Selection
Set Auswahl = CATIA.ActiveDocument.Selection

Auswahl.Clear
Auswahl.Add Bohrflaeche

End Sub

Private Sub TextAbstandMass1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Dim Erlaubt As String
Erlaubt = "0123456789,."

If InStr(1, Erlaubt, Chr(KeyAscii)) = 0 Then
    KeyAscii = 0
End If

End Sub

Private Sub TextAbstandMass2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Dim Erlaubt As String
Erlaubt = "0123456789,."

If InStr(1, Erlaubt, Chr(KeyAscii)) = 0 Then
    KeyAscii = 0
End If

End Sub

Private Sub Richtung1Button_Click()

Dim Auswahl 'As Selection
Set Auswahl = CATIA.ActiveDocument.Selection

Dim oTyp(0)
oTyp(0) = "RectilinearTriDimFeatEdge"

Auswahl.Clear
Status = Auswahl.SelectElement2(oTyp, "Richtung 1 wählen", False)
If Status = "Cancel" Then Exit Sub

Set Richtung1 = Auswahl.Item(1).Value
Richtung1Text = Auswahl.Item(1).Value.Name

Auswahl.Clear

End Sub

Private Sub Richtung1Text_Enter()

If Richtung1 Is Nothing Then Exit Sub

Dim Auswahl As Selection
Set Auswahl = CATIA.ActiveDocument.Selection

Auswahl.Clear
Auswahl.Add Richtung1

End Sub

Private Sub Richtung2Button_Click()

Dim Auswahl 'As Selection
Set Auswahl = CATIA.ActiveDocument.Selection

Dim oTyp(0)
oTyp(0) = "RectilinearTriDimFeatEdge"

Auswahl.Clear
Status = Auswahl.SelectElement2(oTyp, "Richtung 2 wählen", False)
If Status = "Cancel" Then Exit Sub

Set Richtung2 = Auswahl.Item(1).Value
Richtung2Text = Auswahl.Item(1).Value.Name

Auswahl.Clear

End Sub

Private Sub Richtung2Text_Enter()

If Richtung2 Is Nothing Then Exit Sub

Dim Auswahl As Selection
Set Auswahl = CATIA.ActiveDocument.Selection

Auswahl.Clear
Auswahl.Add Richtung2

End Sub

Private Sub UserForm_Initialize()

RasterCombo.AddItem 10
RasterCombo.AddItem 15

BohrungenCombo.AddItem 3
BohrungenCombo.AddItem 4

Dim Typen As Shapes
Set Typen = CATIA.ActiveDocument.Part.Bodies.Item("Bohrbearbeitung").Shapes

For i = 1 To Typen.Count
    Typ1Combo.AddItem Replace(Typen.Item(i).Name, "_", " ")
    Typ2Combo.AddItem Replace(Typen.Item(i).Name, "_", " ")
Next i

Typ1Combo = "Passungen H7"
Typ2Combo = "Gewinde"

End Sub

Private Function BohrungSetzen(ByVal Bohrtyp As Body) As Hole

Dim Teil As Part
Set Teil = CATIA.ActiveDocument.Part

Teil.InWorkObject = Bohrtyp

Dim Bohrer As ShapeFactory
Set Bohrer = Teil.ShapeFactory

Dim Bohrung As Hole
Set Bohrung = Bohrer.AddNewHole(Bohrflaeche, 20) 'Bohrung setzten

Teil.InWorkObject = Bohrung.Sketch

Dim Bemassung As Factory2D
Set Bemassung = Bohrung.Sketch.OpenEdition()

Dim Punkt As Reference
Set Punkt = Teil.CreateReferenceFromObject(Bohrung.Sketch.GeometricElements.Item(2))

Dim Bedingung1 As Constraint
Set Bedingung1 = Bohrung.Sketch.Constraints.AddBiEltCst(catCstTypeDistance, Abstand1, Punkt) '<--Fehler
Bedingung1.Mode = catCstModeDrivingDimension
Bedingung1.Dimension.Value = 10

Dim Bedingung2 As Constraint
Set Bedingung2 = Bohrung.Sketch.Constraints.AddBiEltCst(catCstTypeDistance, Abstand2, Punkt)
Bedingung2.Mode = catCstModeDrivingDimension
Bedingung2.Dimension.Value = 10

Bohrung.Sketch.CloseEdition
Teil.InWorkObject = Bohrung

With Bohrung
    .Diameter.Value = TextDurchmesser1
End With

Teil.Update

End Function

Private Sub VorschauButton_Click()

Dim Teil As Part
Set Teil = CATIA.ActiveDocument.Part

Dim Bohrtyp As Body
Set Bohrtyp = Teil.Bodies.Item(Replace(Typ1Combo, " ", "_"))

Dim Bohrung1 As Hole
Set Bohrung1 = BohrungSetzen(Bohrtyp)

Set Bohrtyp = Teil.Bodies.Item(Replace(Typ2Combo, " ", "_"))

Dim Bohrung2 As Hole
Set Bohrung2 = BohrungSetzen(Bohrtyp)

Teil.InWorkObject = Teil.MainBody

End Sub

---

Gruß monka

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

---

Servus
Versuch mal vor dem öffnen der Skizze die Bohrung zu aktuallisieren:

Code:

---

Teil.UpdateObject Bohrung
Teil.InWorkObject = Bohrung.Sketch
Dim Bemassung As Factory2D
Set Bemassung = Bohrung.Sketch.OpenEdition()

---

In meinem Test ist der Code dann auch mehrfach durchgelaufen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo

Das klappt leider auch nicht. Wie bestimmst du die Referenzen Abstand1 und Abstand2?

Was mir auch noch aufgefallen ist:
Wenn ich in der Funktion BohrungSetzen die Referenzen über die .SelectElement2-Anweisung definier, läuft das Makro jedesmal durch. Aber ich möchte ja nicht jedes mal die Referenzflächen für die Bemaßung neu wählen.
Wenn ich die Referenzen über den Namen in der Funktion neu definier, der Name kommt dabei aus einer Textbox auf der Userform, läuft das Makro wieder nicht mehrfach durch.

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

---

Servus
Also den Namen in einem Textfeld zwischen zu speichern wird wohl nicht funktionieren.
Wenn überhaupt müsstest du die Reference üben den BREP-String mit CreateReferenceFromBRepName neu erstellen.
Warum willst du das in ein Textfeld ablegen? Du hast doch einen globale Variable die die Reference enthält.
Ich hab deinen Code getestet indem ich die drei Auswahlen und das Erstellen der Bohrung in einer Sub nacheinander aufgerufen hab.

Gruß
Bernd

PS: Was soll denn die Sub Abstand2Text_Enter? Welchen Zweck haben die?

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo

Der Name wird da nicht zwischengelagert. Das Textfeld soll in Zukunft anzeigen wo sich die Referenzfläche befindet(z.B: Pad.1/Face.1). Ich kam noch nicht dazu mich damit zu beschäftigen wie ich die Benennung des Parent raus bekomm.

Ich dachte die globale Variable könnte das Problem sein daher wollte ich versuchen die Variable in der Funktion zu erzeugen. Hat aber auch nichts gebracht.

Hast du das so in der Art gemacht:

Code:

---

Dim Bohrflaeche As Reference
Dim Abstand1 As Reference
Dim Abstand2 As Reference
Dim Richtung1 As Reference
Dim Richtung2 As Reference

Private Sub Abstand1Button_Click()

Dim Auswahl 'As Selection
Set Auswahl = CATIA.ActiveDocument.Selection

Dim oTyp(0)
oTyp(0) = "PlanarFace"

Auswahl.Clear
Status = Auswahl.SelectElement2(oTyp, "Abstand 1 wählen", False)
If Status = "Cancel" Then Exit Sub

Set Abstand1 = Auswahl.Item(1).Value
Abstand1Text = Auswahl.Item(1).Value.Name

Auswahl.Clear

End Sub

Private Sub Abstand2Button_Click()

Dim Auswahl 'As Selection
Set Auswahl = CATIA.ActiveDocument.Selection

Dim oTyp(0)
oTyp(0) = "PlanarFace"

Auswahl.Clear
Status = Auswahl.SelectElement2(oTyp, "Abstand 2 wählen", False)
If Status = "Cancel" Then Exit Sub

Set Abstand2 = Auswahl.Item(1).Value
Abstand2Text = Auswahl.Item(1).Value.Name

Auswahl.Clear

End Sub

Private Sub BohrflaecheButton_Click()

Dim Auswahl 'As Selection
Set Auswahl = CATIA.ActiveDocument.Selection

Dim oTyp(0)
oTyp(0) = "PlanarFace"

Auswahl.Clear
Status = Auswahl.SelectElement2(oTyp, "Bohrfläche wählen", False)
If Status = "Cancel" Then Exit Sub

Set Bohrflaeche = Auswahl.Item(1).Value
BohrflaecheText = Auswahl.Item(1).Value.Name

Auswahl.Clear

End Sub

Private Function BohrungSetzen(ByVal Bohrtyp As Body) As Hole

Dim Teil As Part
Set Teil = CATIA.ActiveDocument.Part

Teil.InWorkObject = Bohrtyp

Dim Bohrer As ShapeFactory
Set Bohrer = Teil.ShapeFactory

Dim Bohrung As Hole
Set Bohrung = Bohrer.AddNewHole(Bohrflaeche, 20) 'Bohrung setzten

Teil.UpdateObject Bohrung
Teil.InWorkObject = Bohrung.Sketch

Dim Bemassung As Factory2D
Set Bemassung = Bohrung.Sketch.OpenEdition()

Dim Punkt As Reference
Set Punkt = Teil.CreateReferenceFromObject(Bohrung.Sketch.GeometricElements.Item(2))

Dim Bedingung1 As Constraint
Set Bedingung1 = Bohrung.Sketch.Constraints.AddBiEltCst(catCstTypeDistance, Abstand1, Punkt) '<--Fehler
Bedingung1.Mode = catCstModeDrivingDimension
Bedingung1.Dimension.Value = 10

Dim Bedingung2 As Constraint
Set Bedingung2 = Bohrung.Sketch.Constraints.AddBiEltCst(catCstTypeDistance, Abstand2, Punkt)
Bedingung2.Mode = catCstModeDrivingDimension
Bedingung2.Dimension.Value = 10

Bohrung.Sketch.CloseEdition
Teil.InWorkObject = Bohrung

With Bohrung
    .Diameter.Value = TextDurchmesser1
End With

Teil.Update

End Function

Private Sub VorschauButton_Click()

Call BohrflaecheButton_Click
Call Abstand1Button_Click
Call Abstand2Button_Click

Dim Teil As Part
Set Teil = CATIA.ActiveDocument.Part

Dim Bohrtyp As Body
Set Bohrtyp = Teil.Bodies.Item("Passungen_H7")

Dim Bohrung1 As Hole
Set Bohrung1 = BohrungSetzen(Bohrtyp)

Teil.InWorkObject = Teil.MainBody

End Sub

---

Wenn nicht kannst du das so noch mal bitte testen? Beim mir ist hier beim 2ten Versuch ebenfalls Schluss.

Die Abstand2Text_Enter ist nur dafür da um festzustellen welche Fläche ausgewählt ist. Mit einem Klick in die Textbox selektiert Catia die Referenzfläche.

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

---

Servus
Jetzt will Catia mich trollen: nun klappt es auch nur noch bedingt (auch mit meinem Code)
Wenn ich das Feature vor der Bohrbearbeitung in Bearbeitung setzte kann ich das Makro mehrfach starten.
Wäre es nicht einfacher eine Powercopy zu verwenden?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo

Ohje. Kannst du mir mal noch deinen Code zeigen.

Mit Powercopy hab ich mich ehrlich gesagt noch nicht versucht. Kenn mich auch nicht so gut damit aus. Aber ich brauch doch dann immer eine Art Startmodell aus der dann die Bohrungen immer herauskopiert werden. Deshalb wollte ich auch auf die Powercopy verzichten um diese Startmodelle nicht mitschleppen zu müssen. Ich habe nicht gedacht das es so schwierig ist per Makro Bohrungen zu setzten.

Dann werde ich mich mal über Powercopying schlau machen.

Trotzdem danke für deine Hilfe

[Diese Nachricht wurde von monka am 02. Aug. 2017 editiert.]

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

---

Servus
Dein Code läuft bei mir auch (wenn das richtige Feature in Bearbeitung ist)
Das Problem an dem Code sind die BREP-Zugriffe.
Wäre es methodisch nicht besser die Bohrungen auf Stützgeometrien (Ebene, Punkte, Linie) anstatt auf Körperflächen zu referenzieren.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo,

wäre es möglich das du deinen kompl. Entwicklungsstand (also die catvba Datei) hier zur Verfügung stellst?

Dann wäre ich auch bereit da mal einen näheren Blick drauf zu werfen (so muss man immer einige Dinge umschreiben damit es - halbwegs - läuft).

Gruß
Randle

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

---

20170802_FormStandardbohrbild.zip

Hallo

Die Stützgeometrien müsste ich dann auch erst erzeugen da diese nicht vorhanden sind. Könnte hier dann nicht das gleiche Problem entstehen?

Im Anhang ist eine Zip-Datei mit der Userform. Da ist der gesamte Code drin. Nicht erschrecken... Bin kein Profi

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

---

Hallo,

also bei läuft es (auch mehrmals) durch sobald ich sicherstelle das die Bohrungsmittelpunkte nicht deckungsgleich sind.

Getestet mit R18 und R24.

Gruß
Randle

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

---

Hallo Randle

Hast du was am Code geändert? Welche Bohrungsmittelpunkte meinst du? Und wie stellst du sicher das diese nicht deckungsgleich sind?

Gruß monka

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

---

cad_de.zip

Hallo,

sorry war gestern nicht online.

Zitat:

---

Hast du was am Code geändert?

---

Ja ich habe was am Code geändert, allerdings nur Quick&Dirty.

Zitat:

---

Welche Bohrungsmittelpunkte meinst du?

---

Naja, die Mittelpunkte der Bohrungen die du erzeugen willst.

Zitat:

---

Und wie stellst du sicher das diese nicht deckungsgleich sind?

---

Ich habe zwei globale Variablen angelegt. Weiter habe ich die beiden Textfelder (Abstand1, Abstand2) genutzt um dort was einzutragen.
Um den dort eingetragenen Wert erhöhe ich den Wert der beiden globalen Variablen bei jedem Aufruf der Routine "Bohrungsetzen".
Wie gesagt Quick&Dirty.

Habe die VBA Datei mal mit angehängt.

Gruß
Randle

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

---

PART_STRUKTUR.PNG

Hallo Randle

erst mal danke für deine Bemühungen. Aber leider hast du eine wichtige Kleinigkeit geändert. Die Änderungen die du eingebracht hast lassen das Makro nur in einem Body arbeiten. Die Bodystruktur wie sie in der oben genannten Richtlinie vorgeschrieben wird muss eingehalten werden. D.h. alle Bohrungen kommen sortiert nach Bohrtyp (Gewinde, Passung,Durchgangsbohrung,...) in ein eigenen Body und werden mit dem Partbody assembelt. Im angehängten Bild kannst du die Struktur sehen.

Das ist mir gestern auch noch aufgefallen:
Wenn ich z.B. eine Passung erzeugen will. Und die Referenzflächen die ich erzeuge in dem Body für die Passungen sind dann läuft das Makro ebenfalls durch (sprich ich wenn ich in einem Body arbeite). Da ich nur planare Flächen auswählen kann muss ich ja hierfür ein Pad erzeugen, was laut Richtlinie in dem Body nichts zu suchen hat.

Ausserdem hab ich mal den Brep-Namen einer ausgewählten Fläche verglichen wenn einmal der Partbody aktiv ist und ich mich einmal in der Bohrskizze einer Bohrung befinde und die Bohrung in einem anderen Body ist der mit dem Partbody assembelt ist. Da hab ich einen unterschied ausmachen können. Einmal stand da ...Assemble. 27... und beim anderen ...Assemble.26...
Ich prüf gerade ob da was dran ist.

Gruß monka

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

---

Hallo,

Ok, diese Struktur war/ist mir nicht im Detail bekannt. Es ist allerdings auch ein wenig mühsam sich zum einen eine solche Struktur zu testen aufzubauen, weiter ist mir die genaue Zielsetzung des Makro noch nicht ganz klar.

Ich würde an dieser Stelle noch mal auf die Möglichkeiten der Powercopies hinweisen, auf die hier ja auch schon verwiesen wurde.

Ansonsten würde ein Teamviewer Meeting hier sicherlich schneller weiterhelfen, zumal dann die Unsicherheiten bezgl. unterschiedlicher Entwicklungsumgebungen beseitigt wäre.

Gruß
Randle

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

---

Servus monka

Gibt es nicht in den OEM-Richtlinien ein Vorschrift dass auf Körperkanten/flächen nicht referenziert werden soll?
Ich zweifle eher die Methodik wie ihr scheinbar Teile aufbaut etwas an.
Kleines Beispiel:
- ein Rechteckflansch mit Bohrungen innerhalb eines Parts
- 3D-Geometrie (Ebene, Achsensystem, Punkt, ...) als Stützgeometrie erstellen
- Pad (im richtigen Körper) auf der Stützgeometrie erzeugen
- Bohrungen in den entsprechenden Körpern auf die Stützgeometrie bezogen erzeugen
Dann hast du möglichst wenig BREP-Bezüge und deinen Flansch kannst du (mit den Bohrungen) mit Hilfe der Stützgeometrie verschieben/positionieren

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd

in dieser Richtlinie wird lediglich das Referenzieren auf Körperkanten ausgeschlossen, da diese beim erzeugen von anderen Features (z.B. Verrundungen) schnell verloren gehen. Körperflächen werden nicht verboten.

Ich geb dir auf jeden Fall recht, das wäre die saubere Methode zu konstruieren. Das macht auch Sinn für Änderungsanfällige Konstruktionen. Bei uns ist dies aber nicht der Fall, weshalb wir die Zeit zum erstellen der Stützgeometrie sparen und hintenraus trotzdem schneller sind.

Ich konnte mein Problem jetzt übrigens doch selber lösen. Es lag wirklich an den Brep-Namen. Ich weis nicht genau woher das kommt. Aber der eine Brep von der Fläche wenn der Partbody aktiv funktioniert nur wenn keine weiteren Bohrungen vorhanden sind. Der andere wenn die Skizze aktiv war funktioniert immer. Diesen Brep-Namen bekomme ich indem ich beim selektieren der Referenzflächen den Body der Skizze in Bearbeitung setzte.

Gruß monka

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