|
AutoLisp : offene Dokumente
Helmut F am 28.08.2003 um 13:17 Uhr (0)
Hallo HP, wenn du du alle geöffneten Zeichnungen meinst, müßte folgende Routine klappen : (defun geoeffnet ( / MCAD Doku i Dokument Zeichnung DWG_Liste aktiv_Nr ) (Setvar Cmdecho 0) (vl-load-com) (setq MCAD (vlax-invoke-method (vlax-get-acad-object) GetInterfaceObject Mcad.Application ) Doku (vlax-get-property MCAD Documents) i 0) (vlax-for Dokument Doku (setq Zeichnung (vlax-get-property Dokument HostDocument) DWG_Liste (append DWG_Liste (list (vlax-get-property Zeichnung Na ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : alle Dateien öffnen
Helmut F am 26.08.2003 um 13:01 Uhr (0)
Hallo HP, für einen ähnlichen Fall habe ich schon mal was gemacht. Versuch mal folgendes : 1. Mit Lisp ein SCRIPT-File anlegen lassen 2. Danach dieses Script ausführen z.B.: (defun C pen_Zoom_Close ( / verzeichnis all_files scr_file i) (setq verzeichnis (vl-filename-directory (getfiled Verzeichnis und BELIEBIGE Zeichnung wählen dwg 2)) all_files (vl-directory-files verzeichnis *.dwg 1) scr_file (open (strcat (getvar TEMPPREFIX ) My_script.scr ) w ) i 0) (Repeat (length all_files) (w ...
| | In das Form AutoLisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |