---

Guten Morgen,

da es bei mir häufig vorkommt, dass ich Fremddaten in meine Projekte einarbeiten muss (und dies tatsächlich immer händisch getan habe), frage ich mich, ob jemand vielleicht eine Lösung für folgenden Wunsch hätte:

1. Texthöhe 0,5 -> NEU 0,35
2. Texthöhe 0,75 -> NEU 0,45
3. Texthöhe 1,0 -> NEU 0,50

Alle Texte liegen auf unterschiedlichen Layern. Vielleicht wäre es möglich zu sagen/schreiben

alle Texte auf Layer A -> Texthöhe 0,35
alle Texte auf Layer B -> Texthöhe 0,40

Hoffentlich konnte ich das einigermaßen verständlich erklären.

Vielen lieben Dank im Voraus für Eure Unterstützung -  freu mich auf Eure Antworten.

Grüße
Zabarber

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

---

Zitat:

---

Original erstellt von Zabarber:
Guten Morgen,

da es bei mir häufig vorkommt, dass ich Fremddaten in meine Projekte einarbeiten muss (und dies tatsächlich immer händisch getan habe), frage ich mich, ob jemand vielleicht eine Lösung für folgenden Wunsch hätte:

1. Texthöhe 0,5 -> NEU 0,35
2. Texthöhe 0,75 -> NEU 0,45
3. Texthöhe 1,0 -> NEU 0,50

Alle Texte liegen auf unterschiedlichen Layern. Vielleicht wäre es möglich zu sagen/schreiben

alle Texte auf Layer A -> Texthöhe 0,35
alle Texte auf Layer B -> Texthöhe 0,40

Hoffentlich konnte ich das einigermaßen verständlich erklären.

Vielen lieben Dank im Voraus für Eure Unterstützung -  freu mich auf Eure Antworten.

Grüße
Zabarber

---

Das wäre doch eine nette kleine Aufgabe für Deinen allerersten Einstieg in Lisp. Dein Problem lässt sich in ganz wenigen Zeilen Code lösen (sofern innerhalb von MTEXTen keine Texthöhen codiert sind).

Fang' also einfach mal an, und wenn Du Probleme bei Programmieren hast, melde Dich gerne nochmals.

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

---

Hallo Zabarber,

Es ist eigentlich unüblich die gleiche Frage in drei verschiedenen Foren zu stellen. Wenn Dir eine Lösung auf welchen Weg auch immer, stell sie das nächste mal nur im "Rund um Autocad".

Dann noch eine Zusatzfrage:
Handelt es sich hier nur um reine Texte? oder befinden sich diese Texte auch in MText, Blöcken, Bemaßungen?

Grüße
Klaus 

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

---

Hallo Klaus,
ich habe vorab gerätselt, in welches Forum ich meine Frage stellen soll. Da ich aber überhaupt keine Ahnung habe, welche Lösungsmöglichkeiten es geben könnte, habe ich mal alle genutzt — nach dem Motto: Mehr hilft mehr. Aber sorry, wenn es dann zu Verwirrungen kommen könnte…

Ja, es handelt sich um einfache Texte (keine MTexte oder andere)

Grüße

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

---

Moin, musste gerade lachen….

Gerne würde ich in die LISP einsteigen, aber ich weiß nichtmal wie.
Daher meine Anfrage an die Profis.

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

---

Zitat:

---

Original erstellt von Zabarber:
Moin, musste gerade lachen….

Gerne würde ich in die LISP einsteigen, aber ich weiß nichtmal wie.
Daher meine Anfrage an die Profis.

---

Es gibt zahlreiche Online-Tutorials. Profis heissen deshalb so, weil sie ihre Arbeitsleistung gegen Geld liefern. Du magst bei Deiner Suche nach jemandem, der das auch mal kostenlos macht, Erfolg haben, aber ich bin eher gegen sowas.

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

---

Verstehe Deine Gedanken. Trotzdem denke ich, dass es Personen oder dieses Forum gibt, um zu helfen.
Wenn Du nicht helfen magst, wieso antwortest Du dann?

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

---

Zitat:

---

Original erstellt von Zabarber:
Verstehe Deine Gedanken. Trotzdem denke ich, dass es Personen oder dieses Forum gibt, um zu helfen.
Wenn Du nicht helfen magst, wieso antwortest Du dann?

---

Ich habe meine Hilfe angeboten. Aber das hast Du in Deinem Eifer, hier kostenfrei bedient zu werden, wohl übersehen.

Ich liefere hier Hilfe zur Selbsthilfe. Schnorrer kriegen nix.

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

---

Zitat:

---

Original erstellt von archtools:

Das wäre doch eine nette kleine Aufgabe für Deinen allerersten Einstieg in Lisp. Dein Problem lässt sich in ganz wenigen Zeilen Code lösen (sofern innerhalb von MTEXTen keine Texthöhen codiert sind).

