---

gibt es eine möglichkeit zu zahlen in autocad eine zahl dazuzuaddieren? habe sehr viele höhenquoten in einer zeichnung und müsste zu allen einen wert dazuaddieren?

danke gotthard

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

---

nein, so einfach (also in ACAD"Pur") geht das nicht, aber evtl findest du hier oder im LISPforum ein Tool
welches das kann !?

Wobei du deine ACADversion angeben solltest (beim Thread erstellen) und auch
um was für AutoCADobjekte es sich bei deinen "höhenquoten" handelt..

------------------
.Signatur hat derzeit leider Urlaub.

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

---

wo finde ich das lisp forum?

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

---

Bei knapp 200 Postings dachte ich fälschlicherweise das du dich hier auskennst   

und HIER mal die Foren-Übersicht !

und dort dann unter "AutoDESK

siehe hier: LISP Forum

------------------
.Signatur hat derzeit leider Urlaub.

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

---

Hi Gotthard,
da "versteckt" sich das LISP-Forum:
http://ww3.cad.de/cgi-bin/ubb/forumdisplay.cgi?action=topics&forum=Lisp&number=145

Aber im AutoCAD gibt es doch was - schau mal in der AutoCAD Hilfe unter KAL (Befehl) nach - dort solltest Du das wichtigste über den Online Geometrierechner herauslesen können 
und dann entscheiden, ob das reicht oder LISP nötig wird...

Gruss Angelika

------------------
Lieber Fehler riskieren als Initiative verhindern.
(Reinhard Mohn)

Bitte Supportangaben eintragen, warum siehst du hier
:

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

---

zB hier : http://ww3.cad.de/foren/ubb/Forum145/HTML/000689.shtml

------------------
.Signatur hat derzeit leider Urlaub.

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

---

Hallo,

ich hab gerade den Befehl KAL rausgefunden, darüber kann man einfachste Rechenaufgaben lösen wie Addieren, Subtrahiere, Diffidieren, Multiplizieren, usw.

Grüße

Kerstin

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

---

Jo, der editiert aber keine AutoCAD objekte !
zudem Addiert er nur was man im sagt, also kann man auch keine
vorh. TEXTangaben übernehmen/addieren/zurückschreiben lassen

@Kerstin :
Wenn du ihn erst jetzt kennengelernt hast, lese ein wenig in der Hilfe dazu, du wirst staunen was der alles kann !!

------------------
.Signatur hat derzeit leider Urlaub.

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

---

erst mal vielen dank für eure hilfe. das hat wunderbar funktioniert. leider habe ich ein problem in der zeichnung und zwar sind die zahlen aus einem vermessungsprogramm eingelesen und mit leerstellen formatiert. jetzt habe ich erst mal alles auf cm gebracht. das heisst ich habe jetzt alles zahlen in cm ausgedrückt und müsste dies mit wieder einer routine durch 100 dividieren, damit ich dann mit dem addieren lisp arbeiten kann. z.B. 1000cm werden dann 10.00cm

das wäre super. danke

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

---

du hast doch Texte in der Zeichnung ....
wie sehen denn die jetzt aus?
am besten mal (entget(car(entsel))) in der Befehlszeile eingeben, so einen Text anklicken und das Ergebnis posten..
und was willst du dann mit den Texten machen?
Ist 234.0909 -> Soll +50 -> 284.0909 .. also bitte genauer!

Das Lisp läßt sich doch prima anpassen.. genauso , wenn du viele Zahlen hast, zu denen alle  der gleiche Wert addiert werden soll..

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

---

Isses denn nicht einfacher, das vor dem Einlesen in der Textdatei zu erledigen?

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

Guten Morgen,
Eventuell sind es ja auch Attribute, die man auslesen, in Excel bearbeiten (verändern) und dann wieder einlesen kann.

Grüße Lutz

------------------
May the force be with you! 

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

---

modiho.LSP.txt

Hallo Gotthard,

Ich habe so was mal für Höhenangaben gemacht. Differenz ist frei eingebbar, funktioniert für "Texte" mit Dezimalkomma und Dezimalpunkt, liefert Wert mit 2 Nachkommastellen (dies ist aber leicht anpassbar, einfach Zeile mit (rtos neuwert 2 2) suchen und ändern.
Probiers mal aus!

Viele Grüße
spider

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

---

erst mal vielen dank an euch alle. also noch mal. es sind ganz normale texte. da steht z.B.

-1205 das soll werden -12.05
-933 das soll werden -9.33

das heisst also alle Zahlen in meiner zeichnung solle durch 100 dividierd werden. anschließend dann kann ich eines eurer empfohlenen lisp verwenden, um zu allen zahlen noch mnal einen wert dazuzuzählen. aber zuesrt müssen diese eben durch 100 dividierd werden. leider kann ich kein lisp und weiss eben nicht ob so was geht.
hoffe ich habe mich jetzt verständlich erklärt. vieleicht kann mir jemand helfen. vieln dank

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

---

Moin,

das ist Klasse.
Ich kann es im Moment sehr gut gebrauchen.
Kann man das noch so ändern, dass nach dem Addieren ein andere Layer für die geänderten Zahlen gesetzt wird?

Danke

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

---

(defun c:Div100(/ AUSWAHL INDEX OBJDATA Z1 Z2)
  (if(setq Auswahl(ssget "_X" '((0 . "TEXT"))))
    (progn
      (setq INDEX -1)
      (setq Z1 0)
      (repeat (sslength AUSWAHL)
        (setq OBJDATA(entget(ssname AUSWAHL(setq INDEX(1+ INDEX)))))
        (if (setq Z2 (distof (cdr(assoc 1 OBJDATA))))
          (progn
            (setq OBJDATA (subst(cons  1 (rtos (+(/ Z2 100) Z1) 2 2))
                                (assoc 1 OBJDATA)
                              OBJDATA
                          )                 
            )         
            (entmod OBJDATA)
          ) 
        ) 
      )
      (command "_regen")
    )
  )
)

dividiert dir alle Texte , die Zehlen repräsentieren durch Hundert.
wenn du zufällig auch überall den gleiche Wert dazuaddieren willst, ersetz (setq Z1 0) durch (setq Z1 deinezahl)

@Asschu :
füge nach
(setq ctl (subst (cons 1 neuwert_txt) (assoc 1 ctl) ctl))
noch das ein (neuer Layer muß existieren) und den Namen mußt du natürlich ändern
(setq ctl (subst (cons 8 "neuerlayer") (assoc 8 ctl) ctl))

------------------
      - 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 27. Okt. 2004 editiert.]

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

---

hallo thomas,

das ist genau was ich brauche. habs jetzt versucht, bringt mir aber einen syntaxfehler. was kann das sein?

lg gotthard

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

---

hab mal die Smilies aktiviert und noch ein (if eingebaut .. kopiers dir nochmal raus und probiers nochmal

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

---

@CADmium

10 U's sind schon auf deinem Konto

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

---

was bedeuten 10 UIs?

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

---

Zitat:

---

Original erstellt von Gotthard:
was bedeuten 10 UIs?

---

das sind die Unities für sehr gute Hilfe.
Siehe in den Artikeln in der Mitte.

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

---

die hilfe ist absolut genial. ihr habt mich gerettet.

danke nochmals
gotthard

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