| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Lisp Fehler (1678 mal gelesen)
|
blue75 Mitglied
Beiträge: 110 Registriert: 29.06.2005 Autocad Civil 3D 2015, Windows 7
|
erstellt am: 28. Okt. 2011 08:56 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute Wir haben bei uns ein Lisp im einsatz zum Runden der Atributwerte. (Hier im Forum gefunden) Nun ist es so das wir hier im Büro verschiedene Autocad versionen haben. Bei mir funktioniert das Lisp einwandfrei. (ich habe "Civil 3D 2012") Meine Vermesserkollegen arbeiten mit "Autodesk Topobase Client 2010" und dort funktioniert das gleiche Lisp leider nicht. Es kommt immer folgender Fehler nach dem ich das Lisp aufrufe. ; Fehler: no function definition: ROUND-ATTRIBUTWERT Was muss ich änderen damit es auch für "Autodesk Topobase Client 2010" funkioniert??? Gruss Blue Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 28. Okt. 2011 09:01 <-- editieren / zitieren --> Unities abgeben: Nur für blue75
Jo da fehlt auch ein Teil in der Lisp , den Ihr vielleicht in einer extra-lsp-Datei habt, die auf dem Rechner der Kollegen nicht existiert. IMHO kommt mir der Text auch sehr bekannt vor .... hier der Rest (defun ROUND-ATTRIBUTWERT ( INSERT ATTRIBUTNAME STELLEN / OBJEKTDATEN WERT) (if (and(=(type INSERT) 'ENAME) (=(cdr(assoc 0 (setq OBJEKTDATEN (entget INSERT)))) "INSERT") (assoc 66 OBJEKTDATEN) ) (progn (while (/= (cdr (assoc 0 OBJEKTDATEN)) "SEQEND") (setq OBJEKTDATEN (entget (entnext (cdr (assoc -1 OBJEKTDATEN))))) (if (and(= (cdr (assoc 0 OBJEKTDATEN)) "ATTRIB") (or (not ATTRIBUTNAME) (and (=(type ATTRIBUTNAME)'STR) (=(strcase(cdr(assoc 2 OBJEKTDATEN)))(strcase ATTRIBUTNAME)) ) ) (setq WERT(distof(cdr(assoc 1 OBJEKTDATEN))2)) (/= WERT (fix WERT)) ) (entmod(subst(cons 1 (rtos WERT 2 Stellen)) (assoc 1 OBJEKTDATEN) OBJEKTDATEN ) ) ) ) ) ) )
------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
blue75 Mitglied
Beiträge: 110 Registriert: 29.06.2005 Autocad Civil 3D 2015, Windows 7
|
erstellt am: 28. Okt. 2011 10:25 <-- editieren / zitieren --> Unities abgeben:
Danke dir für deine erläuterung. klappt jetzt wieder auf allen Versionen.... ;-) Aber was ich mir nicht ganz erklären kann, wo der fehlende Teil dann im Civil 2012 geladen wurde, aber ist ja auch egal. Es klappt ja wieder einwandfrei. Herzlichen dank..... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 31. Okt. 2011 10:37 <-- editieren / zitieren --> Unities abgeben: Nur für blue75
Schade das hier wieder diese 'Mach mir mal.... ist mit Egal..' Einstellung zum Tragen kommt. Dadurch, das viele sich hier einfach einer Leistung von Anderen bedienen aber selbst keinen Geist in die Lösung ihres Problemes reinstecken, brauchen sich viele über eine nachlassende Hilfe hier nicht zu wundern. Irgendwie verstehen wohl echt viele Anwender nicht, das sie mit den Lösungen hier teilweise extrem viel Arbeitszeit, Geld und Graue Haare einsparen können.
------------------ Gruß CADwiesel Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |