| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: (entget(car(entsel Mtext Hintergrund zuweisen (1850 mal gelesen)
|
Janda1980 Mitglied
Beiträge: 3 Registriert: 11.08.2009
|
erstellt am: 11. Aug. 2009 12:26 <-- editieren / zitieren --> Unities abgeben:
Hallo Ich möchte einem Mtext einen Hintergrund zuweisen mittels lisp. Ich komm da aber nicht weiter. Kann mir bitte jemand helfen. bitte dazuschreiben was ich flasch gemacht habe. das ist bis jetzt mein code: Code:
(defun c:mth ( / data )(while (setq data (entget(car(entsel "\nTEXT wählen:")))) (entmod (subst '(90 . 3) '(63 . 1) '(45 . 1.5) '(441 . 0) (assoc 1 data)data) ) ) )
Danke Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 11. Aug. 2009 12:47 <-- editieren / zitieren --> Unities abgeben: Nur für Janda1980
ich schau mir jetzt nicht die Gruppencodes vom MTEXT an, was eine Hintergrund ist, aber Deine subst Zeile ist schon mal falsch Zitat:
(subst '(90 . 3) '(63 . 1) '(45 . 1.5) '(441 . 0) (assoc 1 data) data)
aus der Hilfe: Zitat:
Searches a list for an old item and returns a copy of the list with a new item substituted in place of every occurrence of the old item(subst newitem olditem lst)
Du jedoch übergibst dem subst gleich 6 Argumente Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 11. Aug. 2009 12:50 <-- editieren / zitieren --> Unities abgeben: Nur für Janda1980
|
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 11. Aug. 2009 13:01 <-- editieren / zitieren --> Unities abgeben: Nur für Janda1980
OK, weil mir schnell mal fad war Code: (defun c:mth ( / Color en ed ) (setq Color 1) ; Hintergrund Farbe (while (and (setq en (car (entsel "\nTEXT wählen:"))) (setq ed (entget en)) (= (cdr (assoc 0 ed)) "MTEXT") ) (if (assoc 90 ed) (setq ed (subst (cons 90 1) (assoc 90 ed) ed)) (setq ed (append ed (list (cons 90 1)))) ) (if (assoc 63 ed) (setq ed (subst (cons 63 color) (assoc 63 ed) ed)) (setq ed (append ed (list (cons 63 color)))) ) (entmod ed) ) )
der Gruppen code 90 bestimmt, ob eine Hintergrundfüllung vorhanden ist, oder nicht und der gruppencode 63 bestimmt die farbe des Hintergrundes. Da dies jedoch optionale Gruppencodes sind, muss vor dem SUBSTen abgefragt werden, ob dieser überhaupt vorhanden ist. Ansonsten muss er nämlich mit APPEND angehängt werden. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Janda1980 Mitglied
Beiträge: 3 Registriert: 11.08.2009
|
erstellt am: 13. Aug. 2009 12:58 <-- editieren / zitieren --> Unities abgeben:
|
archtools Mitglied
Beiträge: 965 Registriert: 09.10.2004 Entwickler für AutoCAD, BricsCAD u.a., alle Systeme
|
erstellt am: 13. Aug. 2009 19:34 <-- editieren / zitieren --> Unities abgeben: Nur für Janda1980
Zitat: Original erstellt von fuchsi: Da dies jedoch optionale Gruppencodes sind, muss vor dem SUBSTen abgefragt werden, ob dieser überhaupt vorhanden ist. Ansonsten muss er nämlich mit APPEND angehängt werden.
Weil das bei der Bearbeitung von Gruppencodes ja öfter vorkommt, empfiehlt es sich, eine spezielle Version von SUBST zu schreiben, die dann, wenn der Code schon vorhanden ist, den vorhandenen mittels SUBST durch den neuen ersetzt, und die andernfalls den neuen einfach mit CONS hinten dran setzt. Code:
(defun my-subst (newpair inlist / temp) (cond ((not inlist) (list newpair) ; inlist existiert nicht ) ((setq temp (assoc (car newpair) inlist)) (subst newpair temp inlist) ; existiert schon, ersetzen ) ('T (reverse (cons newpair (reverse inlist))) ; hinten dran ) ) )
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 13. Aug. 2009 20:30 <-- editieren / zitieren --> Unities abgeben: Nur für Janda1980
naja ... immer nur einfach hintenranhängen klappt auch nicht immer ... manchmal kommt es auch auf die Position des GC in der GC-Liste an .. aber das nur am Rande ... die Idee, für sowas ne extra Funktion zu machen ist schon richtig ------------------ - 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 |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 14. Aug. 2009 07:33 <-- editieren / zitieren --> Unities abgeben: Nur für Janda1980
|