---

Messung.jpg

Grüßt Euch!

Ich stehe gerade voll auf'm Schlauch:

Ich kann mit folgendem Code eine Messung durchführen:

.......
    Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
    Set TheMeasurable = TheSPAWorkbench.GetMeasurable(RefPoint2)
    Dim Coordinates1(2)
    TheMeasurable.GetCOG Coordinates1

    MsgBox ", Center of gravity : X = " & _
            CStr(Coordinates1(0)) & ", Y = " + CStr(Coordinates1(1)) & ", Z = " + CStr(Coordinates1(2))
.....

Wie kann ich aber das Ergebis im Baum einfügen, sowas ähnliches wie im Bild!
Danke im Voraus 
l_c

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

---

Grüßt Euch!

Ich hoffe ich habe mein Anliegen deutlich genung formuliert:

Wenn ich eine manuelle Messung durchführe, wird das Ergebnis im Produktbaum sofort eingefügt, wie es im Bild, welches ich oben angehängt habe, zu sehen ist.
Möchte ich aber diese Messung (z.B.: Volumenmessung) mit VBScript durchführen, z.B. mit dem Code aus dem obigen Beitrag, bekomme ich nur die Werte, weis aber nicht, wie ich diese im Produktbaum einfügen kann.

kann mir da jemand helfen, wie so ein Codeschnipsel aussehen kann?
Danke im Voraus,
Grüße
L_C

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

---

Hi listing_code
ich meine das geht nicht!

------------------
Grüße TStone
   "Respektiere die Macht der Worte, wähle sie mit Bedacht!"

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

---

Das ist aber echt schade,
da muss ich wohl dann drum rumm programmieren und rumtriksen, was ich überhaupt nicht mag.
Danke trotzdem
Grüße
l_c

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

---

Liebe Gemeinde

Ich könnte ja eine Messung in einem Powercopy einpacken und dies dann über ein Makro aufrufen.
Wie ich eben festgestellt habe, war es für mich nicht möglich die Messung in einem Powercopy einzufügen.
Hat da jemand eine Idee an was das liegen könnte.

Ich benutze gerade V5 R17.
Danke und Grüße
L_C

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

---

Hallo L_C!

Hatte auch schon mal das Problem! Konnte es leider auch nicht lösen! (Schätze TStone hat recht!)
Mein Workaround war dann, das ich einfach ein neues Geom.Set erzeugt habe mit dem Namen "Messung Tralala....". In dieses Set habe ich dann verdeckte Punkte (0,0,0) eingefügt, welche ich dann mit den entsprechenden Messwerten benannt habe (z.B. Durchmesser = ...)!!! Ist natürlich keine elegante Lösung aber immerhin eine ....
Vielleicht hilft es Dir ja weiter!

------------------
-------------------------------------------------
Gruß,
AlfaRomeo75  

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

---

Danke AlfaRomeo75,

daran hatte ich auch gedacht, aber das hilft mir nicht,
weil ich möchte damit eine Optimierung laufen lassen und innerhalb der Optimierung wird dann der Abstand des Auftriebsschwerpunktes eines Auftriebskörpers zur Lotlinie Gemessen und weiter verarbeitet und nach jedem Lauf wird die Form des Auftriebskörpers angepasst bis die Randbedingungen mit Zielfunktion erfüllt sind. Insgesamt sind es 200 bis 2000 läufe die innerhalb von wenigen sekunden ablaufen.... .
.. wie auch immer ..... Powercopy wäre vielleicht meine Rettung, aber eine Messung ließe sich nicht in Powercopy einpacken, wenn jemand eine idee hat was ich falsch gemacht haben könnte, bin ich bereit zuzuhören..    ....
... Also ich warte auf gute Ideen ... 

grüße
L_C

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