---

Roundhoehe.TXT

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

---

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

---

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

---

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