CATIA VB二次开发怎么设置VB2010？

2025-03-26 20:46:44

推荐回答（2个）

回答1：

1. Project - - -> Add Reference勾选全部CATIA的com组件（）

2. 你的代码区上方加入以下代码：

3. 搞定！

Imports SURFACEMACHINING
Imports CATStrSettingsTypeLib
Imports StrTypeLib
Imports SPATypeLib
Imports SMTypeLib
Imports SimulationTypeLib
Imports SIM
Imports CATRsc2
Imports ProductStructureTypeLib
Imports PRISMATICMACHINING
Imports PPR
Imports PCBITF
Imports PARTITF
Imports OSMInterfacesTypeLib
Imports NavigatorTypeLib
Imports MECMOD
Imports MANUFACTURING
Imports KnowledgewareTypeLib
Imports KinTypeLib
Imports INFITF
Imports HybridShapeTypeLib
Imports GenKwe
Imports FittingTypeLib
Imports ElectricalTypeLib
Imports ElecSchematicTypeLib
Imports DRAFTINGITF
Imports LAYOUT2DITF
Imports DNBSimulation
Imports DNBSimIO
Imports DNBSimAct
Imports DNBRobot
Imports DNBIgpResourceProgram
Imports DNBReporting
Imports DNBMHIItf
Imports DNBManufacturingLayoutItf
Imports DNBIgripSim
Imports DNBIgpTagPath
Imports SWKHumanModelingItf
Imports DNBPert
Imports DNBFastener
Imports DNBDpmItf
Imports DNBBIW
Imports DNBDevice
Imports DNBDeviceActivity
Imports DNBD5I
Imports DNBASY
Imports PROCESSITF
Imports ComponentsCatalogsTypeLib
Imports AnnotationTypeLib
Imports CATTooling
Imports CATStk
Imports CATSmInterfacesTypeLib
Imports CATSmarTeamInteg
Imports SHEITF
Imports CATSdeSetting
Imports CATSchematicTypeLib
Imports CATRsc
Imports CATRma
Imports CATRpmReporterTypeLib
Imports CATRdg
Imports CATPspPlantShipTypeLib
Imports CATOBM
Imports CATMultiCAD
Imports CATMat
Imports DNBIPD
Imports CATInstantCollabItf
Imports CATImm
Imports CATIdeSettings
Imports CATV4IInteropTypeLib
Imports CATHumanPackaging
Imports CATFunctSystem
Imports CATEdbTypeLib
Imports CATDrmRmsSettings
Imports CATDataExch
Imports BehaviorTypeLib
Imports CATAssemblyTypeLib
Imports CATArrangementTypeLib
Imports SAMITF
Imports CAT3DXml
Imports CATCompositesMat
Imports CATIA_APP_ITF
Imports AECRTypeLib

回答2：

VB是进程外访问，CATIA的OLE Automation(参见OLE)

如果已有CATIA启动，使用如下语句获取CATIA Application对象
Dim objCATIA As Object
Set objCATIA = GetObject(, "CATIA.Application")

如果没有已启动的CATIA，使用如下语句获取CATIA Application对象(先启动一个CATIA)
Dim objCATIA As Object
Set objCATIA = CreateObject("CATIA.Application")

也可以使用Windows Scripting Host
Set objCATIA = WScript.CreateObject("CATIA.Application")
Set objCATIA = WScript.GetObject("", "CATIA.Application")

HTML中相同方法

如果同时有两个或两个以上CATIA窗口，需要配合API返回你需要的CATIA对象

最新问答

格式化d盘调整分区,但是容量少了20g？

离子反应、复分解反应、置换反应和氧化还原反应的关系是什么？

实木护墙板的优势

我买了双NIKE跑鞋.十月下旬买的登月5代这俩天感觉穿着没以前软了请问为什么.

在淘宝买的cmcc账号，如果卖家不改密码，这种账号能用多久？？？

求北京到沈阳的车次与卧铺票价

马来西亚中部是地球多少度

我妈这段时间没有感冒但是一直发烧37点多，并且都只是白天烧，到了晚上又退下去了，打了几天点滴也没一

成都新东方托福强化班，大家平时怎么练习托福口语的?

标准盛丰这家公司的贵金属业务怎么样？