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

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

(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_CHECK HOMEDRIVE 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

收藏一下，确实好用。

账号		自动登录	找回密码
密码			注册

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