LISP: Defaults
Page 1 of 1
LISP: Defaults
This LISP routine loads your desired defaults you want in your drawing.
Sometimes the ACAD.dwt doesn't work for whatever reason...
(ie. read only file due to company standards)
So you can make up your own LISP and have the "start up suite" load this LISP with every drawing... and never worry about your settings again...
////////////////////////
;
;
(setvar "CMDECHO" 0) ;Turns Command line off
(setvar "savetime" 5) ;TURNS ON THE AUTOSAVE AND SETS IT TO SAVE EVERY 5MINS AFTER LAST SAVE
(setvar "isavebak" 1) ;TURNS ON THE "CREATE A BACKUP COPY W/EA SAVE" UNDER OPTIONS
(setvar "isavepercent" 50) ;TURNS ON THE "INCREMENTAL SAVE PERCENTAGE" UNDER OPTIONS
(setvar "BLIPMODE" 0) ;Turns Blips off
(command "UNITS" "4" "256" "1" "8" "" "") ;Sets the units to Imperial
(command "VIEWRES" "Y" "15000" ^M) ;Sets VIEWRES to 15000
(command "COLOR" "BYLAYER") ;Sets COLOR to BYLAYER
(command "LINETYPE" "S" "BYLAYER" "") ;Sets LINETYPE to BYLAYER
(command "LAYEREVAL" "0") ;Sets RECONCILE LAYERS OFF
(command "LAYERNOTIFY" "0") ;Sets RECONCILE LAYERS OFF
(command "UCSICON" "ON") ;Sets UCSISON ON
(command "VISRETAIN" "1") ;Sets Visual retain to "on"
(command "CELWEIGHT" "-1") ;Sets LINELWEIGHT to BYLAYER
(command "CLAYER" "0") ;Sets current layer to ZERO
(setvar "CMDECHO" 1) ;Turns Command line on
(princ)
/////////////////////////
Sometimes the ACAD.dwt doesn't work for whatever reason...
(ie. read only file due to company standards)
So you can make up your own LISP and have the "start up suite" load this LISP with every drawing... and never worry about your settings again...
////////////////////////
;
;
(setvar "CMDECHO" 0) ;Turns Command line off
(setvar "savetime" 5) ;TURNS ON THE AUTOSAVE AND SETS IT TO SAVE EVERY 5MINS AFTER LAST SAVE
(setvar "isavebak" 1) ;TURNS ON THE "CREATE A BACKUP COPY W/EA SAVE" UNDER OPTIONS
(setvar "isavepercent" 50) ;TURNS ON THE "INCREMENTAL SAVE PERCENTAGE" UNDER OPTIONS
(setvar "BLIPMODE" 0) ;Turns Blips off
(command "UNITS" "4" "256" "1" "8" "" "") ;Sets the units to Imperial
(command "VIEWRES" "Y" "15000" ^M) ;Sets VIEWRES to 15000
(command "COLOR" "BYLAYER") ;Sets COLOR to BYLAYER
(command "LINETYPE" "S" "BYLAYER" "") ;Sets LINETYPE to BYLAYER
(command "LAYEREVAL" "0") ;Sets RECONCILE LAYERS OFF
(command "LAYERNOTIFY" "0") ;Sets RECONCILE LAYERS OFF
(command "UCSICON" "ON") ;Sets UCSISON ON
(command "VISRETAIN" "1") ;Sets Visual retain to "on"
(command "CELWEIGHT" "-1") ;Sets LINELWEIGHT to BYLAYER
(command "CLAYER" "0") ;Sets current layer to ZERO
(setvar "CMDECHO" 1) ;Turns Command line on
(princ)
/////////////////////////
architech- Admin
- Number of posts : 401
Age : 52
Location : East Coast
Registration date : 2008-11-07
Re: LISP: Defaults
Originally posted by VeryCivilDrafter
Here's a copy of mine... got some handy plotter path settings.
(setvar "savetime" 10)
;TURNS ON THE AUTOSAVE AND SETS IT TO SAVE EVERY 5MINS AFTER LAST SAVE
(setvar "isavebak" 1)
;TURNS ON THE "CREATE A BACKUP COPY W/EA SAVE" UNDER OPTIONS
(setvar "isavepercent" 0)
;TURNS ON THE "INCREMENTAL SAVE PERCENTAGE" UNDER OPTIONS
(setvar "plinegen" 1)
;TURNS PLINEGEN ON
;TURN ON POLYLINE LINTYPE GENERATION
(setenv "PlotSpoolerDirectory" "P:\\REF\\ACAD\\2005\\PLOTTER\\SPOOL")
(setenv "PrinterConfigDir" "P:\\REF\\ACAD\\2005\\PLOTTER")
(setenv "PrinterStyleSheetDir" "P:\\REF\\ACAD\\2005\\PLOTTER")
(setenv "PrinterDescDir" "P:\\REF\\ACAD\\2005\\PLOTTER\\PMP")
;SETS ALL PRINTER FILE PATHS
(setvar "PEDITACCEPT" 1)
(setvar "XLOADPATH" "C:\\TEMP")
(setvar "SAVEFILEPATH" "C:\\TEMP")
architech- Admin
- Number of posts : 401
Age : 52
Location : East Coast
Registration date : 2008-11-07
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
|
|