---

ErrorMeasure.png HelpMeasure.png CodeMeasure.png

Hallo zusammen,

mein doch recht einfacher Code sollte, so wie ich die Doku verstanden habe, funktionieren.
Tut er aber nicht, und da wollte ich mal ein paar Ideen sammeln, was ich übersehen habe.    
Geöffnet habe ich im CATIA V6 ein Assembly.

Angehängt sind Code, Error und der Auszug aus der Doku.

Zusätzlich wollt' ich das Beispiel auch gleich anführen um euch zu zeigen, was nun bei V6 anders ist.

Code:

---

Public Sub start()

    Dim dArea                   As Double
    Dim editorWork              As INFITF.Editor
    Dim mesearableServiceWork   As CATOpnsMeasureIDL.MeasurableService
    Dim selWork                 As INFITF.Selection
    Dim theMeasurableSurface    As CATOpnsMeasureIDL.MeasurableSurface
   
    Dim varBlubb                As Variant
   
    ' aktiven Editor - aktive Workbench + Objekt - holen - Vorteil: Ich kann auch das aktive Part abgreifen, auch wenn ein Assembly offen ist
    Set editorWork = CATIA.ActiveEditor
    ' Selection gibt's nun aus dem Editor
    Set selWork = editorWork.Selection
    ' nun wird's tricky: Wir müssen uns einen Service holen, dazu müssen wir den Namen kennen
    Set mesearableServiceWork = editorWork.GetService("MeasurableService")
   
    ' Umgang mit der Selection ist wie gehabt
    selWork.Clear
    selWork.Search "Topology.Face;all"
   
    ' Messen geht auch in etwa wie gehabt, das entsprechende Objekt wird nur leicht anders geholt, eben vom Service
    Set theMeasurableSurface = mesearableServiceWork.GetMeasurable(selWork, CAAMeasurableSurface)
    dArea = theMeasurableSurface.GetArea
   
    MsgBox dArea, vbOKOnly + vbInformation, "Flächeninhalt aller Flächen"

End Sub

---

Der Fehler tritt in der Zeile

Code:

---

Set mesearableServiceWork = editorWork.GetService("MeasurableService")

---

auf

Edit: Da habe ich doch glatt die Bilder vergessen...
Edit2: GetService("CATDrawingService") funktioniert tadellos

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

[Diese Nachricht wurde von HoBLila am 10. Jun. 2010 editiert.]

[Diese Nachricht wurde von HoBLila am 10. Jun. 2010 editiert.]

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

---

HelpServices.png

Nachtrag:

Ich habe jetzt mal alle Services (siehe Anhang), die in der Doku aufgelistet sind, probiert.

Nicht funktionieren tun:
MeasurableService
PCBService
SectionService

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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