---

Endpunkt.zip

Hallo Formel-Spezialisten!

Möchte den Endpunkt einer Linie als Eigenschaft anzeigen lassen.
Das Problem bei der Auswertung der Formel ist aber, dass
ich bemerkt habe, dass DOUBLEs in Arrays nicht ausgewertet werden.
Und der Endpunkt WIRD als Array von DOUBLEs repräsentiert.
Komme aber mit Epx=Endpkt(0) nicht weiter....
Vielleicht weiss von euch jemand, wie man dieses
Problem beheben (umgehen) kann?
(In VBA funktionierts - mit ADT-VBScript leider nicht...)
Zeichnung mit Formel-Eigenschaft angefügt.

FORMEL:
Set app=GetObject(,"AutoCAD.Application")
Set Plan=app.activedocument
Set ELine=plan.handletoobject("[Handle]")
ENDPKT=Eline.Endpoint
EPx=Endpkt(0)
EPy=Endpkt(1)
EP="EP:" & EPx & "," & Epy
ERGEBNIS=EP

Gruß Claudio!

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

---

Hallo Claudio,

nur mal so ins Blaue hinein am späten Abend 

Es gab da meiner Erinnerung nach ein Übersetzungsproblem mit ERGEBNIS in ADT2004 und ADT2005.

Geht die Formel denn mit RESULT=EP im ADT2005?

Tom

------------------
Inoffizielle ADT-Help-Site

Rome wasn't built in a day. But these days we just have one to do so.

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

---

Hallo Tom!

Leider hat das keinen Einfluss. (RESULT oder ERGEBNIS)
Es sind NUR die Fliesskommazahlen ein Problem für die Formelauswertung.
Allein die Zuweisung ist schon nicht möglich
z.B. a = 16#  (# für Double-Format) -geht nicht.

Gruß Claudio

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

---

Hi Claudio,

zunächst mal vorweg: Ich habe bisher auch noch keine Lösung gefunden.

Zunächst dachte ich schon, dass ich es hätte, denn Handle besitzt nicht das Standardformat und dann fällt das Progamm schon dort auf die Nase.

Dann musste ich aber leider feststellen, dass man an die Koordinaten der Start- oder Endpunkte trotzdem nicht drankommt. Endpkt ist zwar tatsächlich ein Array von Doubles (überprüft mit vartype) und ubound liefert auch korrekterweise 2 (sowie lbound 0) aber alle Zugriffe mittels endpkt(0) oder auch endpkt(1) oder endpkt(2) führen zu einem Fehler.

Insgesamt merkwürdig, denn ein

arr1=array(cdbl(1), cdbl(2), cdbl(3))
result=a(0)

klappt und dort haben wir ja auch ein Array mit Doubles.

Ich habe trotz fehlender Lösung mal meine Erkenntnisse hier rausgelassen, vielleicht finden wir ja dann gemeinsam doch noch eine Lösung...

sayonara
Torsten Möhlenhoff
ACAD-Systemhaus Bremen

------------------
Alles wirD guT

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

---

hups, habe gerade gesehen, dass mein Vergleich etwas hinkt.

das arr1=array(cdbl(1), cdbl(2), cdbl(3)) erzeugt ein Array von Variants während endpkt ja ein Array von Double enthält ...

sayonara
Torsten

------------------
Alles wirD guT

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

---

Hallo Torsten!
Danke, dass Du Dir die Sache angeschaut hast
(Hab ein bissl auf Dich gehofft...)
Das mit dem "Handle" war natürlich richtig von Dir erkannt.
Hab aber für das Hauptproblem des Auslesens von Doubles
leider auch noch keine Lösung.

Gruß Claudio

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