CADwiesel's Forum

Code: Alles auswählen

(defun C:ACAD-ORDNER (/ SYSVARLST)
  (setq SYSVARLST '("LOCALROOTPREFIX"
                    "ROAMABLEROOTPREFIX"
                    "MYDOCUMENTSPREFIX"
                    ;|"ACADPREFIX" "DWGPREFIX"  "TEMPPREFIX"|;
                   )
  )
  (alert
    (strcat "Windows-Explorer öffnet nach \"OK\" folgende Fenster:"
            (apply 'strcat
                   (mapcar '(lambda (X) (strcat "\n\n >" X "<:\n" (getvar X)))
                           SYSVARLST
                   )
            )
    )
  )
  (foreach ELEM (mapcar 'getvar SYSVARLST)
    (startapp (strcat "explorer.exe /n,/e," "\"" ELEM "\""))
  )

  (princ)
)