• State Not Answered
  • Replies 1 reply
  • Subscribers 31 subscribers
  • Views 587 views
  • Users 0 members are here

[CONNECT VBA] Where is mdlLevelLibrary_importWithFiltersEx?

brenks
Offline

Hi,

I'm trying to convert old VBA code from v8i to Connect edition but there is an error saying "Can't find DLL entry point mdlLevelLibrary_importWithFiltersEx in stdmdlbltin.dll". Where is it implemented? 

#If VBA7 Then
    Declare PtrSafe Function mdlLevelLibrary_importWithFiltersEx Lib "stdmdlbltin.dll" ( _
        ByVal pFileNameIn As LongPtr, _
        ByVal levelLibraryFormatIn As Integer, _
        ByVal importByMethodIn As Integer, _
        ByVal modelRefIn As LongLong) As Long
#Else
     Declare Function mdlLevelLibrary_importWithFiltersEx Lib "stdmdlbltin.dll" ( _
        ByVal pFileNameIn As String, _
        ByVal levelLibraryFormatIn As Integer, _
        ByVal importByMethodIn As Integer, _
        ByVal modelRefIn As Long) As Long
#End If

Public Sub test_importWithFiltersEx()
   For i = 1 To ActiveModelReference.Attachments.count
        Dim cAtt As ModelReference
        Set cAtt = ActiveModelReference.Attachments.item(i)
        Status = mdlLevelLibrary_importWithFiltersEx(StrPtr("C:\connect tests\oveerrides_test.dgnlib"), LEVEL_LIBRARY_FORMAT_DGN, 1, cAtt.MdlModelRefP)
        Status = mdlLevelTable_rewrite(cAtt.MdlModelRefP)
    Next i
End Sub

Parents Reply Children
No Data
Communities
Support and Services
Training and Learning
Social Media