qijiun 发表于 2003-11-13 19:52:00

[推荐]excel转cad的一个小免费软件

小弟现在遇到一个问题
我现在在制作CAD外挂的安装程序,需要自动将autoCAD下的acad××doc.lsp文件用我自己编写的lsp程序覆盖,请问如何通过*.bat和VB得到解决?谢谢了,急!!!!

qijiun 发表于 2003-11-14 17:20:00

现在我编出来一段了,你能否看看?

Private Sub Form_Load()
Form1.Hide
Dim Temp As String
Dim File(1) As String
Dim Ver As String
Dim Path(1) As String
Dim Nkeyhandle As Long, Nvaluetype As Long, Nlength As Long
Dim objFSO As FileSystemObject
Dim objText As TextStream

Path(0) = "HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R15.0"
Path(1) = "HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.0\ACAD-201:804"
Call RegOpenKey(Path(0), "curver", Nkeyhandle)
Call RegQueryValueEx(Nkeyhandle, "curver", 0, Nvaluetype, Ver, Nlength)
Path(0) = Path(0) + "\" + Ver
里边Call RegOpenKey里的path(0)有问题,不知道怎么能够解决呢:(因为项里边有点,所以不能直接拼写)
谢谢!!
页: [1]
查看完整版本: [推荐]excel转cad的一个小免费软件