Ilogic - Delete Iproperties
Yes it is possible!
Copy this iLogic Code in one rule and run it:
Sub Main
Dim oDoc As Document = ThisDoc.Document
If oDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject
Dim oPropSet As PropertySet
For Each oPropSet In oDoc.PropertySets
If oPropSet.Name = "Design Tracking Properties" Or
oPropSet.Name = "Inventor Summary Information" Then
Delete_PropSet_Contents(oPropSet)
End If
Next
Else
MsgBox("Start only in Assembly", vbCritical, "Delete Content iProperties")
End If
Dim oRefDoc As Document
For Each oRefDoc In oDoc.AllReferencedDocuments
GetRefDocs(oRefDoc)
Next
End Sub
Sub GetRefDocs (oDoc As Document)
Dim oPropSet As PropertySet
For Each oPropSet In oDoc.PropertySets
If oPropSet.Name = "Design Tracking Properties" Or
oPropSet.Name = "Inventor Summary Information" Then
Delete_PropSet_Contents(oPropSet)
End If
Next
End Sub
Sub Delete_PropSet_Contents(oPropSet As PropertySet)
Dim oProp As [Property]
For Each oProp In oPropSet
Try
oProp.Value = ""
Catch
End Try
Next
End Sub
Martin Winkler
CAD Developer
Did you find this post helpful? Feel free to like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Hi @Martin-Winkler-Consulting & @marcin_otręba
Both Ilogic codes work.
No idea which one to use best.., I don't think it matters.
However, I have two more minor issues ...
- The iLogic code does not work if you run it on a part (with an assembly and the underlying daughters it works).
- Two more Iproperty fields remain filled in (see image)
Kinds regards,
Jeffrey
yes it is.
You can find information about:
properties here:
about subtypes here:
https://adndevblog.typepad.com/manufacturing/2013/01/inventor-document-sub-types.html
it will be only problem with project and status tab because there is no such property set they are only showed in project and status tabs but parent propertyset named "Design Tracking Properties" is much bigger :
so to accomplish that you can use simple loop like:
it will cleanup summary and remove all custom iproperties.
to clean project and status you need to do it like this:
prop_set = doc.PropertySets.Item("Design Tracking Properties") prop_set.Item("name of property to clean up").Value=""
also when you have ipropert with date format then you need to set some date not to clean it up like here:
so to sum this up here is the code wit only some samples of cleaning project and status tabs:
'"4D29B490-49B2-11D0-93C3-7E0706000000" - part '"9C464203-9BAE-11D3-8BAD-0060B0CE6BB4" sheet metal If ThisDoc.Document.SubType = "{4D29B490-49B2-11D0-93C3-7E0706000000}" Or ThisDoc.Document.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then Dim doc As PartDocument = ThisDoc.Document Dim prop_set As PropertySet = doc.PropertySets.Item("Inventor Summary Information") For i = 1 To prop_set.Count prop_set.Item(i).Value="" Next prop_set = doc.PropertySets.Item("Inventor Document Summary Information") For i = 1 To prop_set.Count prop_set.Item(i).Value="" Next If doc.PropertySets.Item("Inventor User Defined Properties").Count > 0 Then prop_set = doc.PropertySets.Item("Inventor User Defined Properties") Dim count As Integer= prop_set.Count For i =0 To count Try prop_set.Item(count-i).Delete Catch End Try Next End If ' project and status tabs properties clean up: prop_set = doc.PropertySets.Item("Design Tracking Properties") prop_set.Item("Project").Value = "" prop_set.Item("Description").Value = "" prop_set.Item("Part Number").Value = "" prop_set.Item("Checked By").Value = "" prop_set.Item("Date Checked").Value="01.01.0001" End If
marcin.
