ネットワークフォルダ内の検索にファイルコードへの小さな変更

[77marco77]

お問い合わせ
下のコードは、それが持っていることとそれも非常にまた、私はすでに書かれている お問い合わせ唯一の欠如と更新のためのdwgファイルを検索するために、小さなエクスプローラウィンドウを開くときには、ローカル(ディスクc:、d:、現在の場合usbペン)のみを検索することができ、 "見ていない"とネットワークディスクに検索しません。 再びコードを取り戻します。 誰かがコードの「ウィンドウエクスプローラ」に必要な変更をネットワークディスクにも表示できますか?

;(vl-load-com)
(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 Geladen.")</ja></ja></ja>