---

Hallo,
ich habe eine Punktname als String, und möchte den Punkt suchen, danach färben.
Die Aufgabe ist vlt. einfach, ist aber bei mir nicht geklappt

Set oMySel = part1.FindObjectByName("Point.95")
oMySel.VisProperties.SetRealColor 60, 179, 113, 1

es bleibt bei dem 2.Codezeile hängend, mit de Meldung:"Object doesnt support the method"

also das Suchen ist geklappt, das Einfärben nicht.
Weißt jemand vlt. warum
Auf jeder Hilfe bin ich sehr dankbar

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

---

Servus
Du musst das Objekt zuerst der Slektion übergeben (ungetestet):

Code:

---

Set oMyPoint= part1.FindObjectByName("Point.95")
set osel = oPartDoc.selection
osel.clear  'sicherstellen dass nichts anderes selektiert ist
osel.add oMyPoint  'Punkt selektieren
osel.VisProperties.SetRealColor 60, 179, 113, 1

---

Gruß
Bernd

EDIT: Du könntest auch den Punkt gleich über osel.Search suchen (siehe Doku)

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

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