Creating Knowledgeware Objects 创建知识软件对象(3DExperience CATIA)

最新推荐文章于 2024-09-16 10:32:48 发布

zhongwei228

最新推荐文章于 2024-09-16 10:32:48 发布

阅读量109

点赞数

文章标签：数学建模 3d

本文链接：https://blog.csdn.net/zhongwei228/article/details/131151633

版权

'Knowledge Basics Overview
'CAAKniAutomationPrinciples.htm

'Creating Knowledgeware Objects 创建知识软件对象
Dim oActivePart As VPMRepReference
Set oActivePart = CATIA.ActiveEditor.ActiveObject

Dim oKnowledgeObjects As KnowledgeObjects
Set oKnowledgeObjects = oActivePart.GetItem("KnowledgeObjects")
Dim oParams As ParmsSet
Set oParams = oKnowledgeObjects.GetKnowledgeRootSet(True, 0) ' kweParametersType = 0

Dim oSphereRadius As Parameter 
Set oSphereRadius = oParams.Factory.CreateInteger("StringLength",0) 

Dim oParameter1 As Parameter
Set oParameter1 = oParams.Collection.Item("StringLength")
'Set oParameter1 = oParams.Collection.Item(6)