Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Text in Block überprüfen und ggf. ändern

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:  Text in Block überprüfen und ggf. ändern (1215 mal gelesen)
tommygo
Mitglied



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

Beiträge: 47
Registriert: 03.02.2005

Windows 7 Professional - Version 6.1 - SP 1
Autodesk Building Design Suite Premium 2017

erstellt am: 02. Okt. 2007 09:44    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

Hallo,
ich hatte dieses Thema schon einmal in einer anderen Rubrik (http://ww3.cad.de/foren/ubb/Forum54/HTML/017934.shtml), habe dort aber nur einen Teilerfolg gehabt. Ich denke bei LISP bin ich richtiger.

Hier meine Frage:

Wir sind mit der Firma umgezogen und nun vergesse ich teilweise bei älteren Plänen im Schriftkopf die Anschrift zu ändern.
Gibt es eine Möglichkeit, dass beim öffnen einer Zeichnung den Text in einem Block (der innerhalb einer DWG auch mehrmals vorkommen kann) zu überprüfen und ggf zu ändern. Da wir innerhalb des Ortes umgezogen sind, ist eigentlich nur STRASSEALT gegen STRASSENEU auszutauschen.

Gruß und Dank

tommygo

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

tunnelbauer
Ehrenmitglied V.I.P. h.c.
Bauingenieur



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

Beiträge: 7085
Registriert: 13.01.2004

ich hab eh keine Probleme damit...

erstellt am: 02. Okt. 2007 10:16    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 tommygo 10 Unities + Antwort hilfreich

Du hast jetzt vergessen bei deiner Anfrage zu schreiben, wie du verhinderst, dass die 22 Attribute abgefragt werden.... 

Generell:
Der Planstempel sollte normal nicht mit dem Planschild kombiniert sein...
Das Planschild sollte normal nicht als Block eingefügt werden, sondern als XRef - somit kann sich die Adresse ändern sooft sie will und eine Änderung ist kein Problem (als nächstes ändert sich die Adresse, das Logo oder was auch immer von deinem Auftraggeber - du musst schon wieder alle Pläne anrühren...)

sonst teste mal:

Code:

(command "_-insert" "blockname=LW:/Verzeichnis/unterverzeichnis/Blockneu.dwg" nil)


------------------
Grüsse

Thomas


Korrekturen zum Kochbuch AutoLISP

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

tommygo
Mitglied



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

Beiträge: 47
Registriert: 03.02.2005

erstellt am: 02. Okt. 2007 10:36    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

das mit dem ersetzen des Blockes beim öffnen einer Zeichnung hat ja gut funtioniert und die Attribute kann man mit ESC abbrechen. Aber jetzt wird immer der Block ersetzt auch wenn schon der neue Block drin ist und ESC muß jedesmal benutzt werden.
Deswegen Teilerfolg im Forum Rund um Autocad und jetzt er Versuch im Forum Autolisp.

Ich dachte es gibt vielleicht mit LISP eine Möglichkeit nur den Text STRASSEALT zu überprüfen ob dieser vorhanden ist und wenn ja gegen STRASSENEU zu ersetzen.


tommygo

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

Andreas Kraus
Mitglied
Elektrotechniker


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

Beiträge: 1356
Registriert: 11.01.2006

WIN 10
ACAD 2022

erstellt am: 02. Okt. 2007 11:12    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 tommygo 10 Unities + Antwort hilfreich

Hallo tommygo,
ich habs leider verpasst dir schon im Rund um AutoCAD Forum zu antworten, aber da hab ich was. (danach noch regenerieren)

(if (setq blk_data (tblsearch "BLOCK" "kopf"))
  (progn
    (setq ent_name (cdr (assoc -2 blk_data)))
    (while ent_name
      (setq ent_data (entget ent_name))
      (if (and (= (cdr (assoc 0 ent_data)) "TEXT")
      (= (cdr (assoc 1 ent_data)) "STRASSEALT")
  )
(progn
  (setq ent_data (subst (cons 1 "STRASSENEU")
(assoc 1 ent_data)
ent_data
)
  )
  (entmod ent_data)
)
      )
      (setq ent_name (entnext ent_name))
    )
  )
  (princ)
)

Gruß
Andreas

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

tommygo
Mitglied



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

Beiträge: 47
Registriert: 03.02.2005

erstellt am: 02. Okt. 2007 13:05    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

   

Fantastisch Andreas,
es funktioniert.
Besten Dank, ab sofort gibt es keinen Rüffel  mehr vom Chef wenn auf einem alten Plan die Adresse nicht stimmt.

Gruß

tommygo

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