[原创]：用cad创建桌面快捷方式---wscript.shell方法

梦断江南

2. 
   
3. ;|创建简单的桌面快捷方式----------梦断江南.2004.9
   
4. 之所以说简单,是没有加入出错判断,另外快捷方式还有几个属性,
   
5. 也没有加以定义.不过已经可以正常生成快捷方式.
   
6. 实例:
   
7. (makelnk (getstring "\n输入快捷方式的名称:")(getfiled "" "" "" 4))
   
8. |;
   
9. (defun makelnk (lnkname lnkpath / st)
   
10.   (setq st (strcat
    
11.            "set Wsh = CreateObject("WScript.Shell"):"
    
12.            "dsk = Wsh.SpecialFolders("Desktop"):"
    
13.            "set Lnk = Wsh.CreateShortcut(dsk & "\"
    
14.                          lnkname
    
15.                         ".lnk"):"
    
16.            "Lnk.TargetPath = "" lnkpath "":"
    
17.            "Lnk.save"
    
18.            ))
    
19.   (vla-eval (vlax-get-acad-object) st);;ok!!
    
20. )
    

<br /> ;|创建简单的桌面快捷方式----------梦断江南.2004.9<br /> 之所以说简单,是没有加入出错判断,另外快捷方式还有几个属性,<br /> 也没有加以定义.不过已经可以正常生成快捷方式.<br /> 实例:<br /> (makelnk (getstring "\n输入快捷方式的名称:")(getfiled "" "" "" 4))<br /> |;<br /> (defun makelnk (lnkname lnkpath / st)<br />   (setq st (strcat<br />            "set Wsh = CreateObject("WScript.Shell"):"<br />            "dsk = Wsh.SpecialFolders("Desktop"):"<br />            "set Lnk = Wsh.CreateShortcut(dsk & "\" <br />                          lnkname <br />                         ".lnk"):"<br />            "Lnk.TargetPath = "" lnkpath "":"<br />            "Lnk.save"<br />            ))<br />   (vla-eval (vlax-get-acad-object) st);;ok!!<br /> )<br />

更快一点的,直接以文件名为快捷方式名:

2. 
   
3. (makelnk2 (getfiled "\n创建快捷方式--选择文件:" "" "" 4))
   
4. (defun makelnk2 (lnkpath / st)
   
5.   (setq st (strcat
   
6.            "set Wsh = CreateObject("WScript.Shell"):"
   
7.            "dsk = Wsh.SpecialFolders("Desktop"):"
   
8.            "set Lnk = Wsh.CreateShortcut(dsk & "\" (vl-filename-base lnkpath) ".lnk"):"
   
9.            "Lnk.TargetPath = "" lnkpath "":"
   
10.            "Lnk.save"
    
11.            ))
    
12.   (vla-eval (vlax-get-acad-object) st)
    
13. )
    

<br /> (makelnk2 (getfiled "\n创建快捷方式--选择文件:" "" "" 4))<br /> (defun makelnk2 (lnkpath / st)<br />   (setq st (strcat<br />            "set Wsh = CreateObject("WScript.Shell"):"<br />            "dsk = Wsh.SpecialFolders("Desktop"):"<br />            "set Lnk = Wsh.CreateShortcut(dsk & "\" (vl-filename-base lnkpath) ".lnk"):"<br />            "Lnk.TargetPath = "" lnkpath "":"<br />            "Lnk.save"<br />            ))<br />   (vla-eval (vlax-get-acad-object) st)<br /> )<br />

jx2008

可不可以的阿，试试看再说

aeo

灌水来了? 扣币!

jx2008

测试了一下，可以，利害

firstintimate

感觉是vb的语句，用vba应该很容易实现

hh222222

是不是很有用？

fsxm

看看这个另类的Internet 快捷方式：
将下面的文字保存成test.url 试试吧了!
快键；图标索引号，图标文件 是可选项~
*******************************************
[InternetShortcut]
URL=C:\Program Files
Hotkey=1626
IconIndex=0
IconFile=C:\WINDOWS\system32\conime.exe
****************************************************
呵呵~纯文本格式用纯lisp就可以做出来了！