Fang' also einfach mal an, und wenn Du Probleme bei Programmieren hast, melde Dich gerne nochmals.

---

Hierzu antwortete ich, dass ich das gerne tun würde, aber nicht weiß wie.
Ich gehöre nicht zu den Typen, die nichts versuchen und gleich um Hilfe bitten. Natürlich habe ich erst gegoogelt, wie wo was. Habe halt nichts passendes gefunden. Und wenn Du denkst, dass Profis nur gegen Entgelt helfen, täuscht Du Dich.

Okay, Du bist Geschäftsmann — daher wohl diese ablehnende und aufspielende Haltung. Finde ich persönlich sehr schade in einem Forum. Wenn Du nicht helfen magst und nur kluge Sprüche verteilen willst, lass es einfach, das tut der Fragestellung nicht gut.

Und jetzt nochmal zum mitschreiben: ich habe absolut keine Ahnung von programmieren 🤙🏽

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

---

Zitat:

---

Original erstellt von Zabarber:
… Und jetzt nochmal zum mitschreiben: ich habe absolut keine Ahnung von programmieren 🤙🏽

---

Wie würdest du dir wünschen, dass dir geholfen wird?

Das Forum hier steht für Fragen rund um die Lisp-Programmierung zur Verfügung.
Man tauscht sich entweder über Herangehensweisen aus, dafür muss die Aufgabe klar sein aber Code muss dafür nicht geteilt werden. Oder man hat eine konkrete Frage zu einem Detail bei der Umsetzung, dafür ist die übergeordnete Aufgabenstellung unerheblich und es genügt meist der Austausch von kleinen Subroutinen oder wenigen Codezeilen. Für derlei Hilfe ist es vollkommen unerheblich, ob jemand damit Geld verdient - ggf. hat aber derjenige, der damit Geld verdient, ein so umfangreiches Wissen und Erfahrung, dass er damit Geld verdienen und helfen kann.
Es ist aber für einen befriedigenden Austausch zwischen Hilfesuchenden und Helfer immer notwendig, dass ein Mindestmaß an Kenntnissen vorhanden ist. Die Vermittlung dieser Grundkenntnisse kann ein Forum nicht leisten … Hinweise, wo du dir diese aneignen kannst, sind ja in diesem Thread auch gepostet.

Darum ist der Hinweis von archtools vollkommen richtig: Fang einfach an, und bei konkreten Fragen kannst du Fragen stellen und es wird dir dann sicher auch geholfen.

Und du darfst auch davon ausgehen, dass die Profis auch an dem Punkt „keine Ahnung“ gestartet sind und sicher auch schon Tage für eine Codezeile gegrübelt/gelesen/gesucht haben.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Zitat:

---

Original erstellt von Zabarber:

Hierzu antwortete ich, dass ich das gerne tun würde, aber nicht weiß wie.

---

Nun, das ist wenig glaubhaft, zumal ich Dich bereits auf die Existenz von Online-Tutorials hingewiesen habe. Es ist wohl eher so, dass Du, aus welchen Gründen auch immer, nicht programmieren lernen willst.

Alle "Profis" hier im Forum standen irgendwann mal mit genau so wenig Programmierkenntnissen da wie Du.

Du hast folgende Möglichkeiten:

1. Schnorren
2. Jemanden mit der Erstellung eines Programms beauftragen und dafür zu bezahlen
3. Dein Problem selbst lösen, wobei Du gerne Hilfe hier im Forum annehmen kannst. Genau dazu ist das Forum nämlich da.

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

---

Hy

darf man den Link posten ?

http://www.autolisp.info/download.html

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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

---

Zitat:

---

Original erstellt von cadwomen:

http://www.autolisp.info/download.html

---

Axels Tutorial ist immer wieder schön zu lesen, selbst für Leute, die es eigentlich nicht mehr brauchen. Es gibt nichts besseres, und es ist auch nichts besseres denkbar. Und es steckt so viel von Axels wundervoller Persönlichkeit darin, dass er darin in gewisser Weise weiter lebt.

Ich hatte das Privileg, mit ihm befreundet gewesen zu sein, und zusammen mit ihm sogar eine Lisp-Gruppe im realen Leben betrieben zu haben. Aus unserem gemeinsamen Projekt, einen Prolog-Interpreter (für KI und Expertensysteme) für AutoCAD zu schreiben, ist durch seinen frühen Tod leider nichts mehr geworden.

Hier also eine virtuelle Gedenkminute für Axel Strube-Zettler:

<1 Minute schweigendes Gedenken>

Danke

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

---

Hallo.

Gib das mal in die Befehlszeile in ACAD ein:

Code:

---

(entget(car(entsel)))

---

Objekt wählen: ((-1 . <Objektname: 1b595bb7da0>) (0 . "TEXT") (5 . "258FA") (102 . "{ACAD_XDICTIONARY") (360 . <Objektname: 1b595bb7db0>) (102 . "}") (330 . <Objektname: 1b5b99309f0>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "LAYERNAME") (100 . "AcDbText") (10 30896.5 75232.2 0.0) (40 . 0.125) (1 . "wqcwcwqc") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "Standard") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))

