---

Guten Morgen Forum,

wir haben eine Lisp, welche in Acad2002 und 2006 einwandfrei funktioniert hat. Jetzt ist bei uns auf Acad2007 umgestellt worden und die Lisp schmeißt uns falsche Koordinaten raus. Ich habe mich schon verzweifelt auf die Fehlersuche begeben, aber finde einfach nichts.
Kann es möglich sein, das die Lisp unter 2007 nicht mehr funktioniert?
Wenn ja, an was liegt das denn?

(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 ";" (rtos (cadddr auswahl1)2 3)))
    (princ za)
    (princ "\nPKTLst: ") (princ pktlst)
    (write-line pktlst f)
  )
)
(setq za (+ 1 za))
) ;end while
        (close f)
(setvar "dimzin" dimzinalt)   
) ;end defun

Danke schon mal im vorraus für Eure Antworten.

Gruß aus Waldbrunn

Tarl Cabot

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

---

Hallo Tarl Cabot,

also getestet unter 2004 und 2007 kann ich keinen Unterschied feststellen. Das Prog sieht in der Hinsicht OK aus.
Wie "falsch" sind die Koordinaten? Wurden die Texte evtl. anders ausgerichtet (Mitte, Links; ...)?
Kannst Du mal eine Datei mit ein paar der Texthöhen einstellen, vielleicht noch mit der Textdatei, die die Angaben aus 2002/6 und 2007 enthält?

LG
Thomas

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

---

Hallo Thomas,

danke für Deine schnelle Antwort.
Wir haben das Problem schon gefunden. Es lag daran, das der Text nicht in Welt lag, sondern verdreht im Raum, dadurch sind auch diese "seltsamen" Koordinaten zustande gekommen. Darauf sind wir leider erst gerade eben gestossen.   

Trotzdem Danke für Deine Hilfe!

Gruß Tarl Cabot

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

---

Hallo Tarl Cabot!
Da das Problem gefunden ist-nur ein kleiner Verbesserungsvorschlag:
(setq auswahl(SSGET (list (cons 0 "TEXT") (cons 8 "Höhe"))))
dann werden wirklich NUR Texte und NUR auf dem Layer "Höhe" gewählt
-macht das Prog flotter und dann sparst Du Dir :
...(princ "\nACHTUNG: Höhentexte müssen auf Layer Höhe liegen!!! ")
...(setq alayer (substr (cdr(assoc 8 liste))1 4))
...(setq atext (cdr(assoc 0 liste)))
...(if (and(= atext "TEXT") (= alayer "Höhe"))

Gruß Claudio

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