hustlei 发表于 2008-12-10 23:19:00

请教后期绑定问题

Module Module1
    Dim AcadApp As Object
    Dim AcadDoc As Object
    Dim gridLayer As Object
    Sub Main()
      ConnectToAcad()
    End Sub
    Sub ConnectToAcad()
      AcadApp = CreateObject(".Application")
      AcadApp.Visible = True
      AcadDoc = AcadApp.ActiveDocument
      gridLayer = AcadDoc.Layers.Add("网格")
      AcadDoc.ActiveLayer.color = 5
      AcadDoc.ActiveLayer = gridLayer      ''''这一句有问题
    End Sub
End Module
前边的都运行成功了   就那一句出错，不知道是那儿写错了
提示的出错原因是找不到成员
http://byhh.net/style/emotion/sweat.gif
请问那一位大侠知道原因 谢谢

hustlei 发表于 2008-12-11 11:24:00

没有人知道么5555
页: [1]
查看完整版本: 请教后期绑定问题