---

Hallo zusammen.

Ich habe da ein (hoffentlich) nicht allzu schweres Problem.
In einer drawing lese ich alle Maße aus, und schreibe die dann in eine Liste. Nun möchte ich die Listennummerierung an die einzelnen Maße setzen. Der Text besteht lediglich aus einer Zahl mit nem Kreis drum.
Der Befehl, den ich suche müsste so sein, als wenn man (per Hand) einen Text anwählt, und dann auf das Maß klickt, um Ihn zu positionieren. Damit steht er unmittelbar am Maß mit einem Bezug dazu. Geht das ?

Danke schonmal !!

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

---

Mit "Dimension.GetBoundaryBox" bekommst du die Koordinaten.
Da kannst du dann an einen der 4 Punkte dein Text hängen.
Gruß
SteffenS

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

---

Hallo Steffen,
danke für die Antwort.
Ich habe es mit dieser Funktion auch schonmal ausprobiert, bekomme aber immer in VBA die Fehlermeldung: "Funktion oder Schnittstelle kann nur eingeschränkt verwendet werden oder verwendet einen Typ der Automatisierung, der von Visual Basic nicht unterstützt wird."
Die Bibliothek für diese Funktion (Drafting2DInterfacesObject..) habe ich gezogen. Geht das nicht in VBA ? 
Schönen Gruß,
shorty

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

---

Hallo shorty,

versuche die Variablentyp bei Deklaration weglassen/auskommentieren. Das hilft bei VBA normalerwerise.
z.B: dim oObj 'as Axissystem

Gruß,
Zoltan

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

---

Hallo,

leider kein Erfolg.
Hat vielleicht irgendjemand eine Idee, wie ich eine Maßnummerierung sonst noch realisieren könnte ?

Gruß,
shorty

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

---

Hi,

das habe ich gefunden: http://www.coe.org/p/fo/et/thread=15397

GetBoundaryBox - Make It Work, Here's How
Douglas Snell
[Inceptra]
Nov 10, 2006 07:20 PM

I know this method has been discussed in previous posts in regards to it not working with VBA.  There is a workaround that will make it work and return values to boot.  I thought I would share this as I have spent entirely too much time trying to figure it out.

Run this in a drawing with a dimension created in the active view.

sub main()

    Dim oDrwDoc as DrawingDocument
    Set oDrwDoc = CATIA.ActiveDocument
    Dim oDrwSheet as DrawingSheet
    Set oDrwSheet = oDrwDoc.Sheets.ActiveSheet
    Dim oDrwView as DrawingView
    Set oDrwView = oDrwSheet.Views.ActiveView
    Dim oDrwDim as OBJECT

Dann kann man GetBoundaryBox verwenden. Wenn ihr mir aber jetzt noch zeigt, wie ich das verwenden kann, dann ist uns allen geholfen :-)

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