CAD系统变量优化，小优化一波

taoshengyijiu

weimeng 发表于 2025-6-4 16:46
主要是有一些插件，和个人lsp，基于autoCAD写的，不想折腾了，反正CAD2026都出来了，搭配天正也够用了 ...

新版本（从24还是25开始）的中望直接支持加载autocad的FAS/VLX等插件，

颜宇轩

没有作用呢，有缺陷

weimeng

颜宇轩 发表于 2025-6-5 09:53
没有作用呢，有缺陷

你装的是原版，还是精简的CAD，什么版本的？我电脑2021、2026都能使用撒

weimeng

taoshengyijiu 发表于 2025-6-5 08:57
新版本（从24还是25开始）的中望直接支持加载autocad的FAS/VLX等插件，

公司买有正版的浩辰，开图确实是快了很多，但是功能交互真的太不顺手了，都是工具，保证效率就行

颜宇轩

weimeng 发表于 2025-6-6 08:42
你装的是原版，还是精简的CAD，什么版本的？我电脑2021、2026都能使用撒

原版2026,浪费币

2032099763

不怎么样，很一般，辛苦了

weimeng

颜宇轩 发表于 2025-6-6 09:22
原版2026,浪费币

家里、公司电脑都能正常跑，不行，你可以参照知乎文章修改，只能这样了

weimeng

新来的 发表于 2025-6-4 20:19
请问  所有的CAD道可以吗

多线程的那个代码，对2020以下版本的CAD不支持，其他都是通用的

wxyj

楼主请问下cad2020能用吗

weimeng

wxyj 发表于 2025-6-21 11:42
楼主请问下cad2020能用吗

可以的，插件就是想挣点印币，现在已经够了，需要下载的东西也已经下载了，我指定把源码发出来，你直接用源码就行了，不用下载附件

源码：
(defun c:youhua (/ *error* sysvar-pairs result)
  ;; 错误处理函数
  (defun *error* (msg)
    (princ (strcat "\n 错误: " msg))
    (princ "\n 部分设置可能未完全生效！")
    (princ)
  )
  
  ;; 核心系统变量设置
  (setq sysvar-pairs
    '(
      ("WHIPTHREAD" 3)        ; 启用多线程加速
      ("COORDS" 0)            ; 静态坐标显示
      ("HPQUICKPREVIEW" 0)    ; 关闭填充预览
      ("RESELECTIONEFFECT" 0); 禁用预选高亮
      ("VTENABLE" 0)          ; 禁用视图过渡动画
      ("THUMBSAVE" 0)         ; 不保存缩略图
      ("UPDATETHUMBNAIL" 0)   ; 禁用所有缩略图生成
      ("THUMBSIZE" 0)         ; 缩略图分辨率最小化
     ; ("ISAVEBAK" 0)          ; 关闭备份文件生成
      ("ROXYSHOW" 0)         ; 隐藏代理对象
      ("LAYOUTREGENCTL" 0)    ; 切换布局强制重生成
     )
  )
  
  ;; 批量设置系统变量（带错误处理）
  (mapcar
    '(lambda (x)
       (if (getvar (car x))  ; 检查变量是否存在
         (setvar (car x) (cadr x))
       )
     )
    sysvar-pairs
  )
  
  ;; 确保设置生效
  (if (vl-catch-all-error-p
        (setq result (vl-catch-all-apply 'command-s '("_.REGEN"))))
      (*error* (vl-catch-all-error-message result))
      (princ "\n 系统优化已完成！")
  )
  
  (princ)
)