Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Lisp geht in Acad2007 nicht mehr

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Lisp geht in Acad2007 nicht mehr (632 mal gelesen)
Tarl Cabot
Mitglied
Technischer Konstrukteur


Sehen Sie sich das Profil von Tarl Cabot an!   Senden Sie eine Private Message an Tarl Cabot  Schreiben Sie einen Gästebucheintrag für Tarl Cabot

Beiträge: 78
Registriert: 27.07.2006

Acad 2019
Advance Steel 2020
Inventor 2019

erstellt am: 02. Mai. 2007 09:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

spider_dd
Mitglied



Sehen Sie sich das Profil von spider_dd an!   Senden Sie eine Private Message an spider_dd  Schreiben Sie einen Gästebucheintrag für spider_dd

Beiträge: 1111
Registriert: 27.11.2003

Win 10Pro
Intel(R) Core(TM) i7-7700
NVIDIA Quadro P1000
ACAD, Civil-3D 2018

erstellt am: 02. Mai. 2007 10:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Tarl Cabot 10 Unities + Antwort hilfreich

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

Tarl Cabot
Mitglied
Technischer Konstrukteur


Sehen Sie sich das Profil von Tarl Cabot an!   Senden Sie eine Private Message an Tarl Cabot  Schreiben Sie einen Gästebucheintrag für Tarl Cabot

Beiträge: 78
Registriert: 27.07.2006

Acad 2019
Advance Steel 2020
Inventor 2019

erstellt am: 02. Mai. 2007 10:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Claudio
Mitglied
Architekt


Sehen Sie sich das Profil von Claudio an!   Senden Sie eine Private Message an Claudio  Schreiben Sie einen Gästebucheintrag für Claudio

Beiträge: 334
Registriert: 13.04.2002

erstellt am: 02. Mai. 2007 11:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Tarl Cabot 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz