Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Zahlen automatisch addieren oder subtrahieren

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Zahlen automatisch addieren oder subtrahieren (1601 mal gelesen)
sabjon
Mitglied
Bauzeichner


Sehen Sie sich das Profil von sabjon an!   Senden Sie eine Private Message an sabjon  Schreiben Sie einen Gästebucheintrag für sabjon

Beiträge: 120
Registriert: 12.02.2009

Windows 10 64 Bit, Autocad 2021

erstellt am: 14. Okt. 2016 07:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Guten morgen alle zusammen,
ich habe folgendes Problem. Ich habe eine Menge Zahlen auf einem Layer von denen möchte ich einen gewissen Wert addieren und/oder subtrahieren. Die Zahlen sind normale einzeilige Texte. Gibt es da eine Möglichkeit?
Danke!!

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 14. Okt. 2016 08:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für sabjon 10 Unities + Antwort hilfreich

Jo gibt es ...

anbei mal so ein Tool :

(defun C:ADDVALUE(/ AWS)
  (vl-load-com)
  (if(and(setq AWS(ssget '((0 . "TEXT"))))
        (or(setq LISTE(vl-remove-if 'null
                        (mapcar
                          '(lambda(X / Y V)
                              (if(and(setq Y(cadr X))
                                    (=(type Y)'ENAME)
                                    (setq Y(vlax-ename->vla-object Y))
                                    (setq V(vla-get-textstring Y))
                                    (setq V(distof V))
                                )
                                (list Y V)
                              )
                            ) 
                          (ssnamex AWS)
                        )
                      )
            )
            (prompt "\nKeine geeigneten Texte Gewählt")
        ) 
        (setq VALUE(getreal"\n Additionswert(+/-) : "))
    )   
    (progn     
      (mapcar
        '(lambda(X)
          (setq V(+ VALUE (cadr X)))
          (vla-put-textstring (car X)(rtos V 2))
        ) 
        LISTE
      ) 
    ) 
  )
  (princ)
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

spider_dd
Mitglied



Sehen Sie sich das Profil von spider_dd an!   Senden Sie eine Private Message an spider_dd  Schreiben Sie einen Gästebucheintrag für spider_dd

Beiträge: 1111
Registriert: 27.11.2003

Win 10Pro
Intel(R) Core(TM) i7-7700
NVIDIA Quadro P1000
ACAD, Civil-3D 2018

erstellt am: 14. Okt. 2016 08:14    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für sabjon 10 Unities + Antwort hilfreich

Hallo sabjon,

mit Bordmitteln kenne ich nichts, per Proggi geht das.
Dazu musst Du den Text holen, in eine Zahl wandeln, Deinen Betrag addieren, das Ergebnis wieder in einen Text wandeln und diesen dem Textobjekt zuweisen.
Dabei lauern aber ein paar Fallen.
Ist der Dezimaltrenner ein Punkt oder ein Komma, dieses müsste vorher und hinterher wieder getauscht werden.
Wieviele Nachkommastellen haben die Zahlen und alle die gleiche Anzahl oder unterschiedlich.

Also: Im Prinzip ja, aber ...

Gruß
Thomas


/edit/ Ok. wärend ich hier so rumtippe, gibt es gleich schon die Lösung. ich lege mich wieder hin 

[Diese Nachricht wurde von spider_dd am 14. Okt. 2016 editiert.]

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

sabjon
Mitglied
Bauzeichner


Sehen Sie sich das Profil von sabjon an!   Senden Sie eine Private Message an sabjon  Schreiben Sie einen Gästebucheintrag für sabjon

Beiträge: 120
Registriert: 12.02.2009

Windows 10 64 Bit, Autocad 2021

erstellt am: 14. Okt. 2016 08:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Super. Dass Tool hat funktioniert!! DANKE!!!  

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz