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

主要用到函数说明：

 

MxDrawXCustomFunction::Mx_SetCursor

 

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

 

参数 说明

CString sCursorFileName

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

 

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

 

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