1、主要用到函数说明：MxDrawXCustomFunction::Mx_RegistUserCustomCommand

向控件注册一个命令，用户在命令行输入命令名这个字符串，就会触发执行命令事件 命令事件的id就是该注册时的id值，详细说明如下：

参数
			
说明
		

			
CString sCommandName
			
			

			
命令名称
			
		

			
LONG lId
			
			

			
命令id
			
		
VB代码实现如下：


			
1

			
2

			
3

			
4

			
5

			
6
			
			

			
Set param2 = New MxDrawXLib.MxDrawResbuf

			
param2.AddString "testcommand", -10

			
param2.AddLong 55, -10

			
MxDrawX1.CallEx "Mx_RegistUserCustomCommand", param2

			
'或者

			
MxDrawX1.Call "Mx_RegistUserCustomCommand", "(""testcommand"",55)"
			
		
2、主要用到函数说明：_DMxDrawX::RegistUserCustomCommand

向控件注册一个命令，用户在命令行输入命令名这个字符串，就会触发执行命令事件 命令事件的id就是该注册时的id值，详细说明如下：

参数
			
说明
		

			
BSTR pszCommandName
			
			

			
命令名称
			
		

			
LONG lId
			
			

			
命令id
			
		
VB代码实现如下：


			
1
			
			

			
MxDrawX1.RegistUserCustomCommand "testcommand", 55
			
		

主要用到函数说明：MxDrawXCustomFunction::Mx_SendStringToExecuteFun

把一个命令当着一个函数调用，不执行，详细说明如下：

参数
			
说明
		

			
CString sCmaName
			
			

			
命令名
			
		

			
Param
			
			

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


			
1

			
2

			
3

			
4

			
5

			
6

			
7

			
8

			
9

			
10

			
11

			
12

			
13

			
14

			
15

			
16

			
17

			
18

			
19

			
20

			
21
			
			

			
            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
			
		

主要用到函数说明：MxDrawXCustomFunction::Mx_SendStringToExecuteFun

把一个命令当着一个函数调用，不执行，详细说明如下：

参数
			
说明
		

			
CString sCmaName
			
			

			
命令名
			
		

			
Param
			
			

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


			
1

			
2

			
3

			
4

			
5

			
6

			
7

			
8

			
9

			
10

			
11

			
12

			
13

			
14

			
15

			
16

			
17

			
18

			
19

			
20

			
21
			
			

			
            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
			
		

利用VB进行AutoCAD二次开发，首先应该将VB于CAD进行链接：在编写VB代码之前，在VB编程环境中引用CAD对象库，在编写VB程序代码时，创建CAD对象启动运行CAD程序。
VB与CAD进行链接后，就可以利用AutoCAD对象及其下级对象的属性和方法，完成用VB语言在AutoCAD环境中的图形绘制和编辑操作，引用CAD对象库：在VB环境中选择“工程-引用”命令打开引用对话框，选中AutoCAD2004对象库，电脑上安装了什么版本的CAD这里就会出现对应的对象库。创建CAD对象的典型代码如下所示。  Dim acadapp As AcadApplication
Private Sub Form_Load()
On Error Resume Next
Set acadapp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadapp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox ("CAD启动错误")
Exit Sub
End If
End If
acadapp.Visible = True
End Sub
上面代码中的set语句将AutoCAD对象引用赋给变量acadapp，用来创建CAD对象的实例，如果AutoCAD已经启动，则getobject函数返回对该对象的引用，如果AutoCAD启动，则利用createobject函数启动新的CAD对象。如果AutoCAD未能创建，则消息框提示信息“CAD启动错误”。