vs下的基于com的技术问题

forverd

            ....
          For Each layoutx In wb.Layouts
                If layoutx.Name <> "Model" And layoutx.Block.Count > 2 Then     '转换到布局下
                    activedoc.ActiveLayout = layoutx
                    pathname = "\标准图框.dwg"                                                 '相对路径
                    xref = activedoc.PaperSpace.AttachExternalReference(pathname, "标准图框", InsertPoint, 1, 1, 1, 0, False)
                    xref.Layer = "图框"
                    xref.Linetype = "CONTINUOUS"
                    xref.Update()
                End If
           Next
           ....
1、这是我的一段代码，在vs平台下开发基于com技术，代码运行到红色字体部分出现问题，源代码在vb6中运行正常

2、还有为什么在vs中输入关键字之后没有对cad对象的属性、方法的自动补充那？是我缺少对什么文件的引用吗？

3、粉色代码部分能否有其他的表达方式，因为不想每次都把layoutx切换成激活的布局，这样会降低速度，paperspace有没有paperspace.item(i)的属性那？

nslove44202489

这个枚举要加全限定名称

forverd

nslove44202489 发表于 2018-8-25 18:18
这个枚举要加全限定名称

你是说的第一条吗？要imports  runtime ?

forverd

问题还没有解决，有帮忙看下的吗

forverd

有帮忙看下的吗？几个月了还是 没解决

nslove44202489

给你发个sample吧，先引用以下命名空间
dll去sdk中引用

2. Imports Autodesk.AutoCAD.Interop.Common
   
3. Imports Autodesk.AutoCAD.Interop
   
4. 
   
5. Dim acadApp As AcadApplication = Application.AcadApplication
   
6. 
   
7. Private Thisdrawing As AcadDocument =Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.AcadDocument

Imports Autodesk.AutoCAD.Interop.Common<br /> Imports Autodesk.AutoCAD.Interop<br /> <br /> Dim acadApp As AcadApplication = Application.AcadApplication<br /> <br /> Private Thisdrawing As AcadDocument =Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.AcadDocument