求助：如何根据vba的objectid转换成lisp对象？？？

highflybird

   试下如下代码：

1. 
   
2. On Error Resume Next
   
3.     Set VL = ACAD.GetInterfaceObject("VL.Application.1")
   
4.     Set VL = ACAD.GetInterfaceObject("VL.Application.16")
   
5.     Set VL = ACAD.GetInterfaceObject("VL.Application.17")
   
6.     Set VL = ACAD.GetInterfaceObject("VL.Application.18")
   

<br /> On Error Resume Next<br />     Set VL = ACAD.GetInterfaceObject("VL.Application.1")<br />     Set VL = ACAD.GetInterfaceObject("VL.Application.16")<br />     Set VL = ACAD.GetInterfaceObject("VL.Application.17")<br />     Set VL = ACAD.GetInterfaceObject("VL.Application.18")<br />

star_sur

回复 highflybird 的帖子

试过了，每一条都不行，弹出错误"运行时错误 ‘424’ ，要求对象"

我在autocad2006 和 2009下都试过了，都不通过

我的

highflybir

1. 
   
2. Set Acad = ThisDrawing.Application
   
3. 
   
4. On Error Resume Next
   
5.     Set VL = Acad.GetInterfaceObject("VL.Application.1")
   
6.     Set VL = Acad.GetInterfaceObject("VL.Application.16")
   
7.     Set VL = Acad.GetInterfaceObject("VL.Application.17")
   
8.     Set VL = Acad.GetInterfaceObject("VL.Application.18")
   

<br /> Set Acad = ThisDrawing.Application<br /> <br /> On Error Resume Next<br />     Set VL = Acad.GetInterfaceObject("VL.Application.1")<br />     Set VL = Acad.GetInterfaceObject("VL.Application.16")<br />     Set VL = Acad.GetInterfaceObject("VL.Application.17")<br />     Set VL = Acad.GetInterfaceObject("VL.Application.18") <br />

如果这样也不行，就奇怪了，那你就用sendcommand的方式吧
程序的开头不用改了，你就通过变量的方式传到CAD中，然后SendCommand
把那选择的两行改成：

2. (not (setq e (handent (getvar "users1"))))
   

(not (setq e (handent (getvar "users1"))))<br />

这样也许简单些

snddd2000

版本号赋到变量试试
' 读取AutoCAD版本
Dim Version_No As String
Version_No = Int(Val(AcadApplication.Version))

' 赋值Prog_ID
Dim Prog_ID As String
Prog_ID = "AutoCAD.AcCmColor." + Version_No

Set LayerColor_Yellow = AcadApplication.GetInterfaceObject(Prog_ID)