十字光标中加入logo是怎么加的？

dd131028

看到某思有个这个应用，感觉满新奇的，有什么别的办法把自家公司的logo加进去？

qifeifei

2. 制作光标文件
   
3. 
   
4. 用免费的 RealWorld Cursor Editor
   
5. 做一个带 Logo 的 .cur 文件（建议做成 32x32 像素，带透明背景）。
   
6. 
   
7. 写一段简单 AutoLISP（放在你的 acad.lsp 或自定义启动 LSP 里）：
   
8. 
   
9. (vl-load-com)
   
10. (defun c:LOGOCURSOR ( / sh)
    
11.   (setq sh (vlax-create-object "WScript.Shell"))
    
12.   ;; 缩小 AutoCAD 十字光标
    
13.   (setvar "CURSORSIZE" 1)
    
14.   ;; 调用 Windows API 改鼠标样式
    
15.   (vlax-invoke sh 'Run
    
16.     (strcat "rundll32.exe user32.dll,SetSystemCursor "
    
17.             "C:\\MyCompany\\logo.cur"  ;; 你的光标路径
    
18.             ",32512"))
    
19.   (vlax-release-object sh)
    
20.   (princ "\n[LOGOCURSOR] 公司 Logo 光标已启用。")
    
21. )
    
22. 
    
23. 
    
24. 然后在 CAD 里输入 LOGOCURSOR 命令，就会切换成 Logo 光标。
    
25. 
    
26. 如果想自动恢复默认光标，可以写一个恢复命令：
    
27. 
    
28. (defun c:RESETCURSOR ( / sh)
    
29.   (setq sh (vlax-create-object "WScript.Shell"))
    
30.   (vlax-invoke sh 'Run "rundll32.exe user32.dll,SystemParametersInfo 0x57 0 0 0")
    
31.   (setvar "CURSORSIZE" 100)
    
32.   (vlax-release-object sh)
    
33.   (princ "\n[RESETCURSOR] 已恢复默认光标。")
    
34. )
    
35. 
    
36. 
    
37. 这样就能“假装”换成带 Logo 的光标。

制作光标文件<br /> <br /> 用免费的 RealWorld Cursor Editor<br /> 做一个带 Logo 的 .cur 文件（建议做成 32x32 像素，带透明背景）。<br /> <br /> 写一段简单 AutoLISP（放在你的 acad.lsp 或自定义启动 LSP 里）：<br /> <br /> (vl-load-com)<br /> (defun c:LOGOCURSOR ( / sh)<br />   (setq sh (vlax-create-object "WScript.Shell"))<br />   ;; 缩小 AutoCAD 十字光标<br />   (setvar "CURSORSIZE" 1)<br />   ;; 调用 Windows API 改鼠标样式<br />   (vlax-invoke sh 'Run<br />     (strcat "rundll32.exe user32.dll,SetSystemCursor "<br />             "C:\\MyCompany\\logo.cur"  ;; 你的光标路径<br />             ",32512"))<br />   (vlax-release-object sh)<br />   (princ "\n[LOGOCURSOR] 公司 Logo 光标已启用。")<br /> )<br /> <br /> <br /> 然后在 CAD 里输入 LOGOCURSOR 命令，就会切换成 Logo 光标。<br /> <br /> 如果想自动恢复默认光标，可以写一个恢复命令：<br /> <br /> (defun c:RESETCURSOR ( / sh)<br />   (setq sh (vlax-create-object "WScript.Shell"))<br />   (vlax-invoke sh 'Run "rundll32.exe user32.dll,SystemParametersInfo 0x57 0 0 0")<br />   (setvar "CURSORSIZE" 100)<br />   (vlax-release-object sh)<br />   (princ "\n[RESETCURSOR] 已恢复默认光标。")<br /> )<br /> <br /> <br /> 这样就能“假装”换成带 Logo 的光标。

fzlong

厉害了，这都可以

专用车研发

qifeifei 发表于 2025-9-13 16:40

用的2026版，只是十字光标长度改变了，图标没有内嵌进去，不知道低版本的行不行

paulpipi

学习一下，有创意

Scarlet2001

虽然感觉十字光标里塞个logo会影响使用，但是蛮有创意的