---

Hallo zusammen,

ich suche eine Möglichkeit, unter Acad2000 die für eine Flächenbilanz mit einer Topologieabfrage erzeugte Texte mit dem Wert von Area nachträglich mit dem Suffix m² zu versehen (und wenns geht mit einem Punkt als 1000er Trennzeichen). Eine Lisp habe ich bisher nicht gefunden und auch keien Beitrag mit ähnlicher Fragestellung.
Sucher-Ersetzen mit Platzhalter funktioniert leider nicht.

Kennt jemand eine nette Routine?

Danke Olli

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

---

Hallo Olli,

schau mal in diesem Beitrag.

Das ist zumindest ein Anfang. Den Code kannst du dir (sofern ein wenig LISP-Kenntnisse vorhanden sind) abändern.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

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

---

Vielleicht hilft Dir dieser Beitrag:
http://ww3.cad.de/foren/ubb/Forum285/HTML/000059.shtml

Gruß Anne

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

---

Danke Anne,

der Hinweis mit
(strcat (rtos .area 2 0) " m²")
war schon der erste Teil; das hat mir sehr geholfen. Bisher hatte ich nämlich das Problem, das rtos mit dem Text nicht funktionierte, wohl aber mit der Realzahl...

Aber wie ich das mit einem 1000er-Trennzeichen hinkriege (in Excel ganz einfach) ? Habt ihr da auch noch eine Idee?

Gruß Olli

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

---

(strcat (itoa (/ AREA 1000)) "." (rtos (- AREA (*(fix(/ AREA 1000))1000)) 2 0) " m²")

------------------
- 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

---

HAllo Thomas,

damit komme ich nun nicht mehr ganz klar.
Wenn ich das bei der Textwertabfrage eingeb, erhlate ich die Fehlermeldung "Nicht unterstützter Operator in diesm Ausdruck: itoa"

Kannst Du das bitt noch etwas weiter erläutern?
Danke!
Olli

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

---

oben hätte es heißen müssen
(strcat (itoa (fix(/ AREA 1000))) "." (rtos (- AREA (*(fix(/ AREA 1000))1000)) 2 0) " m²")
aber das geht ja bloß bei einem 1000'er Trennzeichen
besser ist :

(defun AREA-STRING (AREA / STRING REST)
  (setq STRING "")
  (if (numberp AREA)
    (progn
      (setq INDEX (fix(/(log AREA)(log 1000))))
      (repeat INDEX 
        (setq STRING (strcat STRING (itoa (fix(/ AREA (exp(* INDEX(log 1000)))))) "."))
        (setq AREA(- AREA (*(fix(/ AREA (exp(* INDEX(log 1000)))))(exp(* INDEX(log 1000))))))
        (setq INDEX (1- INDEX))     
      )
      (setq STRING (strcat STRING (rtos AREA 2 0)" m²"))
    )   
  )
  STRING
)

liefert dir z.B:
(area-string 1234567898.98) -> "1.234.567.899 m²"

Ach so, wenn Area 0 ist , gibts einen Fehler, aber das kannst du ja mit einem cond abfangen... und direkt als "0 m²" ausgeben
------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 20. Apr. 2005 editiert.]

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

---

Danke Thomas,

wenn ich das lade und direkt in der Eingabeaufforderung eintippe geht das; aber integriert in der Topologieabfrage kriege ich wieder die Fehlermeldung "Nicht unterstützter Operator in diesm Ausdruck: area-string".
Wie integriere ich das korrekt in die Abfrage, oder kann ich die Abfrage auch über eine Lisp erstellen?

Flächen mit 0 m² habe ich zum Glück selten... Dann wäre meine Digitalisierung falsch.

Danke!
Olli

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

---

Hallo Olli,
warum hängst Du immer zwei Dateien an?

Grüße Lutz

------------------
Glück Auf!

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

---

... Glaskugel an ..
na wie ermittlest du denn den Wert area ? .. Text auslesen ? .. wenn ja, mußt du diesen in eine Zahl umwandeln z.B. mit (distof ...)

------------------
- 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

---

Hallo Olli,

irgendwie blicke ich hier nicht wirklich, was du da anstellst. Schreib doch bitte mal an welchem Syswtem du das ganze machen willst, und was du wo reinschreibst.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

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

---

@ lutz
schön 3x gelöscht aber immer noch da. irgendwie hartnäckig. werden bei mir aber auch nicht mehr angezeigt...

@ holger und thomas
AcadMap2000

Map/Abfrage/Topologieabfrage definieren/Abfrage definieren/Eigenschaften ändern/Text/Daten  Areawert der Topologie wählen und Ausdruck unter Textwert dann manuell ändern. Mit  (strcat (rtos :AREA@TPMCNTR_erste_Änderung 2 0) " m²")  klappte das prima.
Als Ergebnis bekommst du "123 m.
Wie gesagt, mit: (area-string :AREA@TPMCNTR_erste_Änderung)in dieser Zeile kreige ich dann die Fehlermeldung, obwohl die LSIP vorher gelade war und an der Befehlseingabe auch anstandslos funktionierte.

Hilft das?
Olli

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