论坛首页 › 『CAD制图技术交流』 › CAD把一个命令当着一个函数调用，不执行（com接口VB语言）

lihao2014 发表于 2019-6-12 13:54:09

CAD把一个命令当着一个函数调用，不执行（com接口VB语言）

主要用到函数说明：
MxDrawXCustomFunction::Mx_SendStringToExecuteFun
把一个命令当着一个函数调用，不执行，详细说明如下：

参数 说明
CString sCmaName 命令名
Param 命令参数


例如: VB，在命令中，调用绘矩形命令函数，并得到绘制的矩形id.,该代码在命令事件中执行。


            Dim param As MxDrawResbuf
            Set param = New MxDrawResbuf

            param.AddString "Mx_Rectang"
            '是绘制矩形的线宽.这是命令参数。
            param.AddDouble 10
            MxDrawX1.CallEx "Mx_SendStringToExecuteFun", param

            '得到绘制的矩形id.
            Dim retparam As MxDrawResbuf
            Set retparam = MxDrawX1.Call("Mx_GetEntitysLastCmd", "")


            Dim i As Integer
            i = 1
            Do While i < retparam.Count

                MsgBox retparam.AtLong(i)

                i = i + 1
            Loop

qyf 发表于 2019-6-12 13:54:09

这种语言看不懂啊

查看完整版本: CAD把一个命令当着一个函数调用，不执行（com接口VB语言）