[编程交流] 某些条件的问题

 
(foreach file (vl-directory-files cPrinterStyleSheetDir "*.ctb" 1)
     (vl-file-copy
(strcat cPrinterStyleSheetDir file)
(strcat outval [color=red]"\"[/color] file)
     )
   )

 
(defun browsefolder (title / shlobj folder fldobj outval) 
 (vl-load-com)
 (setq shlobj (vla-getinterfaceobject
                (vlax-get-acad-object) "Shell.Application")
       folder (vlax-invoke-method shlobj 'browseforfolder 0 title 0))
 (vlax-release-object shlobj)
 (if folder
   (progn
     (setq fldobj (vlax-get-property folder 'self)
           outval (vlax-get-property fldobj 'path))
     (vlax-release-object folder)
     (vlax-release-object fldobj)
     outval)))
(defun SetPlotterFiles ( / sFolder)
(if (setq sFolder (browsefolder "Select shared folder"))
 (progn
   (setq cPrinterStyleSheetDir
          (strcat (getenv "PrinterStyleSheetDir") "\"))
   (foreach file (vl-directory-files cPrinterStyleSheetDir "*.ctb" 1)
     (vl-file-copy
       (strcat cPrinterStyleSheetDir file)
(strcat sFolder "\" file)))
   (setenv "PrinterStyleSheetDir" (strcat sFolder "\"))
   )
 (Alert "No folder selected - nothing changed"))
(princ)
 )
(SetPlotterFiles)
(princ)