请问如何让LISP程序直接启动一个外部程序

xiehaoing

请问如何让LISP程序直接启动一个外部的EXE程序
我之前写的.bat文件 然后通过批处理来启动外部程序，能否直接定义一个程序路径，然后程序可以自己启动，或者定义一个相对路径，来启动程序也可以，我一开始直接填写程序路径总是报错或者无法启动。后来只能改成批处理文件
像这样：

1. ;===============================================================
   
2. ;               
   
3. ;修改为你的Acadsee 程序路径      
   
4. ;               
   
5. ;===============================================================
   
6. ;启动外挂图框
   
7. (defun c:qdtk ()
   
8. (startapp "C:\\Program Files (x86)\\Acme CADSee\\AcmeCADSee.exe"))
   
9. ;===============================================================
   
10. ;安装去教育补丁
    
11. (defun c:azqjybd ()
    
12. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\4.QuJiaoYuBuDing.bat"))
    
13. ;===============================================================
    
14. ;安装去安装图库管理
    
15. (defun c:azppsck ()
    
16. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\1.CADsee.bat"))
    
17. ;===============================================================
    
18. ;启动CAD杀毒
    
19. (defun c:azcadsd ()
    
20. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\2.CADshadu.bat"))
    
21. ;===============================================================
    
22. ;启动PDF虚拟打印机
    
23. (defun c:azpdfxldyj ()
    
24. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\3.PDFXuNi.bat"))
    
25. ;===============================================================
    
26. ;安装填充配置文件
    
27. (defun c:pztcgj ()
    
28. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\5.Tcpeizhiwenjian.bat"))
    
29. ;===============================================================
    
30. ;安装易出图
    
31. (defun c:azcadyct ()
    
32. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\7.yichutu.bat"))
    
33. ;===============================================================
    
34. ;安装贱人工具箱配置文件
    
35. (defun c:beifenjrgjx ()
    
36. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\14.BFjrgjx.bat"))
    
37. ;===============================================================
    
38. ;导入贱人工具箱配置文件
    
39. (defun c:daorujrgjx ()
    
40. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\13.DRjrgjx.bat"))
    
41. ;===============================================================
    
42. ;查看各种激活码
    
43. (defun c:azckcxjhm ()
    
44. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\8.chakanjihuoma.bat"))
    
45. ;===============================================================
    
46. ;安装2019制图环境
    
47. (defun c:azzthj2019 ()
    
48. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\9.2019zhituhuanjing.bat"))
    
49. ;===============================================================
    
50. ;打开插件安装目录
    
51. (defun c:azchajianmulu ()
    
52. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\10.dakaichajianmulu.bat"))
    
53. ;===============================================================
    
54. ;打开字体安装目录
    
55. (defun c:zitimulu()
    
56. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\11.dakaizitmulu.bat"))
    
57. ;===============================================================
    
58. ;打开填充目录
    
59. (defun c:dktcmulu()
    
60. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\12.dakaitiancongmulu.bat"))
    
61. ;===============================================================
    
62. ;打开图库目录
    
63. (defun c:dktkmulu()
    
64. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\15.dktkmulu.bat"))
    
65. ;===============================================================
    
66. ;转T3格式
    
67. (defun c:zhuanT3()
    
68. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\16.zhuanT3.bat"))
    
69. ;===============================================================
    
70. ;打开图层说明
    
71. (defun c:tuchengshuoming()
    
72. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\17.tuchengshuoming.bat"))
    
73. ;===============================================================
    
74. ;JPG转DWG程序
    
75. (defun c:jpgzhuandwg()
    
76. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\18.jpgzhuandwg.bat"))
    
77. ;===============================================================
    
78. DF合并工具
    
79. (defun c:pdfhebing()
    
80. (startapp "C:\\ACAD_plugin\\5.Batch_processing\\19.pdfhebing.bat"))
    

;===============================================================<br /> ;                <br /> ;修改为你的Acadsee 程序路径      <br /> ;                <br /> ;===============================================================<br /> ;启动外挂图框<br /> (defun c:qdtk () <br /> (startapp "C:\\Program Files (x86)\\Acme CADSee\\AcmeCADSee.exe"))<br /> ;===============================================================<br /> ;安装去教育补丁<br /> (defun c:azqjybd () <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\4.QuJiaoYuBuDing.bat"))<br /> ;===============================================================<br /> ;安装去安装图库管理<br /> (defun c:azppsck () <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\1.CADsee.bat"))<br /> ;===============================================================<br /> ;启动CAD杀毒<br /> (defun c:azcadsd () <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\2.CADshadu.bat"))<br /> ;===============================================================<br /> ;启动PDF虚拟打印机<br /> (defun c:azpdfxldyj () <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\3.PDFXuNi.bat"))<br /> ;===============================================================<br /> ;安装填充配置文件<br /> (defun c:pztcgj () <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\5.Tcpeizhiwenjian.bat"))<br /> ;===============================================================<br /> ;安装易出图<br /> (defun c:azcadyct () <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\7.yichutu.bat"))<br /> ;===============================================================<br /> ;安装贱人<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>箱配置文件<br /> (defun c:beifenjrgjx () <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\14.BFjrgjx.bat"))<br /> ;===============================================================<br /> ;导入贱人工具箱配置文件<br /> (defun c:daorujrgjx () <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\13.DRjrgjx.bat"))<br /> ;===============================================================<br /> ;查看各种激活码<br /> (defun c:azckcxjhm () <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\8.chakanjihuoma.bat"))<br /> ;===============================================================<br /> ;安装2019制图环境<br /> (defun c:azzthj2019 () <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\9.2019zhituhuanjing.bat"))<br /> ;===============================================================<br /> ;打开<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">插件</a>安装目录<br /> (defun c:azchajianmulu () <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\10.dakaichajianmulu.bat"))<br /> ;===============================================================<br /> ;打开字体安装目录<br /> (defun c:zitimulu() <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\11.dakaizitmulu.bat"))<br /> ;===============================================================<br /> ;打开填充目录<br /> (defun c:dktcmulu() <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\12.dakaitiancongmulu.bat"))<br /> ;===============================================================<br /> ;打开图库目录<br /> (defun c:dktkmulu() <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\15.dktkmulu.bat"))<br /> ;===============================================================<br /> ;转T3格式<br /> (defun c:zhuanT3() <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\16.zhuanT3.bat"))<br /> ;===============================================================<br /> ;打开图层说明<br /> (defun c:tuchengshuoming() <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\17.tuchengshuoming.bat"))<br /> ;===============================================================<br /> ;JPG转DWG程序<br /> (defun c:jpgzhuandwg() <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\18.jpgzhuandwg.bat"))<br /> ;===============================================================<br /> <img src="static/image/smiley/default/titter.gif" smilieid="9" border="0" alt="" />DF合并工具<br /> (defun c:pdfhebing() <br /> (startapp "C:\\ACAD_plugin\\5.Batch_processing\\19.pdfhebing.bat"))<br />

这个是我之前写的，求大神指教。

springwillow

第一个启动外挂图框的不就是启动exe程序的吗

xiehaoing

springwillow 发表于 2022-3-17 11:51
第一个启动外挂图框的不就是启动exe程序的吗

;===============================================================
;安装去教育补丁
(defun c:azqjybd ()
(startapp "C:\\ACAD_plugin\\3.应用程序\\AutoCAD永久去教育版破解补丁.exe"))

比如这样
返回的是

APPLOAD 已成功加载 01_[批处理命令].lsp。
命令:
命令:
命令: AZQJYBD nil
命令:

wo870711

以前搜到一个大神做了一个软件，能生成可以打开EXE的一个文件，就能和lisp连起来了

xiehaoing

wo870711 发表于 2022-3-17 15:21
以前搜到一个大神做了一个软件，能生成可以打开EXE的一个文件，就能和lisp连起来了

那不就我这个BAT批处理一个意思么、、感觉有点绕了

664571221

springwillow 发表于 2022-3-17 11:51
第一个启动外挂图框的不就是启动exe程序的吗

大哥又看到你了

664571221

你好兄弟可以加下我的qq吗3298554767

自贡黄明儒

"4.QuJiaoYuBuDing.bat"这个是什么，你自己写的吗？

wo870711

xiehaoing 发表于 2022-3-17 17:44
那不就我这个BAT批处理一个意思么、、感觉有点绕了

他是生成了lisp

panliang9

看这个：Lisp调用Exe程序代码生成器
http://bbs.mjtd.com/forum.php?mo ... 8&highlight=exe