77marco77
Guest
Hallo.
der Code unten tut, was es hat und tut es auch sehr gut, wie ich bereits geschrieben quider einzige Mangel und dass beim Öffnen seines kleinen Explorer-Fensters, um nach dwg-Dateien für das Update zu suchen, in der Lage ist, nur lokal zu suchen (die Festplatten c:, d: , ein USB-Stick, wenn vorhanden) aber "nicht sehen" und sucht nicht in den Netzwerk-Disks. Ich bringe hier wieder den Code zurück: Könnte jemand die notwendige Modifikation für den "Fenster-Explorer" des Codes auch Netzwerkdisketten sehen?
der Code unten tut, was es hat und tut es auch sehr gut, wie ich bereits geschrieben quider einzige Mangel und dass beim Öffnen seines kleinen Explorer-Fensters, um nach dwg-Dateien für das Update zu suchen, in der Lage ist, nur lokal zu suchen (die Festplatten c:, d: , ein USB-Stick, wenn vorhanden) aber "nicht sehen" und sucht nicht in den Netzwerk-Disks. Ich bringe hier wieder den Code zurück: Könnte jemand die notwendige Modifikation für den "Fenster-Explorer" des Codes auch Netzwerkdisketten sehen?
Code:
;(vl-load-com)
(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.")</ja></ja></ja>