Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
frederic.vandenplas
in reply to: Anonymous

Hi,

 

This code does what you where looking for, only you need to create a few lines of code to extract the filename.

now the full path is created in the iproperties.

 

I found it through debugging in vba, which you wont find easy in help or in ilogic

Dim oDoc As Document
Dim oCompDef As PartComponentDefinition
oCompDef = ThisApplication.ActiveDocument.ComponentDefinition

' Get the command manager.
Dim oCommandMgr As CommandManager
oCommandMgr = ThisApplication.CommandManager

'Get control definition
Dim oControlDef As ControlDefinition
oControlDef = ThisApplication.CommandManager.ControlDefinitions("PartiFeatureInsertCmd")

' Execute the command synchronously.
Call oControlDef.Execute2(True)

Dim oiFeatComp As iFeature
oiFeatComp = oCompDef.Features.iFeatures(oCompDef.Features.iFeatures.Count)

Dim strPrompt As String
strPrompt = oiFeatComp.iFeatureTemplateDescriptor.LastKnownSourceFileName

iProperties.Value("Custom", "TEST") = strPrompt
If you think this answer fullfilled your needs, improved your knowledge or leads to a solution,
please feel free to "kudos"