0
点赞
收藏
分享

微信扫一扫

CAD设置当前显示的光标(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"​​​​, ​​​​""​

举报

相关推荐

0 条评论