尘缘一生 发表于 2019-7-13 09:24:15

用LISPz怎么完成这句功能？

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

taoyi0727 发表于 2019-7-13 09:49:23

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

1291500406 发表于 2019-7-13 12:36:30

本帖最后由 1291500406 于 2019-7-14 15:28 编辑

taoyi0727 发表于 2019-7-13 09:49
(startapp "taskkill /f /im acad.exe /T"))
(startapp "REGSVR32 MSXML3.DLL")
我就查到这么多
关闭cad，就相当于关闭代码翻译器，后面代码是不运行的，等于是关闭电脑也要它画图？应该是先执行后关闭

自贡黄明儒 发表于 2019-7-13 13:01:31

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

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

1291500406 发表于 2019-7-13 14:48:25

本帖最后由 1291500406 于 2019-7-15 10:54 编辑

自贡黄明儒 发表于 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







页: [1]
查看完整版本: 用LISPz怎么完成这句功能？