Update Blow Lisp vs. ADCENTER

[77marco77]

Guten Morgen.

Ich muss die Blöcke in hundert Zeichnungen mit den neuen Blöcken in der Bibliothek aktualisieren. adcenter tut seine Pflicht egregiamente, die Blöcke haben den gleichen Namen dann zum Einsatz fragt, ob Sie den Block neu definieren und klicken Sie auf das Spiel ist getan: die Inhalte der Attribute der Blöcke werden vererbt und enthalten in ihrer Definition die neuen Standardwerte (die unter anderem betroffen).
das Problem liegt darin, dass in jeder dieser 108 Zeichnungen mehr als 80 verschiedene Blöcke vorhanden sind und adcenter mir erlaubt, nur einen Block zu einer Zeit einzufügen (die gerne über 8000 mal klicken und einfügen möchten).
Gibt es einen Weg mit einer Lippe, um das zu beschleunigen?

 

[77marco77]

für Plakate und diejenigen, die eine Lösung für ein ähnliches Problem suchen, fand ich eine Lösung, die mit diesem Add-on (für jetzt) kostenlos funktioniert:Aktualisieren der Blockdefinition in einer Zeichnung, um eine andere Zeichnung anzupassen (letzter Beitrag) und dann hier das Add-on

A>V>C> - Block Update

по-русски AVC_BUpdate plugin for AutoCAD and BricsCAD Replace selected blocks with blocks of the same name from another drawing.

sites.google.com

Ich habe es auf meinem PC versucht und es funktioniert: ermöglicht es Ihnen, alle im Design vorhandenen Blöcke auszuwählen und das Quelldesign der neuen Definitionen anzuzeigen und tut genau das, was sollte und in einem Schlag aktualisiert alle Definitionen im Design.
Leider aber auf der Firma pc macht mich nicht zu installieren. .

 

[77marco77]

Update für Poster (und für mich, wenn ich vergesse... ):
hier ist die ultimative Lösung ohne Add-in, adc oder externe Software:

http://ww3.cad.de/foren/ubb/forum54/html/018068.shtml#000032

und hier der Code (wo immer der Link nicht mehr funktioniert):

(defun browseforfolder)
(setq y (vlax-get-or-create-object "shell.application"))
(wenn (setq ret (vlax-invoke y "browseforfolder" 0 text 1 rootfolder))
(setq ret (vlax-get (vlax-get ret "self") "path"))
(vlax-release-object y)
Reduzieren
)

(defun get_table (Tabelle / tb tb_ls)
(setq tb (tblnext table t)
tb_ls nil
)
(while tb)
(cond)
((= (Strcase table) "style")
(falls (= (beide 1 (cdr (assoc 70 tb))) 1) 0);bit 1 bedeutet Symboleintrag, keine schrift!
(setq tb_ls (Anhang tb_ls (Liste)))
)
)
((= (Strcase table) "Block")
(falls (/=) (Substr (cdr (assoc 2 tb)) 1 1) "*")
(setq tb_ls (Anhang tb_ls (Liste)))
)
)
(t)
(setq tb_ls (Anhang tb_ls (Liste)))
)
)
(setq tb)
)
(setq tb_ls (vl-sort tb_ls '<))
)


(defun c:all-block-upd ( / bl_liste ant n bl_ex)
(Setvar "cmdecho" 0)
(Befehl "_undo" "_be")
(setq bl_liste (get_table "block"))
(falls bl_pfad
(Prog.)
(initget "ja nein")
(setq ant (getkword (strcat "pfad " bl_pfad " verwenden? <ja>(Nein))
(if (= ant "nein") (setq bl-pfad (browseforfolder "blockpfad Angebot:""))
)
(setq bl_pfad (Browseforfolder "blockpfad Auswahl:"")
)
(foreach n bl_liste
(Prog.)
(setq bl_ex (strcat bl_pfad "\\" n ".dwg"))
(falls (findfile bl_ex) (Befehl "_insert" (Strcat n "=" bl_ex) nil))
)
)
(Befehl "_undo" "_end")
(Setvar "cmdecho" 1)
(prinz)
)

(defun c:block-upd ( / bl_liste ant n bl_ex)
(Setvar "cmdecho" 0)
(Befehl "_undo" "_be")
(setq bl_liste (get_table "block"))
(falls bl_pfad
(Prog.)
(initget "ja nein")
(setq ant (getkword (strcat "pfad " bl_pfad " verwenden? <ja>(Nein))
(if (= ant "nein") (setq bl-pfad (browseforfolder "blockpfad Angebot:""))
)
(setq bl_pfad (Browseforfolder "blockpfad Auswahl:"")
)
(foreach n bl_liste
(Prog.)
(setq bl_ex (strcat bl_pfad "\\" n ".dwg"))
(falls Datei bl_ex)
(Prog.)
(initget "ja nein")
(setq ant (getkword (strcat "block " n " ergänzt) <ja>(Nein))
(falls (/= ant "nein") (Befehl "_insert" (Strcat n "=" bl_ex) nil))
)
)
)
)
(Befehl "_undo" "_end")
(Setvar "cmdecho" 1)
(prinz)
)

(prompt "funktionen all-block-upd und block-upd geladen. (c) h. jesse 2006")</ja></ja></ja>

Arbeiten egregiamente erfordert nur einen allgemeinen Sündenfall am Ende.
speichert die im Design "alt" eingefügten Daten, um die neuen Tags zu aktualisieren, importiert die Standardwerte in den Definitionen und umbenannt die Tags, die einen neuen Namen haben, es ist perfekt!