is it possible to get the title (feature name or entity name) of the currently open property manager?
3d sketch editing is active.
property manager title
property manager title
this works (from api help deleted redundant code)
Go to full postCode: Select all
Dim swApp As SldWorks.SldWorks
Dim commandID As Long
Dim pmpTitle As String
Dim isUIActive As Boolean
Sub main()
Set swApp = Application.SldWorks
' Get the command ID if the command is a fillet,
' get the PropertyManager page title if one is active,
' and get whether the user interface is active
swApp.GetRunningCommandInfo commandID, pmpTitle, isUIActive
If pmpTitle <> "" Then
Debug.Print "Title of PropertyManager page: " & pmpTitle
End If
End Sub
Re: property manager title
this works (from api help deleted redundant code)
Code: Select all
Dim swApp As SldWorks.SldWorks
Dim commandID As Long
Dim pmpTitle As String
Dim isUIActive As Boolean
Sub main()
Set swApp = Application.SldWorks
' Get the command ID if the command is a fillet,
' get the PropertyManager page title if one is active,
' and get whether the user interface is active
swApp.GetRunningCommandInfo commandID, pmpTitle, isUIActive
If pmpTitle <> "" Then
Debug.Print "Title of PropertyManager page: " & pmpTitle
End If
End Sub