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", ""