vs下的基于com的技术问题

forverd · 发表于 2018-8-24 10:26:00

....
      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 · 发表于 2018-8-25 18:18:00

这个枚举要加全限定名称

forverd · 发表于 2018-8-26 12:00:00

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

forverd · 发表于 2018-10-9 09:38:00

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

forverd · 发表于 2019-3-29 11:41:00

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

nslove44202489 · 发表于 2019-4-14 15:05:00

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

copy


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

vs下的基于com的技术问题

发表回复

精选推荐