---

Hallo nochmal!

ich bin immernoch dabei den Abstand zwischen zwei Products/Parts in einem Assembly zu messen.
Diese Parts/Products habe ich zuvor automatisiert nach ihrem Namen gesucht/gefunden, das klappt auch (VBA-Projekt3.catvba)

Jens Hansen hat mich ja schon aufgeklärt, dass ich keine Referenzen auf Products setzen kann.
Welche Varianten sind denn denkbar? Muss ich mit "GetMinimumDistance" den Abstand messen oder gibt es noch andere Möglichkeiten?

Ich habe mir überlegt, die Flächen der gefundenen Products zu nehmen und auf die zu referenzieren und dann iterativ von allen paarweise die Distanz berechnen zu lassen und das kleinste ist es dann.
Aber wie komme ich an diese Flächen des im Assembly gefundenen Parts/Products ran (ich habe ja nur DIM child as Product) und wie referenziere ich darauf?

Gute Nacht! Christoph

P.S.: Ich wäre auch schon dankbar für (Print-)Literaturhilfen. Die Links der Suchfunktion und Google sind fast alle lila und nicht mehr blau und auch "Catia V5, Makroprogramming" von Ziethen bringt mich nicht weiter.

[Diese Nachricht wurde von triumvirn am 16. Jan. 2008 editiert.]

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

---

Servus
Ist die Hilfedatei zur CATIA-Makroprogrammierung bekannt (hattest du nicht erwähnt  )?
Siehe unter C:\Programme\Dassault Systemes\B14\intel_a\code\bin\V5Automation.chm

Gruß
Bernd

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

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

---

klar kenn ich das. Aber das hilft im Vergleich zur MSDN für Visual Studio nur bedingt weiter. Da steht halt das Kommando in seiner Struktur "Befehl(in die Klammer muss ein Objekt)", aber woher bekomme ich dieses (verdammte) Objekt?
Das ist die ganze Zeit das Problem für mich und wenn ich das nicht habe, kann ich auch leider die Funktion GetMinimumDistance nicht testen (deswegen frag' ich ja so dumm  ).

Ich HABE ein Produkt und MÖCHTE ein Objekt von seinen Flächen(plaines?). Bloß wie?

Code:

---

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(object1)
Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromObject(object1)
  'sollte das nicht eigentlich "object2" heißen?
Dim TheSPAWorkbench As Workbench Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench ( "SPAWorkbench" )
Dim TheMeasurable As Measurable Set TheMeasurable = TheSPAWorkbench.Measurable(reference1)
Dim MinimumDistance As double
MinimumDistance = TheMeasurable.GetMinimumDistance(reference2)

---

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