| |
![](https://ww3.cad.de/php/image.php?resolution=width:20050) | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
![](https://ww3.cad.de/php/image.php?resolution=width:16281) | PLM und ERP fest zusammengeschweißt - IDEAL-Werk (CIDEON, SAP, PLM, ERP), ein Anwenderbericht |
Autor
|
Thema: Lisp geht in Acad2007 nicht mehr (634 mal gelesen)
|
Tarl Cabot Mitglied Technischer Konstrukteur
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Tarl Cabot](/foren/ubb/pmimages/gbu.gif) Beiträge: 78 Registriert: 27.07.2006 Acad 2019 Advance Steel 2020 Inventor 2019
|
erstellt am: 02. Mai. 2007 09:41 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
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
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für spider_dd](/foren/ubb/pmimages/gbu.gif) Beiträge: 1137 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 / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Tarl Cabot
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
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Tarl Cabot](/foren/ubb/pmimages/gbu.gif) Beiträge: 78 Registriert: 27.07.2006 Acad 2019 Advance Steel 2020 Inventor 2019
|
erstellt am: 02. Mai. 2007 10:52 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
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
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Claudio](/foren/ubb/pmimages/gbu.gif) Beiträge: 334 Registriert: 13.04.2002
|
erstellt am: 02. Mai. 2007 11:16 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Tarl Cabot
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 |