| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Durchgängige CAD-Daten in der Produktkonfiguration, eine Pressemitteilung
|
Autor
|
Thema: Textüberschreibung (3074 mal gelesen)
|
gap Mitglied
Beiträge: 24 Registriert: 04.04.2005 XP-2006LT-EXTENDER
|
erstellt am: 04. Apr. 2005 22:24 <-- editieren / zitieren --> Unities abgeben:
mal was ganz ganz neues hat jemand eine idee wie einer textüberschreibung (bemassung) der wert <> zurückgegeben werden kann ohne lästiges: ddedit,<>tippsen und enter meine versuche dies mit einem simplen makro zu machen fruchten nicht - auch gibt es anscheinend keine systemvariable mit dem dieser wert auf den anfangswert zurückgesetzt werden könnte. LG aus wien
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Caladia Ehrenmitglied V.I.P. h.c.
Beiträge: 2546 Registriert: 04.03.2002 ACAD2009 ACAD2010 SP2 ACAD2011 SP1 ABDS-S 2012 SP2 ABDS-S 2013 SP2 ABDS-S 2014 SP1 ABDS-S 2015 SP2 ABDS-S 2016 Expresstools A3-Makroboard 16-Tasten Lupe Impression 3 Win7 64bit IE11 Firefox Office2003 SP3
|
erstellt am: 04. Apr. 2005 22:29 <-- editieren / zitieren --> Unities abgeben: Nur für gap
|
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, Monitore, ...
|
erstellt am: 04. Apr. 2005 22:55 <-- editieren / zitieren --> Unities abgeben: Nur für gap
|
otterloh Mitglied
Beiträge: 188 Registriert: 27.06.2001 AutoCAD 2012, 2013, 2019 Win8.1
|
erstellt am: 05. Apr. 2005 07:55 <-- editieren / zitieren --> Unities abgeben: Nur für gap
Hallo gab, probier mal dieses Lisp ;*********************************************** ;OrgBemTxt.lsp ;Setzt den Maßtext wieder auf den Original-Wert ;Die Bemaßung wird dadurch wieder assoziativ ;*********************************************** (defun c rgBemTxt (/ ss cont en ent newtxt el) (defun *error* (msg) (setq ss nil cont nil en nil el nil ent nil newtxt nil el nil) (princ msg) (princ) ) (princ "\nWähle diverse Masstexte. ") (setq ss (ssget (list (cons -4 "<or") (cons 0 "DIMENSION") (cons -4 "or>") ) ) cont T ) (if ss (progn (while (and cont (setq en (ssname ss 0))) (setq ent (entget en)) (setq newtxt "") (setq el (entget (cdr (assoc -1 ent)))) (setq el (subst (cons 1 newtxt)(assoc 1 el) el)) (entmod el) (setq ss (ssdel en ss)) ) ) ) (princ) ) ;**************************************************** ;HomeBemTxt.lsp ;Schiebt den Maßtext wieder an die Original-Position ;**************************************************** (defun c:HomeBemTxt (/ ss cont en) (defun *error* (msg) (setq ss nil cont nil en nil) (princ msg) (princ) ) (princ "\nWähle einen Masstext. ") (setq ss (ssget (list (cons -4 "<or") (cons 0 "DIMENSION") (cons -4 "or>") ) ) cont T ) (if ss (progn (while (and cont (setq en (ssname ss 0))) (command "_dimtedit" en "a") (setq ss (ssdel en ss)) ) ) ) (princ) )
------------------ Gruß Werner http://www.konstruktionsbuero-meyer.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
gap Mitglied
Beiträge: 24 Registriert: 04.04.2005 XP-2006LT-EXTENDER
|
erstellt am: 05. Apr. 2005 20:14 <-- editieren / zitieren --> Unities abgeben:
|
flaschenpost Mitglied Architekt
Beiträge: 497 Registriert: 29.09.2004 ADT 2004 / Windows XP
|
erstellt am: 05. Apr. 2005 21:58 <-- editieren / zitieren --> Unities abgeben: Nur für gap
|
Peter Tropf Mitglied Konstrukteur
Beiträge: 246 Registriert: 28.06.2003
|
erstellt am: 07. Apr. 2005 00:20 <-- editieren / zitieren --> Unities abgeben: Nur für gap
|