fangmin723 发表于 2018-7-24 09:22:56

vlisp获取系统桌面路径（发个帖备忘一下，方便以后好找！）

(strcat (vla-item (vlax-get (vlax-create-object "WScript.Shell" ) 'SpecialFolders) "Desktop") "\\")



张大锤 发表于 2018-7-25 11:13:08

(getvar "dwgprefix") 也可以

tryhi 发表于 2018-7-25 16:04:37

张大锤 发表于 2018-7-25 11:13
(getvar "dwgprefix") 也可以

人家说的是“桌面”

pxt2001 发表于 2019-12-19 20:18:44

收藏了好东东。

lisperado 发表于 2019-12-20 21:14:03

(command "shell" (strcat "explorer \""(getenv "userprofile")"\\Desktop\\\""))


(mapcar    '(lambda (x) (setq x (vl-princ-to-string x)) (list x (getenv x)))
   '(ALLUSERSPROFILE   APPDATA          CommonProgramFiles          COMPUTERNAME      ComSpec
      EP_NO_HOST_CHECKHOMEDRIVE          HOMEPATH      LOCALAPPDATA      LOGONSERVER      NUMBER_OF_PROCESSORS
       OneDrive      OS            Path      PATHEXT          PROCESSOR_ARCHITECTURE
       PROCESSOR_IDENTIFIER            PROCESSOR_LEVEL    PROCESSOR_REVISION            ProgramData
       ProgramFiles      PROMPT          PSModulePath    PUBLIC          SESSIONNAME      SystemDrive
       SystemRoot      TEMP          TMP      USERDOMAIN      USERPROFILE      windir
       )
   )

20060510412 发表于 2022-4-28 22:42:12

谢谢楼主分享，楼主是个热心人！

773786668 发表于 2023-5-13 09:01:40

谢谢楼主分享，楼主是个热心人！

我爱lisp 发表于 2023-6-11 22:18:01

(setq a (strcat (vla-item (vlax-get (vlax-create-object "WScript.Shell" ) 'SpecialFolders) "Desktop") "\\"))

"C:\\Users\\34468\\Desktop\\"

ziyouwzb 发表于 2023-7-23 16:17:04

收藏一下，确实好用。
页: [1]
查看完整版本: vlisp获取系统桌面路径（发个帖备忘一下，方便以后好找！）