[编程交流] 用于设置A的Lisp命令

 
; MarcoW 09-11-2009
;
; first create the function
; and localise the variables used
(defun c:asf ( / asfloc oldloc)
; then set some variables that will be used
(setq asfloc (getstring T "\nPlease enter the automatic Save File Location as desired:  ")
 oldloc (getvar "savefilepath")
); end of setq
; put the new path into the systemvariable
(setvar "savefilepath" asfloc)
; show the old location once more, you might want to write down its location for you never know if you want it back
(alert (strcat "The old path was: " oldloc))
; clean exit
 (princ)
; end of defun
)

(defun c:CES-Setup (/ #Files #Layout #Flag)
 (vl-load-com)
 (and
   (not
     (vl-catch-all-error-p
       (vl-catch-all-apply
         '(lambda ()
            (setq #Files  (vla-get-files
                            (vla-get-preferences (vlax-get-acad-object))
                          ) ;_ vla-get-files
                  #Layout (vla-get-activelayout
                            (vla-get-activedocument (vlax-get-acad-object))
                          ) ;_ vla-get-activelayout
            ) ;_ setq
            ;; *********************
            ;; **  AutoSave Path  **
            ;; *********************
            (mapcar 'vl-mkdir (list "c:\\TEMP" "c:\\TEMP\\ACAD"))
            (vla-put-autosavepath #Files "c:\\TEMP\\ACAD")
            ;; ***************************
            ;; **  Printer Config Path  **
            ;; ***************************
            (vla-put-PrinterConfigPath
              #Files
              "s:\\cadd standards\\Plotters"
            ) ;_ vla-put-PrinterConfigPath
            (vla-refreshplotdeviceinfo #Layout)
            ;; ***********************
            ;; **  Plotstyles Path  **
            ;; ***********************
            (vla-put-printerstylesheetpath
              #Files
              "s:\\cadd standards\\Plotstyles"
            ) ;_ vla-put-printerstylesheetpath
            (vla-refreshplotdeviceinfo #Layout)
            ;; *********************
            ;; **  Template Path  **
            ;; *********************
            (vla-put-TemplateDwgPath
              #Files
              "s:\\cadd standards\\Template"
            ) ;_ vla-put-TemplateDwgPath
            ;; *********************
            ;; **  QNew Template  **
            ;; *********************
            (vla-put-QNewTemplateFile
              #Files
              "s:\\cadd standards\\Template\\CES_Template.dwt"
            ) ;_ vla-put-QNewTemplateFile
            ;; *********************
            ;; **  Support Paths  **
            ;; *********************
            (vla-put-supportpath
              #Files
              (strcat ";s:\\cadd standards\\startup"
                      ";s:\\cadd standards\\lisp"
                      ";s:\\cadd standards\\linetypes"
                      ";s:\\cadd standards\\fonts"
                      ";s:\\cadd standards\\ces layers"
                      ";"
                      (vla-get-supportpath #Files)
              ) ;_ strcat
            ) ;_ vla-put-supportpath
            ;; ***************************
            ;; **  Tool Palettes Paths  **
            ;; ***************************
            (vla-put-ToolPalettePath
              #Files
              (strcat "S:\\CADD Standards\\Toolpalette\\Palettes;"
                      (vla-get-ToolPalettePath #Files)
              ) ;_ strcat
            ) ;_ vla-put-ToolPalettePath
          ) ;_ lambda
       ) ;_ vl-catch-all-apply
     ) ;_ vl-catch-all-error-p
   ) ;_ not
   (alert
     (strcat
       "AutoCAD has been setup for Capital Engineering & Surveying, Inc. Standards.\n\n"
       "                      Please restart AutoCAD."
     ) ;_ strcat
   ) ;_ alert
 ) ;_ and
 (princ)
) ;_ defun
(alert "Type: "CES-SETUP" to run setup.")
(princ)

(defun c:setup (/ #Files #Layout #Flag)
 (vl-load-com)
 (and
   (not
     (vl-catch-all-error-p
       (vl-catch-all-apply
         '(lambda ()
            (setq #Files  (vla-get-files
                            (vla-get-preferences (vlax-get-acad-object))
                          ) ;_ vla-get-files
                  #Layout (vla-get-activelayout
                            (vla-get-activedocument (vlax-get-acad-object))
                          ) ;_ vla-get-activelayout
            ) ;_ setq
            ;; *********************
            ;; **  AutoSave Path  **
            ;; *********************
            (mapcar 'vl-mkdir (list "c:\\TEMP" "c:\\TEMP\\ACAD"))
            (vla-put-autosavepath #Files "c:\\TEMP\\ACAD")
            ;; ***************************
            ;; **  Printer Config Path  **
            ;; ***************************
            (vla-put-PrinterConfigPath
              #Files
              "c:\\AutoCAD Setup\\Plotter files"
            ) ;_ vla-put-PrinterConfigPath
            (vla-refreshplotdeviceinfo #Layout)
            ;; ***********************
            ;; **  Plotstyles Path  **
            ;; ***********************
            (vla-put-printerstylesheetpath
              #Filesls
              "c:\\AutoCAD Setup\\Plot Styles"
            ) ;_ vla-put-printerstylesheetpath
            (vla-refreshplotdeviceinfo #Layout)
            ;; *********************
            ;; **  Template Path  **
            ;; *********************
            (vla-put-TemplateDwgPath
              #Files
              "c:\\AutoCAD Setup\\Template"
            ) ;_ vla-put-TemplateDwgPath
            ;; *********************
            ;; **  QNew Template  **
            ;; *********************
            (vla-put-QNewTemplateFile
              #Files
              "=c:\\AutoCAD Setup\\Template\\PROJECT TEMPLATE.dwt"
            ) ;_ vla-put-QNewTemplateFile
            ;; *********************
            ;; **  Support Paths  **
            ;; *********************
            (vla-put-supportpath
              #Files
              (strcat ";c:\\AutoCAD Setup\\Startup"
                      ";c:\\AutoCAD Setup\\lisp"
                      ";c:\\AutoCAD Setup\\Line Types"
                      ";c:\\AutoCAD Setup\\Fonts"
                      ";c:\\AutoCAD Setup\\Layers"
        ";c:\\AutoCAD Setup\\Hatch Patterns"
                      ";"
                      (vla-get-supportpath #Files)
              ) ;_ strcat
            ) ;_ vla-put-supportpath
            ;; ***************************
            ;; **  Tool Palettes Paths  **
            ;; ***************************
            (vla-put-ToolPalettePath
              #Files
              (strcat "c:\\AutoCAD Setup\\CAD_Blocks\\;"
                      (vla-get-ToolPalettePath #Files)
              ) ;_ strcat
            ) ;_ vla-put-ToolPalettePath
          ) ;_ lambda
       ) ;_ vl-catch-all-apply
     ) ;_ vl-catch-all-error-p
   ) ;_ not
   (alert
     (strcat
       "AutoCAD has been setup Standards.\n\n"
       "                   Please restart AutoCAD."
     ) ;_ strcat
   ) ;_ alert
 ) ;_ and
 (princ)
) ;defun
(alert "Type: "SETUP" to run setup.")
(princ)