Creo 二次开发 代码实现 获取.asm文件下的.prt子零件

在 Creo 中，可以通过使用 Creo API 获取.asm文件下的.prt子零件。以下是获取.asm文件下所有.prt子零件的示例代码：

' 创建 Creo Application 对象
Dim creo As Object
Set creo = CreateObject("pfcApplication")

' 启动 Creo
Dim status As Long
status = creo.Init()

' 获取当前模型
Dim model As Object
Set model = creo.GetCurrentModel()

' 获取所有装配子零件
Dim components As Object
Set components = model.ListDescendants(pgdescendant_type:=pfcModelDescendantInstance)

' 遍历所有子零件
Dim component As Object
For Each component In components
    ' 判断子零件是否为.prt文件
    If Right(component.GetPath, 4) = ".prt" Then
        ' 输出子零件名称
        Debug.Print component.GetName()
    End If
Next

' 关闭 Creo
status = creo.Exit()

在上述代码中，我们通过 `model.ListDescendants` 方法获取装配中所有子零件，然后遍历所有子零件并判断它们是否为.prt文件。如果是.prt文件，则输出子零件的名称。