;;;AutoCAD preferences exposed via Visual Lisp functions (DEFUN c:acprefs () (VL-LOAD-COM) (SETQ acad-obj (VLAX-GET-ACAD-OBJECT)) (SETQ prefs (VLA-GET-PREFERENCES acad-obj)) ;AutoCAD Preferences object (SETQ filespref (VLAX-GET-PROPERTY prefs 'files)) ;Files object/property of Preferences Object (SETQ outputpref (VLAX-GET-PROPERTY prefs 'output)) ;Output object/property of Preferences Object (SETQ thisplottofilepath (VLAX-GET-PROPERTY outputpref 'defaultplottofilepath)) ;Default Plot To File Path (SETQ thisprinterconfigpath (VLA-GET-PRINTERCONFIGPATH filespref)) ;etc (SETQ thisprinterdescpath (VLA-GET-PRINTERDESCPATH filespref)) (SETQ thisprinterstylesheetpath (VLA-GET-PRINTERSTYLESHEETPATH filespref)) (SETQ thisprintfile (VLA-GET-PRINTFILE filespref)) (SETQ thissupportpath (VLA-GET-SUPPORTPATH filespref)) (SETQ ThisPlotToFilePath (STRCAT ThisPlotToFilePath "\\")) (SETQ PlotFolder (DOS_GETDIR "Select TIFF Plot Folder" (IF PlotFolder PlotFolder ThisPlotToFilePath) "Select the folder containing TIFF files")) (SETQ TiffPublishfiles (DOS_DIR (STRCAT PlotFolder "*.tif") 3)) (if autodpifix nil (load "autodpifix" "\nFile AUTODPIFIX.LSP not loaded! ")) (IF TiffPublishfiles (PRINC "\n")) (FOREACH n TiffPublishfiles (PRINC (STRCAT "Set DPI=" (IF (EQ halfdpi "1")(ITOA(* 2 (IF dpiresstr (ATOI dpiresstr) 288)))(ITOA(IF dpiresstr (ATOI dpiresstr) 288))) " for "ThisPlotTofilePath n)) (PRINC "\n") (PRINC) (autodpifix (STRCAT ThisPlotTofilePath n) "288" (IF (EQ halfdpi "1") T NIL) T) ) (PRINC) ) ;_ end of DEFUN ;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 1 0 nil T nil T) ;*** DO NOT add text below the comment! ***|;