リスペックとアドセンターの更新ブロック

[77marco77]

おはようございます。

ライブラリに存在する新しいブロックで、百本の描画に存在するブロックを更新する必要があります。 アドセンターは、彼の義務のegregiamenteを実行します, ブロックは、ブロックを再定義し、ゲームが終わったら、インサートに同じ名前を持っています: ブロックの属性のコンテンツが継承され、その定義に含まれている新しいデフォルト値 (他の人が影響した).
問題は、108以上の異なるブロックとアドセンターがあり、それぞれが1つのブロックを一度に1つだけ差し込むことができるという事実にあります(これは8000回以上クリックしてインサートしたい)。
この速度を上げるために lisp を持つ方法は?

 

[77marco77]

ポスターや同様の問題に対する解決策を探している人のために、私はこのアドオン(今のために)で動作するソリューションを発見しました:別の図面に合わせて1つの図面でブロック定義を更新 (最後の投稿) そして、ここでアドオン

https://site.google.com/site/avcplugins/bupdate

私は私のPCでそれを試し、それが動作します: あなたは、設計に存在するすべてのブロックを選択し、新しい定義のソースデザインを示し、正確に何をすべきか、そして設計に存在するすべての定義をブロー更新することができます。
残念ながら、しかし、会社のPCにインストールしないでください。 . . .

 

[77marco77]

ポスターのアップデート(と私は忘れた場合、私のために... ):
ここでは、アドイン、アドク、または外部ソフトウェアなしで究極のソリューションです。

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

そしてここにコード(リンクが動作を停止する場所):

(defun Browseforfolder (テキストのrootfolder/ret y ))
(setq y (vlax-get-or-create-object "shell.application")))
(setq ret (vlax-invoke y "browseforfolder" 0 text 1 rootfolder)) の場合)
(setq ret (vlax-get (vlax-get ret "self") "path")))))
(vlax-release-object y)
ログイン
)

(defun get_table (テーブル/tb tb_ls))
(setq tb (tblnext テーブルt))
tb_ls ニル
)
(間tb)
(コンド)
(=(strcaseテーブル) "style")
(= (boole 1 (cdr (assoc 70 tb)))) 1) 0);ビット 1 のビーデットの象徴、キーン シュリフト!
(setq tb_ls (tb_ls (list (cdr (assoc 2 tb)))))))))))))))
)
)
(=(strcaseテーブル) "block")
(/= (substr (cdr (assoc 2 tb))) の場合) 1 1)「*」
(setq tb_ls (tb_ls (list (cdr (assoc 2 tb)))))))))))))))
)
)
(t)
(setq tb_ls (tb_ls (list (cdr (assoc 2 tb)))))))))))))))
)
)
(setq tb (tblnext テーブル)))
)
(setq tb_ls (vl-sort tb_ls '<)))
)


(defun c:all-block-upd (/b_liste ant n bl_ex) )
(setvar「cmdecho」) 0)
(コマンド "_undo" "_be")
(setq bl_liste (get_table "block")))
(blu_pfad の場合)
(progn)
(initget「ja nein」))
(setq ant (getkword) (strcat "pfad" bl_pfad " verwenden?) <ja>/nein:")
(= ant "nein") (setq bl-pfad (browseforfolder "blockpfad wählen:"")))))))
)
(setq bl_pfad (browseforfolder "blockpfad wählen:""))))
)
(foreach n bl_liste) は、
(progn)
(setq bl_ex (strcat bl_pfad "\" n ".dwg"))
(findfile bl_ex) (command "_insert" (strcat n "=" bl_ex")))
)
)
(コマンド "_undo" "_end")
(setvar「cmdecho」) 1) 1
(プリン)
)

(defun c:block-upd (/b_liste ant n bl_ex) )
(setvar「cmdecho」) 0)
(コマンド "_undo" "_be")
(setq bl_liste (get_table "block")))
(blu_pfad の場合)
(progn)
(initget「ja nein」))
(setq ant (getkword) (strcat "pfad" bl_pfad " verwenden?) <ja>/nein:")
(= ant "nein") (setq bl-pfad (browseforfolder "blockpfad wählen:"")))))))
)
(setq bl_pfad (browseforfolder "blockpfad wählen:""))))
)
(foreach n bl_liste) は、
(progn)
(setq bl_ex (strcat bl_pfad "\" n ".dwg"))
(検索ファイルb_ex)
(progn)
(initget「ja nein」))
(setq ant (getkword) (strcat "block" n "aktualisieren?) <ja>/nein:")
(/= ant "nein") (command "_insert" (strcat n "=" bl_ex) nil)))
)
)
)
)
(コマンド "_undo" "_end")
(setvar「cmdecho」) 1) 1
(プリン)
)

(prompt "funktionen all-block-upd und block-upd ゼラデン。) (c) h. jesse 2006年)</ja></ja></ja>

egregiamente は終端の一般的なシンカットだけを要求します。
デザイン "old" に入力したデータを更新し、新しいタグをインサートし、デフォルト値を定義にインポートし、新しい名前を持つタグの名前を変更します。