[VBA程序]：怎样通过VB来加载lisp程序

god

我用VB和lisp编程，现在想在vb中控制autocad加载lisp程序，可以使用sendkeys函数向autocad发送字符(load "a.lsp")来加载a.lsp。但这样acad的命令行会出现(load "a.lsp")，有没有办法让acad不出现提示呢？或者有没有其他的加载方法？（不使用修改acad.lsp及acadr**.lsp的方式）

lijiao

在括号后加一个空格即可。

god

SendKeys "{(}load" & Chr(34) & "a.lsp" & Chr(34) & "{)} "

是这样吗？不管用。会出现这东东，我的意思是想不让它出现。
Command: (load"a.lsp")

你能不能说详细点，最好举个例子

lijiao

可以用AutoCAD文档对象的.SendCommand方法，假如CurDoc为当前文档，则为：
CurDoc..SendCommand "(load" & Chr(34) & "a.lsp" & Chr(34) & ")_"
其中"_"代表空格。


不过，我建议不要用VB，不如用VBA来得方便，我曾经也想用VB作一个控制台，但后来放弃了。
如不借以，我们可以交流一些体会，我的EMAIL：LIJIAO@CENSTAR.COM

god

噢，我再试试
vb当然不会有vba那么方便，不过如果是为自己用的方便而编程的话可以用vba，不过我是给单位编的商用软件，用vba不太合适，你说呢？

lijiao

没想到遇到了高手，真是三生有幸。

god

哪里哪里，没看我问的问题多幼稚，要学的东西太多了

god

还是不行，怎么回事呢？运行后能调出acad窗口，但是没有其他的反应。SendCommand是不是在vba下才能用啊？以下是调试代码

另一个问题，我在vb中引用了acad.tlb类型库，在acaddoc后键入小数点后应该出现可用的方法及属性，但是并没出现，是什么原因？

Private Sub Command1_Click()
    Dim acadapp As Object      '建立Application对象
    Dim acaddoc As Object      '建立Document对象
    Dim mospace As Object      '建立Model Space 对象
    On Error Resume Next
    Set acadapp = GetObject(, "autocad.application")   '若AutoCad已启动 , 则直接得到
    If Err Then
        Err.Clear
        Set acadapp = CreateObject("autocad.application")   '若AutoCad未启动，则运行它
        If Err Then
            MsgBox Err.Description, , "错误"
            Exit Sub
        End If
    End If

    AppActivate "AutoCAD"

acadapp.SendCommand "(load" & Chr(34) & "a.lsp" & Chr(34) & ") "
acaddoc.SendCommand "_Circle" & vbCr & "2,2,0" & vbCr & "4" & vbCr

End Sub

god

在acad2002的vba中可以用sendcommand，但是还是有(load "a.lsp")的提示，加空格只是起回车的作用，好像不行耶

lijiao

1、在定义变量时，应该这样定义：
   Dim CADApp As AutoCAD.AcadApplication
      Dim CADdoc As AcadDocument
      Dim CADmod As AcadModelSpace
2、CADApp无SendCommand方法，CADdoc才有。
3、你需要熟悉一下AUTOCAD的对象模型，以及他的属性、事件和方法等。
4、因我的上网时间有限制（8：00～10：00），不能及时回答你，很抱歉，但我可以随时接收EMAIL。

god

我改成这样，不过运行后一点反应都没有，你行行好，给我贴个可用的代码嘛，好不好

Dim CADApp As AutoCAD.AcadApplication
Dim CADdoc As AcadDocument
Dim CADmod As AcadModelSpace
    Set CADApp = GetObject(, "autocad.application")   '若AutoCad已启动 , 则直接得到
  Set CADdoc = CADApp.Documents
    Set CADmod = CADdoc.ModelSpace

CADdoc.SendCommand "(load" & Chr(34) & "a.lsp" & Chr(34) & ")"

indal

VB不太懂这有个例子
Sub Example_SendCommand()
   ' This example sends a command to the AutoCAD commandline
   ' of a particular drawing for evaluation
   
   ' We will create a Circle in the active drawing and will
   ' zoom to display the entire circle
   ThisDrawing.SendCommand "_Circle" & vbCr & "2,2,0" & vbCr & "4" & vbCr
   ThisDrawing.SendCommand "_zoom" & vbCr & "a" & vbCr
   
   ' Refresh view
   ThisDrawing.Regen acAllViewports
   
   MsgBox "A circle command has been sent to the command line of the current drawing."
End Sub
希望对你有用

god

谢谢你的回帖，sendcommand 的使用我已经会了，它不能达到 “不在acad命令行出现信息提示” 的效果。可能只能用其他方法了。如果你知道，还请你告诉我。

xyz518mm

我也想知道后来楼主怎样解决呢?