社区
Inventor 产品技术应用讨论区
欢迎访问欧特克Inventor论坛!分享知识,发帖提问,浏览Inventor热帖
取消
显示结果 
显示  仅  | 搜索替代 
您的意思是: 

ilogic一键创建简化零件。

6 条回复6
已解决
回复
1 条消息(共 7 条)
xingyu_wangZVD5A
176 次查看, 6 条回复

ilogic一键创建简化零件。

xingyu_wangZVD5A_0-1734424344055.png

通过ilogic能否实现一键创建简化装配体,并且断开原有关系。

6 条回复6
2 条消息(共 7 条)

参考如下规则

 

Try
    Dim g_App As Inventor.InventorServer = ThisApplication
    Dim AssDoc As Inventor.AssemblyDocument= ThisDoc.Document

    ' Create a new part document that will be the shrinkwrap substitute
    Dim oPartDoc As PartDocument
    oPartDoc = g_App.Documents.Add(DocumentTypeEnum.kPartDocumentObject, , True)

    Dim oPartDef As PartComponentDefinition
    oPartDef = oPartDoc.ComponentDefinition

    Dim oDerivedAssemblyDef As DerivedAssemblyDefinition
    oDerivedAssemblyDef = oPartDef.ReferenceComponents.DerivedAssemblyComponents.CreateDefinition(AssDoc.FullDocumentName)
    ' Set various shrinkwrap related options
    oDerivedAssemblyDef.DeriveStyle = DerivedComponentStyleEnum.kDeriveAsMultipleBodies
    oDerivedAssemblyDef.IncludeAllTopLevelWorkFeatures = DerivedComponentOptionEnum.kDerivedExcludeAll
    oDerivedAssemblyDef.IncludeAllTopLevelSketches = DerivedComponentOptionEnum.kDerivedExcludeAll
    oDerivedAssemblyDef.IncludeAllTopLeveliMateDefinitions = DerivedComponentOptionEnum.kDerivedExcludeAll
    oDerivedAssemblyDef.IncludeAllTopLevelParameters = DerivedComponentOptionEnum.kDerivedExcludeAll
    Call oDerivedAssemblyDef.SetHolePatchingOptions(DerivedHolePatchEnum.kDerivedPatchNone)
    Call oDerivedAssemblyDef.SetRemoveByVisibilityOptions(DerivedGeometryRemovalEnum.kDerivedRemoveNone)
    Dim oDerivedAss As DerivedAssemblyComponent
    oDerivedAss = oPartDoc.ComponentDefinition.ReferenceComponents.DerivedAssemblyComponents.Add(oDerivedAssemblyDef)
    Call oDerivedAss.BreakLinkToFile()

    ' Save the part
    Dim partname As String=ThisDoc.PathAndFileName(False)& ".ipt"
    ThisApplication.ActiveView.Fit
    ThisApplication.CommandManager.ControlDefinitions.Item("AppIsometricViewCmd").Execute
    Call oPartDoc.SaveAs(partname ,  False)
Catch ex As Exception
        ErrorMessage = "Error creating ipt file."
End Try


If my post answers your question, please click the "Accept as Solution" button. This helps everyone find answers more quickly!
如果我的回帖解决了您的问题,请点击 "接受为解决方案" 按钮. 这可以帮助其他人更快的找到解决方案!


王 承之
Autodesk AGN [Inventor 俱乐部] Leader
Inventor Club | Bilibili


AGN L    EESignature

3 条消息(共 7 条)

感谢王老师的规则,但是通过规则生成的貌似没有我模板里的一些规则和表单,如下图所示,我手动简化生成的零件可以把模板中的一些表单带出来。

xingyu_wangZVD5A_0-1734426496710.png

xingyu_wangZVD5A_1-1734426594966.png

 

 

4 条消息(共 7 条)

oPartDoc = g_App.Documents.Add(DocumentTypeEnum.kPartDocumentObject, , True)
这句话里面加上你的模板路径和名称就可以了
oPartDoc = g_App.Documents.Add(DocumentTypeEnum.kPartDocumentObject, 模板, True)

lucas_zhang_82_0-1734431402442.png

 

5 条消息(共 7 条)

xingyu_wangZVD5A_0-1734483278850.png

张总您看下是这样吗,没有报错,但是运行后没有任何反应。

6 条消息(共 7 条)

你确定这是你的模板?没有扩展名?????

7 条消息(共 7 条)

感谢指导,我把.ipt加上了。

找不到想要的内容?向社区提问或分享您的知识。

到论坛发帖  

”