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

发布时间：2020-12-17 07:18:09 所属栏目：百科来源：网络整理

导读：主要用到函数说明： ? MxDrawXCustomFunction::Mx_SetCursor ? 设置当前显示的光标，光标可以从cur文件加载，详细说明如下： ? 参数说明 CString sCursorFileName CUR光标文件，可以是个绝对路径，也可以是相对路径，相对于MxDrawX.ocx所在目录 ? 例如: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" 
       ,? 
       ""

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!