---

Hallo und einen schönen Guten Abend,

Ich habe eine Zeichnung mit Vermessungsdaten. Dargestellt sind ca 205 Punkte mit einer Höhe. Diese Höhe ist mit TEXT erzeugt. Nun habe ich örtliche Höhen und möchte gerne NN Höhen. Den Umrechenfaktor habe ich, nur suche ich eine Möglichkeit alle Höhen auf einmal mit dem Faktor x zu addieren?
Gruß Gunter

------------------

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

---

Hallo Gunter,

1) Was heißt mit einem Faktor addieren?
2) Was sind das für Texte? MTEXT, TEXT, Kommatrennung?, Liegen die Texte alle auf einem Layer, wie kann man diese eindeutig identifizieren?
3) Steht in den Texten nur die Zahl?

Wenn
zu 1) Addition
zu 2) Text, und nur dieser Text in der Zeichnung ist. Die Zahl den Punkt zur Dezimaltrennung benutzt
zu 3) nur die Zahl im Text steht

Dann helfen die folgenden Lisp-Zeilen:

Code:

---

(defun c:ZahlenTextPlusFaktor (/ aws FAK NK)
  (setq NK 4;Hier Nachkommastellen des Ergebnisses eingeben
        aws (ssget "_X" '((0 . "TEXT"))))
  (if aws
    (progn
      (initget 1)
      (setq FAK (getreal "\nFaktor zum addiern ;-): "))
      (foreach TEXT (mapcar 'entget(bau_elemli aws))
        (entmod
          (subst
            (cons 1 (rtos(+ (atof(cdr(assoc 1 TEXT)))FAK) 2 NK))
            (assoc 1 TEXT)
            TEXT
            )
          )
        )
      )
    (princ "\nKeinen Text gefunden!")
    )
  (princ)
  )
(defun bau_elemli (asatz / n elemli)
  (setq n 0)
  (repeat (sslength asatz)
    (setq elemli(cons (ssname asatz n) elemli)
  n (1+ n))
    )
  elemli
  )
(princ "\n(defun - Lisp over night!")
(princ "\nhttp://www.defun.de --- mailto:kontakt@defun.de")
(princ "\n .. geladen --> Start mit \"ZahlenTextPlusFaktor\"")

---

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!                          Autodesk User Group Central Europe
AutoLISP-Programmierung für AutoCAD              AUGCE Manager Deutschland
Da weiß man, wann man's hat!
                     

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

---

Oh Du größter LISPER aller LISPER........!!!!!!

Genau das hab ich gesucht! Kannst Du mir mal verraten, wie Du solche kleine Programme aus dem Ärmel schütteln kannst???

Gruß und Gute Nacht Gunter

------------------

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

---

Hallo Gunter,

was soll ich jetzt dazu schreiben?
Bitte!
Das war jetzt selbst für eine Lisp over night Programmierung zu wenig. Und wie ich das mache? Man nehme: 1 Kopf, 10 Finger und eine Menge Erfahrung .. dann kräftig schütteln .. 

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!                          Autodesk User Group Central Europe
AutoLISP-Programmierung für AutoCAD              AUGCE Manager Deutschland
Da weiß man, wann man's hat!
                     

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

---

na nun sei mal nicht so bescheiden....aber diese Bescheidenheit ehrt Dich!
Nein mal Spaß bei Seite, wenn ich so deine Einwürfe hier in den Foren lese, dann bin ich schon beeindruckt, von Deinem Können (Schleim!). Also irgendwie möchte ich Dich schon mal kennenlernen.

Gruß Gunter

------------------

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

---

catPRO Stuttgart ... , und ich freu mich auch schon ..

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

---

Ich fühle mich geehrt.

Zitat:

---

Original erstellt von cadPLAN:
...Also irgendwie möchte ich Dich schon mal kennenlernen...

---

Tja, zum Anwendertreffen in Stuttgart gab's die Gelegenheit, am 15.12.2004 zum 1. Stammtisch in Düsseldorf gibts die Nächste.

Also - Möglichkeiten gab es und wird es immer wieder geben.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!                          Autodesk User Group Central Europe
AutoLISP-Programmierung für AutoCAD              AUGCE Manager Deutschland
Da weiß man, wann man's hat!
                     

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

---

SCNR 
... @Holger... hättest auchdas minimal modifizieren können... dann hättest du zumendest alle Nichtzahlentexte ausgeschlossen...
und
@CADplan .. mit der Suche wärste auch drauf gestossen 

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

---

Zitat:

---

Original erstellt von CADmium:

... @Holger... hättest auch das minimal modifizieren können... dann hättest du zumendest alle Nichtzahlentexte ausgeschlossen...

---

Tja CADmium, du weisst sicher selber auch, dass für die paar Zeilen das Suchen länger gedauert hätte, als diese kurz runter zu tippen.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!                          Autodesk User Group Central Europe
AutoLISP-Programmierung für AutoCAD              AUGCE Manager Deutschland
Da weiß man, wann man's hat!
                     

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

---

Zitat:

---

@CADplan .. mit der Suche wärste auch drauf gestossen 

[/B]

---

Hallo CADmium,

du wirst es kaum glauben...aber ich habe die Suche benutzt. Leider habe ich andere Suchbegriffe benutzt. Manchmal ist es halt schwierig genau den richtigen Suchbegriff einzugeben um dann das gewünschte Ergebnis zu erhalten. In diesem Fall, gebe ich Dir Recht, hätte ich draufkommen können, aber manchmal sieht man halt vor lauter Bäumen den Wald nicht mehr.

@Holger:
Düsseldorf ist ein bißchen weit für mich. Aber vielleicht gibts mal eine solche Veranstaltung im Raum Stuttgart.

Gruß Gunter

------------------

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

---

Zitat:

---

Original erstellt von cadPLAN:
...... Aber vielleicht gibts mal eine solche Veranstaltung im Raum Stuttgart...

---

Hallo Gunter,

Du kannst das beeinflussen!
Ausrichter eines solchen Stammtisches kann jeder sein. Wenn du mehr darüber wissen möchtest, dann Mail an: holgerb@augce.de
Die Unterlagen sende ich dir dann zu.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!                          Autodesk User Group Central Europe
AutoLISP-Programmierung für AutoCAD              AUGCE Manager Deutschland
Da weiß man, wann man's hat!
                     

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