运行VB出现实时错误'424':要求对象,怎么解决 20
OptionExplicitSubInsertComp()DimddAsNewHIWIN.Class1DimsnnAsStringdd.Mainsnn=dd.NameDi...
Option Explicit
Sub InsertComp()
Dim dd As New HIWIN.Class1
Dim snn As String
dd.Main
snn = dd.Name
Dim mapp As McadApplication
Set mapp = ThisDrawing.Application.GetInterfaceObject("mcad.application")
Dim Ge As New GeApplication
Dim Pos As GeMatrix
Dim UserPoint As Variant
Dim Ver As GeVector
Set Pos = Ge.Matrix
UserPoint = ThisDrawing.Utility.GetPoint(, "请选择插入点：")
Set Ver = Ge.Vector(UserPoint(0), UserPoint(1), UserPoint(2))
Pos.SetToTranslation Ver
Dim CompDef As McadComponentDefinition
Set CompDef = mapp.ActiveDocument.AssemblyMgr.AddCompDefFromFile("C:\temp\00.dwg")
Dim Target As McadComponentDefinition
Set Target = mapp.ActiveDocument.AssemblyMgr.ActiveDefinition
Target.AddComponent CompDef, Pos
End Sub 展开
Sub InsertComp()
Dim dd As New HIWIN.Class1
Dim snn As String
dd.Main
snn = dd.Name
Dim mapp As McadApplication
Set mapp = ThisDrawing.Application.GetInterfaceObject("mcad.application")
Dim Ge As New GeApplication
Dim Pos As GeMatrix
Dim UserPoint As Variant
Dim Ver As GeVector
Set Pos = Ge.Matrix
UserPoint = ThisDrawing.Utility.GetPoint(, "请选择插入点：")
Set Ver = Ge.Vector(UserPoint(0), UserPoint(1), UserPoint(2))
Pos.SetToTranslation Ver
Dim CompDef As McadComponentDefinition
Set CompDef = mapp.ActiveDocument.AssemblyMgr.AddCompDefFromFile("C:\temp\00.dwg")
Dim Target As McadComponentDefinition
Set Target = mapp.ActiveDocument.AssemblyMgr.ActiveDefinition
Target.AddComponent CompDef, Pos
End Sub 展开
展开全部
肯定是你的哪个对象没有事先定义好，你就用了！
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
网易云信
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库，由YOOtheme团队开发。它提供了丰富的界面元素，包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等，适用于各种类型的网站和应用程序。UIkit还支持响应式设计，可以根据不同...
点击进入详情页
本回答由网易云信提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
