Skoobi
01-26-2012, 05:07 AM
Hi!
I experience a problem with my first .dll program in SPPID.
It was initially a standalone (.exe) program and I change it as a .dll.
When I run it from the menu of SPPID, it works fine but at the end a message appear:
The Macro failed to properly define the method Command_Initialize(BasicCmd As Object).
Here is my code in the class module:
Private Sub Class_Initialize()
Run
End Sub
Sub Run()
'test doublon de tag sur plan ouvert dans smartplant
Dim CryoSPPID As New clsCryoSPPID.objSPPID
Dim CryoDS As LMADataSource
Dim oProgressBar As New clsCryoSPPID.clsProgessBarre
Dim myFilter As LMAFilter, Filter1 As LMAFilter, Filter2 As LMAFilter
Dim PlantItemWithTag As LMPlantItems, PlantItemX As LMPlantItem ', CollDrws As LMDrawings ', xDrw As LMDrawing
Dim DicoTag As Object, TagName As Variant
Dim j As Long, MillNo As String, NomDraw As String, NomActiveDraw As String ', TempStr As String
'Dim ModItem As LMModelItem
Dim Fichier As String, xData As String, TmpTxt As String
On Error Resume Next
........
..........
.............
Is there something missing?
I experience a problem with my first .dll program in SPPID.
It was initially a standalone (.exe) program and I change it as a .dll.
When I run it from the menu of SPPID, it works fine but at the end a message appear:
The Macro failed to properly define the method Command_Initialize(BasicCmd As Object).
Here is my code in the class module:
Private Sub Class_Initialize()
Run
End Sub
Sub Run()
'test doublon de tag sur plan ouvert dans smartplant
Dim CryoSPPID As New clsCryoSPPID.objSPPID
Dim CryoDS As LMADataSource
Dim oProgressBar As New clsCryoSPPID.clsProgessBarre
Dim myFilter As LMAFilter, Filter1 As LMAFilter, Filter2 As LMAFilter
Dim PlantItemWithTag As LMPlantItems, PlantItemX As LMPlantItem ', CollDrws As LMDrawings ', xDrw As LMDrawing
Dim DicoTag As Object, TagName As Variant
Dim j As Long, MillNo As String, NomDraw As String, NomActiveDraw As String ', TempStr As String
'Dim ModItem As LMModelItem
Dim Fichier As String, xData As String, TmpTxt As String
On Error Resume Next
........
..........
.............
Is there something missing?