请问如何让LISP程序直接启动一个外部程序
请问如何让LISP程序直接启动一个外部的EXE程序我之前写的.bat文件 然后通过批处理来启动外部程序,能否直接定义一个程序路径,然后程序可以自己启动,或者定义一个相对路径,来启动程序也可以,我一开始直接填写程序路径总是报错或者无法启动。后来只能改成批处理文件
像这样:
;===============================================================
;
;修改为你的Acadsee 程序路径
;
;===============================================================
;启动外挂图框
(defun c:qdtk ()
(startapp "C:\\Program Files (x86)\\Acme CADSee\\AcmeCADSee.exe"))
;===============================================================
;安装去教育补丁
(defun c:azqjybd ()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\4.QuJiaoYuBuDing.bat"))
;===============================================================
;安装去安装图库管理
(defun c:azppsck ()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\1.CADsee.bat"))
;===============================================================
;启动CAD杀毒
(defun c:azcadsd ()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\2.CADshadu.bat"))
;===============================================================
;启动PDF虚拟打印机
(defun c:azpdfxldyj ()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\3.PDFXuNi.bat"))
;===============================================================
;安装填充配置文件
(defun c:pztcgj ()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\5.Tcpeizhiwenjian.bat"))
;===============================================================
;安装易出图
(defun c:azcadyct ()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\7.yichutu.bat"))
;===============================================================
;安装贱人工具箱配置文件
(defun c:beifenjrgjx ()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\14.BFjrgjx.bat"))
;===============================================================
;导入贱人工具箱配置文件
(defun c:daorujrgjx ()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\13.DRjrgjx.bat"))
;===============================================================
;查看各种激活码
(defun c:azckcxjhm ()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\8.chakanjihuoma.bat"))
;===============================================================
;安装2019制图环境
(defun c:azzthj2019 ()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\9.2019zhituhuanjing.bat"))
;===============================================================
;打开插件安装目录
(defun c:azchajianmulu ()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\10.dakaichajianmulu.bat"))
;===============================================================
;打开字体安装目录
(defun c:zitimulu()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\11.dakaizitmulu.bat"))
;===============================================================
;打开填充目录
(defun c:dktcmulu()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\12.dakaitiancongmulu.bat"))
;===============================================================
;打开图库目录
(defun c:dktkmulu()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\15.dktkmulu.bat"))
;===============================================================
;转T3格式
(defun c:zhuanT3()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\16.zhuanT3.bat"))
;===============================================================
;打开图层说明
(defun c:tuchengshuoming()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\17.tuchengshuoming.bat"))
;===============================================================
;JPG转DWG程序
(defun c:jpgzhuandwg()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\18.jpgzhuandwg.bat"))
;===============================================================
;PDF合并工具
(defun c:pdfhebing()
(startapp "C:\\ACAD_plugin\\5.Batch_processing\\19.pdfhebing.bat"))
这个是我之前写的,求大神指教。
第一个启动外挂图框的不就是启动exe程序的吗 springwillow 发表于 2022-3-17 11:51
第一个启动外挂图框的不就是启动exe程序的吗
;===============================================================
;安装去教育补丁
(defun c:azqjybd ()
(startapp "C:\\ACAD_plugin\\3.应用程序\\AutoCAD永久去教育版破解补丁.exe"))
比如这样
返回的是
APPLOAD 已成功加载 01_[批处理命令].lsp。
命令:
命令:
命令: AZQJYBD nil
命令: 以前搜到一个大神做了一个软件,能生成可以打开EXE的一个文件,就能和lisp连起来了 wo870711 发表于 2022-3-17 15:21
以前搜到一个大神做了一个软件,能生成可以打开EXE的一个文件,就能和lisp连起来了
那不就我这个BAT批处理一个意思么、、感觉有点绕了 springwillow 发表于 2022-3-17 11:51
第一个启动外挂图框的不就是启动exe程序的吗
大哥又看到你了:lol 你好兄弟可以加下我的qq吗3298554767 "4.QuJiaoYuBuDing.bat"这个是什么,你自己写的吗? xiehaoing 发表于 2022-3-17 17:44
那不就我这个BAT批处理一个意思么、、感觉有点绕了
他是生成了lisp 看这个:Lisp调用Exe程序代码生成器
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=113028&highlight=exe
页:
[1]
2