用LISPz怎么完成这句功能？

尘缘一生

关闭正在运作的CAD；启动开始菜单中的运行；  在运行对话框输入REGSVR32 MSXML3.DLL ，单击确定，

taoyi0727

(startapp "taskkill /f /im acad.exe /T"))
(startapp "REGSVR32 MSXML3.DLL")
我就查到这么多

1291500406

taoyi0727 发表于 2019-7-13 09:49
(startapp "taskkill /f /im acad.exe /T"))
(startapp "REGSVR32 MSXML3.DLL")
我就查到这么多

关闭cad，就相当于关闭代码翻译器，后面代码是不运行的，等于是关闭电脑也要它画图？应该是先执行后关闭

自贡黄明儒

1291500406 发表于 2019-7-13 12:36
关闭cad，就相当于关闭代码翻译器，后面代码是不运行的，等于是关闭电脑也要它画图？应该是先执行后关闭
...

Lisp中怎么利用StrConv,全角转半角？

1291500406

自贡黄明儒 发表于 2019-7-13 13:01
Lisp中怎么利用StrConv,全角转半角？

' 半角转全角
Dim fso,TestFile
url = "demon"
Half2Full(url)
Function Half2Full(ByVal s)
Dim i
For i = &H0021 To &H007E
s = Replace(s, ChrW(i), ChrW(i + &HFEE0))
Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set TestFile=fso.CreateTextFile("C:\hello.txt",Ture)
TestFile.WriteLine(s)
TestFile.Close
End Function


' 全角转半角
Dim fso,TestFile
url = "ｄｅｍｏｎ"
Full2Half(url)
Function Full2Half(ByVal s)
Dim i
For i = &HFF01 To &HFF7E
s = Replace(s, ChrW(i), ChrW(i - &HFEE0))
Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set TestFile=fso.CreateTextFile("C:\hello1.txt",Ture)
TestFile.WriteLine(s)
TestFile.Close
End Function