---

Hallo zusammen,

nach der Hilfe von Henning gestern, bin ich schon einige (ich würde sagen RIESEN  ) Schritte weitergekommen, aber ich hänge nun schon den halben Tag an dem Problem und kann mir (trotz Acad Hilfe und Büchern) nicht erklären warums net klappt! 

Folgender Code verursacht immer einen Laufzeitfehler:

Code:

---

....
Dim objSS As AcadSelectionSet
Dim ssPoint As AcadPoint
Dim ssPointUCS As Variant
.......
Set ssPoint = objSS.Item(i)
Set ssPointUCS = ThisDrawing.Utility.TranslateCoordinates(ssPoint, acWorld, acUCS, False)
.....

---

"Ungültiges Argument Point in Translate Coordinates" liegt es daran, das ich hier keine Punkte aus meinem SelektionSet auf diese Weise verarbeiten kann?? 

Grüße aus Wü

------------------
Etwaige Rechtschreibfehler sind gewollt und dienen der allgemeinen Belustigung 

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

---

Hi Manuel,

Dein ssPoint sollte ein Variant mit 3 Werten sein. Die 3 Werte müssen dann dabei die X-, Y- und Z-Koordinate sein. Da sollte dein Fehler liegen.

Gruß, Carsten

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

---

Hallo,
acadPoint ist ein OBJEKT (ein Punkt in AutoCAD), und nicht eine "Sammlung von Koordinaten". Schau Dir doch mal das Beispiel in der Hilfe zu TranslateCoordinates an, da wird nämlich der Punkt als Variant dimensioniert.
Es müsste also so aussehen:

Code:

---

Dim ssPoint As Variant
...
ssPoint = objSS.Item(i).Coordinates
...

---

[Edit] oder aber:

Code:

---

Dim ssPoint As AcadPoint
...
ssPointUCS = ThisDrawing.Utility.TranslateCoordinates(ssPoint.Coordinates, acWorld, acUCS, False)

---

[/EDIT]
Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

       http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 04. Sep. 2008 editiert.]

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

---

Hallo Carsten1210,

danke für die schnelle Antwort, aber das habe ich leider auch schon versucht.... mit dem selben Ergebniss...

"Laufzeitfehler '-2147024809(80070057)' Ungültiges Argument Point in TranslateCoordinates"

Vielleicht sollte ich noch erwähnen, das mein SelectionSet (objSS) nur Punkte enthält, falls relevant!

Gruß Manu

@Henning: Sorry, hatte gerade diese antwort geschrieben, als deine kam!!
werds gleich mal ausprobieren!! VIELEN DANK!
------------------
Etwaige Rechtschreibfehler sind gewollt und dienen der allgemeinen Belustigung  

[Diese Nachricht wurde von ManuelKuhn am 04. Sep. 2008 editiert.]

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

---

Henning du bist meine HELD!!!   
(bitte nicht falsch verstehen  , bin nur echt happy weil ich ewig rumprobiert hatte!)

Ich hatte deine Variante vorher schon einmal versucht (weils eben in der Hilfe so stand), aber ohne Erfolg! Erst als du das jetzt geschrieben hast hab ich mir gedacht, dass muss ja dann doch gehen und dabei hab ich noch nen anderen Fehler gefunden.... 

Ich danke euch beiden für die schnelle und kompetente Hilfe!!
(Unities sind unterwegs!)

Grüße´
Manu 

------------------
Etwaige Rechtschreibfehler sind gewollt und dienen der allgemeinen Belustigung 

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