Custom iProperties default list

[Ben.Tassell]

Hi, I am currently trying to create a new title block system for my company, however I am running into a strange issue. I cannot create a custom iProperty titled "DEPARTMENT", in all caps, as there is a default iProperty titled "Department". The caps is crucial as our previous title block attribute is in all caps, and for data extraction in AutoCAD, which is caps sensitive for attributes.

Does anyone know a way around this? How to modify/delete this default list?

[A.Acheson]

Hi @Ben.Tassell 

From this article here you have access to all properties.

For your specific situation to delete all custom iproperties the below is what you need.If you need to target a specific one then filter by name. Here is the help page for property where you can check the methods/ properties available.

Dim doc As Document = ThisApplication.ActiveDocument 
Dim ps As PropertySet = doc.PropertySets.Item(4)
For Each p As [Property] In ps
   p.delete
Next
  

[Ben.Tassell]

Using the VBA code in the article you sent, you don't end up with 'Department' as one of the properties... It must be a different list in that dropdown menu than what the existing properties are.

[A.Acheson]

Well that is unusual, so it's not visible in the custom tab but is still in that drop down.  i have seen this before but don't know if it was solved. What happens if you try and create a new template from an out of the box template? Maybe ask the same question on the Inventor forum as this is really a problem with the template property storage than the ilogic. 

[Ben.Tassell]

Same issue with the no template inventor drawing. Not sure the template file has anything to do with it that I can see.

[Michael.Navara · Accepted solution]

You can "rename" the iProperty with the following iLogic code

Dim doc As Document = ThisDoc.Document
Dim userDefPropreties = doc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")

Dim dep = userDefPropreties("Department").Value
userDefPropreties("Department").Delete
userDefPropreties.Add(dep, "DEPARTMENT")