Das sind die Objektdaten des gewählten Objekts.
_______________________________________________________________________________________________

Dieser Codeschnipsel löscht alle Text mit der Höhe 0.125

Code:

---

(if (ssget "_X" (list '(0 . "TEXT")'(40 . 0.125)(cons 410 (getvar 'CTAB))))(command "_.ERASE" "_P" ""))

---

'(0 . "TEXT")'(40 . 0.125) Sucht nach Texten mit Höhe 0.125
'(0 . "TEXT")'(8 . "TEST") Sucht nach Texten auf Layer TEST
'(0 . "TEXT")'(8 . "TEST")'(40 . 0.125) Sucht nach Texten auf Layer TEST und Höhe 0.125

Texthöhen in ACAD ändere ich über CHTEXT.
Einfach mal nach "CHTEXT.lsp" googeln.

Kann so geladen werden:

Code:

---

(load "C:/LISP/chtext.lsp")

---

Die Textänderung mache ich über ein extra Skript.
(command "_.SCRIPTCALL" "C:/XYZ/123/Texthoehe-050-to-035.scr")

Texthoehe-050-to-035.scr:

Code:

---

;;;Text von 0,50 auf 0,35
CHT Vorher  Höhe 0.35 

---

Den Code in eine Textdatei und von .txt in .scr umbenennen.

LG

------------------
Gruß
Manuel

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

---

Zitat:

---

Original erstellt von Manuel486:
[i]Hallo.

Gib das mal in die Befehlszeile in ACAD ein:

Code:

---

(entget(car(entsel)))

---

'(0 . "TEXT")'(40 . 0.125) Sucht nach Texten mit Höhe 0.125
'(0 . "TEXT")'(8 . "TEST") Sucht nach Texten auf Layer TEST
'(0 . "TEXT")'(8 . "TEST")'(40 . 0.125) Sucht nach Texten auf Layer TEST und Höhe 0.125

Texthöhen in ACAD ändere ich über CHTEXT.
Einfach mal nach "CHTEXT.lsp" googeln.
[/code]

---

Man kann natürlich CHTEXT.LSP verwenden, aber das ist hier, wo man die DXF Liste schon hat, doch gar nicht nötig. Man ändert in der DXF-Liste einfach den Wert der Texthöhe unter Gruppencode 40 auf passende Weise, und schreibt die veränderte Liste mit ENTMOD wieder zurück ins Entity. Fertig.

Dazu bastelt man sich natürlich allgemein verwendbare Bibliotheksfunktionen, wie z.B. diese hier:

Code:

---

(defun ssmodent (ename dxf val)
  (entmod (at-subst
            (cons dxf val)
            (entget ename)
          )
  )
)

---

Damit kann man für ein Entity jeden DXF-Gruppencode ändern. Die Texthöhe (Gruppencode 40) eines Textelements EN ändert man also ganz einfach mit (ssmodent en 40 0.2) auf den Wert 0.2. Den Layer desselben Entity's ändert man mit (ssmodent en 8 "NEUERLAYER"). Der neue Layer muss dabei vorher nicht existieren. Alle als DXF codierten Eigenschaften lassen sich damit bequem ändern.

Im obigen Code wird eine weitere Bibliotheksfunktion AT-SUBST verwendet, die das SUBST etwas allgemeiner verwendbar macht. Hier ist sie:

Code:

---

;;; ersetzt in einer ASSOC-Liste den
;;; (assoc (car ntok) lst) Ausdruck durch den ntok Ausdruck
(defun at-subst (ntok lst / temp)
  (cond
    ((not lst)
          (list ntok)  ; lst existiert nicht
    )
    ((not (assoc (car ntok) lst))
          (reverse (cons ntok (reverse lst)))    ; assoc existiert noch nicht, hinten dran
    )
    ( 'T
      (subst ntok (assoc (car ntok) lst) lst)    ; assoc existiert schon, ersetzen
    )
  )
)

---

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

---

Schön, dass es nun doch noch Mundgerecht geliefert wird 

Zitat:

---

Den Code in eine Textdatei und von .txt in .scr umbenennen.

---

Das ist allerdings zusätzlich zu der fehlenden Funktion, die liebenswerterweisearchtools schon ergänzt hat, nicht ganz richtig.
Die Textdate muss die Endung .lsp erhalten.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Zitat:

---

Original erstellt von CADwiesel:
Das ist allerdings ...nicht ganz richtig.
Die Textdate muss die Endung .lsp erhalten.

---

Das ist allerdings komplett falsch, denn Manuel486 beschrieb wie man es in einem Script schreibt (schreiben kann),
daher wäre
CHT Vorher  Höhe 0.35
in einer .scr richtig.

auch wenn das unnötig und besonders hier - unnötig verwirrend ist.

scnr 

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