lihao2014 发表于 2019-6-12 13:52:39

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]
查看完整版本: CAD设置当前显示的光标(com接口VB语言)