改文件存放位置

lucas_3333

这是本论坛里找的显示“我的文档”位置的函数

1. (defun GetMyDocumentsDir()
   
2.   (vlax-invoke-method
   
3.     (vlax-get-property
   
4.       (vlax-create-object "wscript.shell")
   
5.       'SpecialFolders) 'Item  "MyDocuments")
   
6. )
   
7. ;;Call:(GetMyDocumentsDir)

(defun GetMyDocumentsDir()<br />   (vlax-invoke-method<br />     (vlax-get-property<br />       (vlax-create-object "wscript.shell")<br />       'SpecialFolders) 'Item  "MyDocuments")<br /> )<br /> ;;Call:(GetMyDocumentsDir)

我想将下面的这个路径“我的桌面”变成“我的文档”，该怎么样改？

1. (vl-cmdf  "zoom" "e"
   
2.              "mslide" (STRCAT "C:\\Users\\" (getvar 'loginname) "\\Desktop\\" sldname)

(vl-cmdf  "zoom" "e"<br />              "mslide" (STRCAT "C:\\Users\\" (getvar 'loginname) "\\Desktop\\" sldname)

lucas_3333

(STRCAT "(GetMyDocumentsDir) \\" sldname) 我之前这样改也是不行的

edata

1. (vl-cmdf  "zoom" "e"
   
2.              "mslide" (STRCAT (GETMYDOCUMENTSDIR)"\\" sldname)

(vl-cmdf  "zoom" "e"<br />              "mslide" (STRCAT (GETMYDOCUMENTSDIR)"\\" sldname)

lucas_3333

edata 发表于 2014-5-19 11:42

E大，显示error: extra right paren on input，少一个括号吧

之前我这样也改过

1. (STRCAT (GetMyDocumentsDir) "\\" sldname)

(STRCAT (GetMyDocumentsDir) "\\" sldname)

也是不行，显示 error: bad argument type: stringp nil