---

Hi

Ich möchte den LimitMode (upToPlane etc...) eines Pad auslesen und gegebenenfalls ändern. Ich hab's mit folgenend Zeilen versucht, bekomme aber keine Ausgabe:

Dim obj As AnyObject
Set obj = productDocument1.Part.FindObjectByName("Pad.3")
MsgBox obj.FirstLimit.LimitMode

Hab ich da irgendwass vergessen?

Greets, Daniel

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

---

Hallo weissda,
folgender Code funzt bei mir problemlos: sowohl als *.CATScript, als auch als CATvba:

Option Explicit
Sub CATMain()
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim obj As AnyObject
Set obj = part1.FindObjectByName("Pad.3")
MsgBox obj.FirstLimit.LimitMode
End Sub

und liefert den entsprechenden Wert "0" bis "4", je nach Limittyp.

...getestet in einem geöffneten CATPart.
...es muss jedoch ein "Pad.3" geben.

Gruß V5-Maxe

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

---

Hallo noch mal,
für ein Product sieht der Code bei mir so aus:

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim partDocument1 As Document
Set partDocument1 = documents1.Item(1)
Dim part1 As Part
Set part1 = partDocument1.Part
Dim obj As AnyObject
Set obj = part1.FindObjectByName("Pad.3")
MsgBox obj.FirstLimit.LimitMode

End Sub

... und funzt auch

Gruss V5-Maxe

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

---

Danke für deine Antworten. Habe deinen Code übernommen und jetzt funktionierts... Habe wohl irgendwo sonst nen Fehler...

Danke und Gruss!

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