[原创]：原创用LSP执行文件和文件夹的所有操作

黄河之水

以下是我所收集的一些用LSP对文件和文件夹的操作（花了不少功夫）
注意反斜杠和斜杠的个数，不能错
好的话大家顶一下！！！！！！

1，选择文件
功能：在CAD里出现一个选择文件对话“LSP”为文件类型，如所有文件“”就好了
(getfiled "选择文件" "E:/黄河文档/acad/lisp/" "lsp" 8)


2，建文件夹，一次只能建一个，如建多个要多运行几个（如第二行，在CAD里再建一个AA）
(vl-mkdir "d:\\CAD")
(vl-mkdir "d:\\CAD\\AA")


3，打开所有文件及文件夹,若目录有空格可用第2种
(command "_ai_editcustfile" "F:\\picture\\黄河\\hjk hh\\hh.doc")
(command "_ai_editcustfile" "\" F:\\picture\\黄河\\hjk hh\\hh.doc\"")


4，打开网页：
(command "browser" "http://hao123.com")


5，打开EXE或BAT文件：
(startapp "D:\\\\Program Files\\\\象棋\\\\中国象棋\\\\Chess.exe")


6，用记事本打开
(startapp "notepad" "d:\\Program Files\\acad2004doc.lsp")


7，新建一个文件，与6相同（有则打开，无则建一个再打开）
(startapp "notepad" "d:\\Program Files\\acad2004doc.lsp")


8，删除文件
用记事本写：
del F:\picture\ss
文件保存为.BAT,意思是删除F:\picture\ss下的所有文件（不含文件夹）
运行BAT文件时执行其内容
BAT又是一个新天地，与CAD结合如虎添翼
(startapp "D:\\\\Program Files\\\\del.bat")


9，CAD里显示桌面
把下面5行代码存为dd.scf备用或放在F:\picture\黄河\dd.scf
[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop


(command "_ai_editcustfile" "F:\\picture\\黄河\\dd.scf")


=========================================
大家可根据规律自行更改！

hrq28

感谢黄河之水的经典放送

xshrimp

无语...原创.....
花了不少功夫....
[iframe h=600 w=100%]http://www.xdcad.net/forum/showthread.php?s=&threadid=642646[/iframe]

黄河之水

我不是说“收集的吗”？，！不过把它综合一起也算是“原创”吧！
若是零零散散的，这样大家也不方便看呀！
xshrimp也不要见怪了，我对LSP只懂个皮毛，
但对像我这样不很懂的人综合一下，更方便呀！免得搜那么贴子或发重复的贴子

dengqiaqia

淆习了，谢谢楼主啊

xujinhua

感谢！！能这样操作方便很多了

xujinhua

这个必须顶，谢谢楼主