[讨论]对VBA编程很有意义的问题

zfbj · 发表于 2003-8-4 07:30:00

今天无意间发现了一个在VBA中调用ARX全局函数的调用，在上传的程序中大家可以看到。
我的问题是，如何查看提供的这些函数的格式（类似API函数的声明）？
另外一点是，我使用的预览函数出错，系统提示：找不到DLL入口点，是什么原因呢？（在程序中能够看到）
我的猜想是：可能是VBA中仅能调用AcEd类的全局函数。现在仍在实验中，希望各位参与这个问题，如果能成功调用ARX的这些资源，对VBA编程的灵活性将大大提高。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

mccad · 发表于 2003-8-4 11:40:00

其实这个方法以前也注意过，但一直都找不到调用的方法，如以下的调用ACAD选择颜色的对话框函数就是直接调用acad.exe文件中的函数：

copy


Private Declare Function acedSetColorDialog Lib _
   "acad.exe" (color As Long, ByVal bAllowMetaColor _
   As Boolean, ByVal nCurLayerColor As Long) As Boolean
Public Function ChooseColor(ByVal lngInitClr As Long, _
        ByVal blnMetaColor As Boolean, _
        ByVal lngCurClr As Long) As Long
    ChooseColor = -1
    On Error Resume Next
    If acedSetColorDialog(lngInitClr, blnMetaColor, lngCurClr) Then
        ChooseColor = lngInitClr
    End If
    On Error GoTo 0
End Function

但一直想调用象ACAD中打开文件的函数(带预览图)，一直未果。

wjzhang · 发表于 2003-8-4 14:57:00

在autocad的網站上下一各objectarx,
裏辺的幇助有相関内容

mccad · 发表于 2003-8-4 15:37:00

终于写出了一部分的带预览的打开文件对话框，只是返回文件名部分还不知道怎么搞：

copy


Private Declare Function acedGetFileNavDialog Lib _
   "acad.exe" (ByVal title As String, ByVal default As String, ByVal ext As String, _
   ByVal dlgname As String, ByVal flags As Integer, result As Variant) As Integer
Public Function OpenFile(ByVal title As String, ByVal defawlt As String, ByVal ext As String) As Variant
    Dim result As Variant
    acedGetFileNavDialog title, defawlt, ext, title, 0, result
    OpenFile = result
End Function
Sub gf()
    OpenFile "打开文件-乐筑天下VBA示例", "", "dwg"
End Sub

但因为我对C++的自定义数据类型不清楚，所以打开文件的对话框函数不能返回选定的文件。
张版主请给修改一下。对话框打开后按确定或取消后出现：“运行时错误 49，DLL调用约定错误”。

ojexgevltzw.jpg

mccad · 发表于 2003-8-5 13:01:00

这个程序会使AutoCAD致命错误退出：

copy


Private Declare Function acedFindFile Lib _
    "acad.exe" (ByVal fname As String, result As String) As Integer
Sub FindFile()
    Dim filepath As String
    Dim filename As String
    filename = "acad.mnu"
    acedFindFile filename, filepath
    Debug.Print filepath
End Sub