| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: text in gleichnamigen block konvertieren (738 mal gelesen)
|
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1213 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 10. Jun. 2003 11:18 <-- editieren / zitieren --> Unities abgeben:
hi freaks ! kennt jemand von euch eine kleine routine mit der ich texte in gleichnamige block konvertieren kann. beispiel: in einer zeichnung kommen die ziffern 1, 5 , 6, ... vor und nun möchte ich die ziffer 1 durch einen "dummey"-block 1, die ziffer 5 durch einen "dummey"-block 5, die ziffer 6 durch einen "dummey"-block 6,.... ersetzen. warum das rad zweimal erfinden ! vielen dank im voraus. gruß Jan :-) ------------------ jan :-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| CAD-Zeichner*in (m/w/d) | Das Fritz-Haber-Institut (FHI) der Max-Planck-Gesellschaft zur Förderung der Wissenschaften e.V. (fhi.mpg.de) gehört zu den international renommiertesten Forschungsinstituten. 400 Beschäftigte in fünf wissenschaftlichen Abteilungen betreiben und ermöglichen auf historischem Gelände in Berlin-Dahlem Spitzenforschung, die weltweit einzigartig ist.... | Anzeige ansehen | Technischer Zeichner, Bauzeichner |
|
Brischke Moderator CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 10. Jun. 2003 11:53 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
Hallo Jan, wahrscheinlich hast du jetzt länger auf'ne Antwort gewartet, als die Zeit die du zum Schreiben gebraucht hättest. Nachfolgende Zeilen tauschen dir den Text gegen die Dummy-Blöcke aus. Diese sollten natürlich schon existieren. Hat der Dummy-Block irgendwelche Attribute, dann solltest du nicht vergessen die Sysvar's so zu setzen, dass diese nicht abgefragt werden, oder eben die Werte der Attribute in der Command-Anweisung mit berücksichtigen.
Code:
(mapcar '(lambda (NAME / as) (setq as (ssget "_X" (list '(-4 . "<and") '(0 . "TEXT") (cons 1 NAME) '(-4 . "and>") ) ) ) (mapcar '(lambda (E) (command "_.INSERT" (strcat "dummy-" NAME);Hier Blocknamen in Abhängigkeit des Textwertes festlegen (cdr(assoc 10 (entget E))) "" "" "" ) (entdel E) ) (if as (bau_elemli as)) ) ) (list "6" "10");Hier die Liste der Textwerte eintragen. ) (defun bau_elemli (asatz / n elemli) (setq n 0) (repeat (sslength asatz) (setq elemli(cons (ssname asatz n) elemli) n (1+ n)) ) elemli )
Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! 4 Neue Tool's im FreeDownload(gesamt 33)!? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|