---

Hallo Forum,

ich möchte via API ein Oberflächensymbol an eine "beliebige" Position (d.h. nicht an ein Objekt hängen sondern an bestimmte Koordinaten schieben) der Zeichnung schreiben. Dabei habe ich versucht, wie folgt vorzugehen:

    Dim Rz10 As SurfaceFinishSymbol
    Set Rz10 = seDraft.ActiveSheet.SurfaceFinishSymbols

Nun bietet mir VB/SE an dieser Stelle leider keine Add-Funktion, wie zum Beispiel wie bei einer 2D-Linie, an. Wie ist vorzugehen, um das Oberflächensymbol wie gewünscht (mit den entsprechenden Datasets) auf die Zeichnung zu verschieben?

Vielen Dank und schöne Feiertage,

burgmann

------------------

Grüße,

burgmann
__________________________________
Das Leben ist eines der härtesten!

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

---

Hallo burgmann,

ein SurfaceFinishSymbol lässt sich nur über "AddByTerminator" der SurfaceFinishSymbols Collection hinzufügen.
Notfalls kann ein Point2D Objekt dafür herhalten, das Du per Programm vorher an die gewünschte Stelle setzt und anschließend als Terminatorobjekt angibst.
Ein bereits platziertes SurfaceFinishSymbol lässt sich auch durch die "Move" Methode verschieben, wobei da das Problem darin besteht, sich zunächst per "GetTerminator" Methode die für die "Move" Methode notwendigen Quell x- und y- Koordinaten zu beschaffen.

------------------
Viele Grüße,

Wolfgang Kunert
www.wksyspro.de

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

---

Hi wksyspro,

danke für die Antwort, hat mir schon sehr weitergeholfen. U's sind unterwegs.

Gibt es auch eine Methode, um alle Oberflächensymbole eines aktiven Blattes zu zählen?

Mit besten Grüßen und schöne Feiertage,

burgmann

------------------

Grüße,

burgmann
__________________________________
Das Leben ist eines der härtesten!

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

---

Moin,

mal so aus dem Gedaechtnis:

count = count + <objDraft>.ActiveSheet.SurfaceFinishSymbols.Count

Achtung: die Symbole koennen auch als Gruppe zusammengefasst
werden. Dann muessen noch alle Gruppen durchsucht werden, diese
koennen ebenfalls gruppiert sein ...

modeng

------------------
For every problem there is one solution which is simple, neat, and wrong

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

---

Hi,

war ich also schon auf dem richtigen Weg, nur der User wollte anders als das Programm konnte. Danke. U's sind unterwegs.

------------------

Grüße,

burgmann
__________________________________
Das Leben ist eines der härtesten!

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