---

Hallo,

ich bin auf der Suche nach einem Tool das Zahlenwerte von z.B. Höhenkooten um einen bestimmten Betrag ändert - am besten in ACAD 14. Leider war meine Suche im Forum erfolglos!!!

Wir planen Pumpstationen, die oft mehrmals in unterschiedlichen Höhenlagen gebaut werden. Dabei verwenden wir die amtlichen Höhenangaben der Vermessungsämter für unsere Höhenkooten. Leider muß ich bis jetzt immer die neue NN-Höhen für die Pumpstation per Hand ändern/anpassen. Ich bin auf der Suche nach einem Tool, das alle Höhenkooten , die als Text auf einem extra Layer vorliegen, um einen vorgegebenen Betrag, erhöht bzw. verringert - wenn möglich das ganze in ACAD14!

Hat jemand eine Idee??

MfG 
Dietz Franz
dietz@ebb-gmbh.de

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

---

Zitat:

---

Original erstellt von fd1:
Hallo,
Hat jemand eine Idee??

---

Sicher .. ein entsprechendes Lisp!! Guck dir mal diesn Beitrag an. Da hab ich mal was ähnliches realisiert .. wenn' es keine Attribute , sondern Texte sind, wird es sogar noch einfacher. Das Prinzip bleibt auf jeden Fall dasselbe.

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

aber das ist nicht ganz das richtige.
Es sollte eigentlich nur alle Textwerte eines Layers oder einer Auswahl um den vorgegebenen Betrag ändern.

Gruß
Dietz Fr.

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

---

nö, sicher ist das nicht das Richtige ... sondern nur das Prinzip, das die aufzeigt, wie es gehen könnte. Oder erwartest du jetzt von mir (oder dem Forum), das dir mal so nebenbei ein fertiges Programm reingestellt wird? Kannst zwar drauf hoffen, es aber nicht erwarten.

Wenn ich mal ne Pumpenstationsplanung brauche, siehst du das sicher auch als Dienstleistung, oder? 

------------------
  - 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 fd1:
...verwenden wir die amtlichen Höhenangaben der Vermessungsämter...neue NN-Höhen...

---

Nur so am Rande: die aktuellen und offiziellen deutschen Höhen werden nicht mit NN bezeichnet, sondern mit NHN. Vgl. auch hier (vorletzter Absatz).

Grüße Lutz

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

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

---

hallo,

ich bin hier nur auf der Suche. Kostenlose Dienstleistungen braucht keiner für mich erbringen. Mit lisp hab ich einfach zu wenig Erfahrung.
Für alle gutgemeinten Tipps trotzdem herzlichen Dank!

MfG
Dietz Fr.

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

---

Zitat:

---

Original erstellt von fd1:
hallo,

ich bin hier nur auf der Suche. Kostenlose Dienstleistungen braucht keiner für mich erbringen. Mit lisp hab ich einfach zu wenig Erfahrung.
Für alle gutgemeinten Tipps trotzdem herzlichen Dank!

MfG
Dietz Fr.  

---

.. schön, dass du das als Hinweis verstanden hast ...  

anbei mal etwas, was deinen Vorstellungen wohl eher entspricht:

(defun c:Pumpenkote ( / CHT KOTE AWS DELTA)
  (defun CHT (TEXT DELTA / DATA WERT)
    (if(and(numberp DELTA)
           (=(type TEXT) 'ENAME)
           (setq DATA (entget TEXT '("*")))
           (=(cdr(assoc 0 DATA))"TEXT")
           (setq WERT (distof (cdr(assoc 1 DATA))))
       )
      (progn
        (setq WERT(+ WERT DELTA))
        (entmod(subst (cons 1 (rtos WERT 2 3))(assoc 1 DATA)DATA))
      ) 
    )
  )
  (if(and(setq KOTE(car(entsel "\nBeispielkote wählen:")))
         (setq DELTA(getreal "\nÄnderungswert eingeben :"))
         (setq AWS(ssget "_x" (list '(0 . "TEXT")
                                     (cons 8 (cdr(assoc 8 (entget KOTE))))
                                     (cons 410 (getvar "ctab"))
                              )
                  )
         )
     )
    (progn
      (setq INDEX -1)
      (repeat (sslength AWS)
        (cht(ssname AWS (setq INDEX (1+ INDEX))) DELTA)
      ) 
    )
  ) 
)
.. bin jetzt einfach mal davon ausgegangen , das deine Höhenkote ne Zahl "123" ist ...

und zu deiner "mangelnden Lisperfahrung" :man muß auch nicht alles können. Zur Not gibts auch für sowas Dienstleister  ..

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

nach Eingabe des Änderungswertes bricht das lisp leider ab!
Trotzdem DANKE!

MfG
Dietz Fr.

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

---

Sorry,

Zahlen war ein MText. Nach Ursprung als Text funtzts! - Super!
Genau so wärs richtig.
Meine Zahlen haben die Form "123.45"
Jetzt müßten sich nur noch alle ausgewählten Zahlen mit diesem Betrag ändern lassen auf einmal - das wärs!

Herzlichen Dank für deine Mühe, ich werd mal schauen ob ich so viel in Lisp rausbekomme.

DANKE!
Schönes Wochenende!

Gruß
fd

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

---

guck mal hier
http://ww3.cad.de/foren/ubb/Forum54/HTML/008805.shtml#000012

LG

Thomas

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