CAD设置当前显示的光标(com接口VB语言)
主要用到函数说明:MxDrawXCustomFunction::Mx_SetCursor
设置当前显示的光标,光标可以从cur文件加载,详细说明如下:
参数 说明
CString sCursorFileName CUR光标文件,可以是个绝对路径,也可以是相对路径,相对于MxDrawX.ocx所在目录
例如:VB调用例子.选项择一个实体,修改光标样式 :
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", ""
页:
[1]