To access the database currently working on, use the global [b]ActiveDatabase [/b]property. You may also use [b]ThisDatabase [/b]to access the project database containing the VBA code.
The [b]Database [/b]object has an [b]ActiveObject [/b]property to use the [b]FpObject [/b]which has the focus. There are also properties [b]Selection [/b]and [b]SelectedObject [/b]to get the object(s) chosen in the object list.
The name of an object can be obtained by the property [b]Name[/b], the full path (including extension) with [b]Fullname[/b].
[code]
Dim oFpObj As FpObject
Set oFpObj = ActiveDatabase.ActiveObject
Select Case oFpObj.ObjectType
Case fpObjectType2DDiagram
MsgBox “Selected 2D-Diagram: ” & oFpObj.Name & vbCrLf _
& “(Full path name: ” & oFpObj.FullName & “)”
Case fpObjectType3DDiagram
MsgBox “Selected 3D-Diagram: ” & oFpObj.Name & vbCrLf _
& “(Full path name: ” & oFpObj.FullName & “)”
Case Else
MsgBox “Selected Object: ” & oFpObj.Name & vbCrLf _
& “(Full path name: ” & oFpObj.FullName & “)”
End Select
[/code]
