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

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

网友答:

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

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

网友答: 厉害了，这都可以

网友答:

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

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

网友答: 学习一下，有创意

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

上一篇：求助：CAD二维点失效问题

下一篇：没有了