CAD设置当前显示的光标（com接口VB语言）

lihao2014

主要用到函数说明：

MxDrawXCustomFunction::Mx_SetCursor

设置当前显示的光标，光标可以从cur文件加载，详细说明如下：

参数	说明
CString sCursorFileName	CUR光标文件，可以是个绝对路径，也可以是相对路径，相对于MxDrawX.ocx所在目录

例如:VB调用例子.选项择一个实体，修改光标样式 ：

1.    Set mxUtility = New MxDrawXLib.MxDrawUtility   
   
2.    // 保存光标，用于恢复   MxDrawX1.Call "Mx_SaveCursor", ""   
   
3.    // 设置光标
   
4.    MxDrawX1.Call "Mx_SetCursor", "harrow.cur"   
   
5.    // 选择实体
   
6.    Dim ent As MxDrawXLib.MxDrawEntity
   
7.    Set ent = mxUtility.GetEntity(getPt, Chr(13) + Chr(10) + "实体1")
   
8. 
   
9.    If (ent Is Nothing) Then
   
10.         MsgBox "没有选择实体.."        
    
11.         // 恢复光标
    
12.         MxDrawX1.Call "Mx_RestoreCursor", ""
    
13.         Exit Sub
    
14.    End If   
    
15.    // 恢复光标
    
16.    MxDrawX1.Call "Mx_RestoreCursor", ""

复制代码