---

Hallo Leute,

ich habe heute schon einmal einen Beitrag erstellt, in dem mir mit der ersten Antwort schon perfekt geholfen wurde... Danke nochmal an Yvonne.
Jetzt habe ich folgendes Problem, ich würde gerne die nachfolgende Lisp genauso benutzen, wie sie ist, da es ja einwandfrei klappt, nur das ich noch zusätzlich zu den x und y Koordinaten und dem Text auch noch die z Koordinate bekomme. Ich bin im Lisp schreiben nur sehr schlecht und kriege das überhaupt nicht auf die Reihe.
Mein Chef war total begeistert wie schnell ich die Koordinaten hatte und jetzt soll ich das gleiche in einem 3D Modell machen.

(defun c:zkoord (/)
(setq dimzinalt (getvar "dimzin"))
(setvar "DIMZIN" 0)
(princ "\nACHTUNG: Höhentexte müssen auf Layer Höhe liegen!!! ")
(setq za 0)
(princ "\nHöhentexte wählen (einzeln oder Auswahlfenster) ")
(setq auswahl (ssget))
(setq anzahl (sslength auswahl))
(prompt "gewählt: ")
(princ)
(princ "\nDaten werden in Datei liste.txt geschrieben. ")
(setq wa (getint "\nEvtl. exist. Datei überschreiben <0> oder Daten anhängen <1> ? <1> "))
(if (= wa 0)
  (setq wa1 "w")
  (setq wa1 "a")
)
(setq f (open (strcat (getvar "DWGPREFIX")"liste.txt") wa1))
(while (< za anzahl)
  (setq liste (entget (ssname auswahl za)))
  (setq alayer (substr (cdr(assoc 8 liste))1 4))
  (setq atext (cdr(assoc 0 liste)))
(if (and(= atext "TEXT") (= alayer "Höhe"))
  (progn
    (setq auswahl1 (assoc 10 liste))
    (setq auswahl2 (cdr(assoc 1 liste)))   
    (setq pktlst1 (rtos (cadr auswahl1)2 3))
    (setq pktlst2 (rtos (caddr auswahl1)2 3))
    (setq pktlst3 (rtos (atof auswahl2) 2 3)) 
    (setq pktlst (strcat pktlst1 ";" pktlst2 ";" pktlst3 ";"))
    (princ za)
    (princ "\nPKTLst: ") (princ pktlst)
    (write-line pktlst f)
  )
)
(setq za (+ 1 za))
) ;end while
        (close f)
(setvar "dimzin" dimzinalt)   
) ;end defun

Ich danke Euch schon jetzt für Eure Hilfe...

Gruß Werner

------------------
gruß aus waldbrunn
werner

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

---

Hi

und nochmal den Weg zu cad-od.de Tool 122 vielleicht?

Sonst hier die Suche, ich meine, das gab es schon x-mal.

------------------
Gruß Yvonne                                ADT-Help-Site

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

---

gegen die alte zeile austauschen

(setq pktlst (strcat pktlst1 ";" pktlst2 ";" pktlst3 ";" (rtos (cadddr auswahl1)2 3)))

ciao georg

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

---

Hallo Georg,

ich habe Deine Zeile gegen die andere Zeile ausgetauscht, jetzt bekomme ich aber eine Fehlermeldung, nachdem ich alle Punkte ausgewählt habe und zwar folgende:

Fehler: Fehlerhafter Argumenttyp: streamp nil

AutoCad erstellt mir zwar eine Liste, aber in der ist dann leider nichts drin.

Vielleicht weißt Du oder jemand anderes, an was das liegt.

Danke schon mal im vorraus.

Ps. Yvonne, tut mir leid, wenn ich irgendwelche crosspostings <-- oder wie die auch immer heißen gemacht habe. Das lag nicht in meiner Absicht.

------------------
gruß aus waldbrunn
werner

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

---

Hi,

das macht ja nix, aber hast du Tool 122 mal versucht? Oder muss unbedingt diese eine Lisp umgeschrieben werden?

------------------
Gruß Yvonne                                ADT-Help-Site

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

---

Dieses eine Tool verweist genau auf den gleichen Forumsbeitrag.

Aber ich habe es jetzt noch an 3 anderen Modellen probiert und jetzt geht es auf einmal. Wenn ich das Modell in dem es nicht funktioniert, in eine neue Zeichnung kopiere, dann geht es auch.

Ergo: Ich danke Euch allen für Eure Hilfe, damit ist mein Problem gelöst.

------------------
gruß aus waldbrunn
werner

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