分享一个优化CAD的插件

linxiansen1 · 发表于 2025-7-20 15:31:04

感谢大佬的无私分享

fupingtang · 发表于 2025-7-21 22:21:48

forestgxc 发表于 2025-7-18 12:17
随便写写，只用于初始化用的，个人的喜好太多了
想要的话留个邮箱

大佬，能否给我也发一下，谢谢。258503523@qq.com

t4n1ac0b · 发表于 2025-7-23 08:39:03

forestgxc 发表于 2025-7-20 13:12
发个邮箱

xuke0721@qq.com，求一份打包好加载就能用的

forestgxc · 发表于 2025-7-23 11:14:15

t4n1ac0b 发表于 2025-7-23 08:39
，求一份打包好加载就能用的

发邮箱了，怎么会有这么多人对这玩意感兴趣
个人的定制喜好太多了，需要自己整理

文房四宝1981 · 发表于 2025-7-24 16:11:54

342530908@qq.com
请发送一份，谢谢各位朋友

gusam · 发表于 2025-7-25 13:43:20

good，省去安装后我再慢慢整

沥鹿与森林 · 发表于 2025-8-1 11:18:48

forestgxc 发表于 2025-7-18 12:17
随便写写，只用于初始化用的，个人的喜好太多了
想要的话留个邮箱

谢谢大佬，这个收到啦

goodesign · 发表于 2025-8-6 14:55:40

forestgxc 发表于 2025-7-16 15:21
cad初始操作，好像异曲同工

谢谢大佬，能否发一份到我邮箱，63758044@qq.com

Mankeong9527 · 发表于 2025-8-7 17:46:46

感谢大佬的无私分享

ㄘ丶转裑ㄧ灬 · 发表于 6 天前

本帖最后由ㄘ丶转裑ㄧ灬于 2025-8-12 18:14 编辑

工具箱源码地址：http://bbs.mjtd.com/thread-175204-1-1.html

(setq os_HC (getvar "osnapoverride"));;;用于另类判断是否是其它CAD，如：浩辰
;;后面有★★★★★★★★★★★的是由于大家的作图习惯不同，可自行修改的部分(可在CAD中输入引号中的命令，查看自己的变量并改写本文件)
(defun c:qht_A ()
(setvar 'cmdecho 0) ; 关闭命令回显
(setvar "osmode" 2231);;;;对象捕捉方式1(如果要“最近点”，可把数字改为2695或自己的变量值)★★★★★★★★★★★
; 建议：平常不要用最近点，要用时输nea、或CTRL+右键、或用组合按键
; 建议CUI中设组合按键，如：最近点、两点的中点、垂足、起点
(if os_HC (setvar "3dosmode" 134))
(setvar "edgemode" 0);;;;修剪和延伸时，其边不假想延伸★★★★★★★★★★★★★★★
(setvar "shortcutmenu" 0);;;;自定义右键单击(都为重复或确认)★★★★★★★★★★★
;(setvar "lwdisplay" 0);;;;是否显示线宽：否★★★★★★★★★★★
(setvar 'DYNmode 2);;;;动态输入：关(指针输入)★★★★★★★★★★★
(setvar 'DYNprompt 0);;;不显示动态输入中的提示★★★★★★★★★★★
(setvar 'DYNdivis 2);;;仅显示一个动态输入框★★★★★★★★★★★
(setvar 'DYNdigrip 2);;;仅显示一个动态输入框★★★★★★★★★★★
(setvar "pickbox" 9);;;;拾取框大小：7★★★★★★★★★★★
(setvar "snapmode" 0);;;;捕捉间距:否★★★★★★★★★★★
(setvar "autosnap" 55);;;;自动捕捉及极轴设置★★★★★★★★★★★
(setvar "POLARMODE" 0);;;;极轴追踪：仅正交方向★★★★★★★★★★★
(setvar "dimassoc" 1);;;;新标注关联：否（1：不关联，2：关联，在布局标注时须关联）★★★★★★★★★★★
;(setvar "selectionpreview" 0);控制选择预览的显示★★★★★★★★★★★
(setvar "selectionpreview" 2);;;;选择集预览模式（激活状态时预览）
;(setvar "COMMANDPREVIEW" 0);控制是否显示特定命令的可能结果的预览★★★★★★★★★★★
(setvar "dblclkedit" 1);;;双击可编辑
(if os_HC (setvar "osnapoverride" 0));;;;组合按键控制（用于组合按键用过后框选不了的情况）
(setvar "pickfirst" 1);;;;选择集模式(先选择后执行)
(if os_HC (setvar "pickdrag" 2)(setvar "pickdrag" 0));;;;窗口选择方式
(setvar "qaflags" 0);;;;选择执行方式
(setvar "DYNPIFORMAT" 0);;;动态输入格式：极轴格式
(setvar "DYNPICOORDS" 0);;;动态输入格式：相对坐标
(setvar "DYNPIVIS" 1);;;动态输入可见性：需要一个点时
(setvar "previewfilter" 31);;;;选择集预览模式
;(setvar "xclipframe" 0);;;;块剪裁边界不显示（若原图参数不为0，执行时会重生成）
;;;(setvar "frameselection" 0);;;;块剪裁边界不会被选中(即无夹点显示)
(setvar "PROJMODE" 2);;;;设置当前投影模式以进行修剪或延伸(投影：视图)
(if os_HC (setvar "vtenable" 0));;;;动态视图动画关闭
(setvar "plinewid" 0);;;;多段线宽度
(setvar "blipmode" 0);;;;控制点回显
(setvar "AUPREC" 4);;;;角度精度:小数点后4位
(setvar "LUNITS" 2);;;; 线性长度类型:小数
(setvar "LUPREC" 4);;;;线性长度精度:小数点后4位
(setvar "insunits" 0);;;;插入时缩放单位：无单位
(setvar "CMDDIA" 1);;;;显示外部命令及plot对话框:是
(setvar "aunits" 0);;;;角度单位：十进制度数
(setvar "filedia" 1);;;;显示文件定位对话框
(setvar "mirrtext" 0);;;;镜像文字：否
(setvar "SORTENTS" 127);;;;图元排序顺序
(setvar "CHAMFERA" 0);;;;倒角的长度A
(setvar "CHAMFERB" 0);;;; 倒角的长度B
(setvar "Elevation" 0);;;; 当前标高设为0
(setvar "osnapz" 0);;;;使用当前标高替换z值(0:不替换，1:替换);;因替换后在三维操作时不好捕捉，故取消此项，改为0。（后记：平常还是替换吧，画三维时再不替换）
(setvar "coords" 2);;;;图形坐标显示（极值）
(setvar "GRIDMODE" 0);;;; 显示点栅格:否
(setvar "Fillmode" 1);;;; 指定是否填充图案填充、二维实体以及宽多段线:填充对象
(setvar "LISPINIT" 1);;;;AutoLISP 函数和变量只在当前绘图任务中有效
;(setvar "PSLTSCALE" 0);;;;1:视口比例决定线型比例
(setvar "PLINEGEN" 0);;;;线型生成禁用（默认）
;;(setvar "DIMZIN" 8);;;; 控制是否对主单位值作消零处理, ;8:消除后续零;;;标注样式里自己调吧，不然出现样式替代也是挺烦的，故取消此项
(setvar "cursorsize" 100);;;;十字光标大小：100
(setvar "zoomfactor" 80);;;;鼠标滑轮缩放比例（默认为60）
;;;(setvar "layernotify" 0);;;;如果找到未协调的新图层，不显示警告;;打印时好像出现过问题，故取消此项
;;(setvar "re-init" 16);;;;重新加载pgp;;;现在不用修改PGP了，故取消此项
(setvar "tooltips" 1);;;;显示工具提示：否
(setvar "HPASSOC" 1);;;填充图案是否关联：是
(setvar "proxyshow" 1);;;显示代理图形**
(setvar "proxynotice" 0);;;代理图形对话框（不显示）**
;(setenv "DefaultFormatForSave" "24");;;设置CAD默认保存文件格式(24-2004,36-2007,48-2010,60-2013)（后记：按自己习惯手动设置吧，故取消此项）
(setvar "ISAVEBAK" 0);;;控制备份文件 (BAK) 的创建。1-创建, 0-不创建
;;; (vla-put-displayscrollbars (vla-get-display(vla-get-preferences (vlax-get-acad-object))) 0);;;不显示窗口滚动条;;手改一次即可，故取消此项
;;(setvar "Draworderctl" 0);;;控制重叠对象的显示次序(0:关闭)
(setvar 'cecolor "BYLAYER");;设置颜色随层
(setvar 'celtype "ByLayer");;设置线型随层
(setvar 'REGENMODE 1)
(setvar 'celweight -1) ;;将线宽设定为“BYLAYER”
(setvar "PICKADD" 2) ;;控制后续选择项是替换当前选择集还是添加到其中
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(cond ( (>=(atof (getvar "ACADVER")) 18.2 );;判断CAD版本是否大于2012
(setvar "SELECTIONCYCLING" -2);;;选择循环:关闭★★★★★★★★★★★
(setvar "PICKAUTO" 2);;窗口选择方式（2：若在对象上按住左键，将启用窗口选择模式。默认为1：不可按住）★★★★★★★★★★★
(if os_HC(command "taskbar" 0));;;任务栏仅显示一个窗口★★★★★★★★★★★
(if os_HC(setvar "menubar" 0));;;;关闭菜单栏(CAD2010及更高版本，关闭的理由阅读下两行)★★★★★★★★★★★
;;关闭菜单栏后，顶部左侧保留<新建、打开、打印>(顺序不要变)，这样ALT+1、2、3就可以便捷操作了，在ALT+2打开选择文件窗口后，ALT+2是上一级，ALT+1是后退
;;要是要用菜单栏里的功能，输入E3切换显示菜单栏就行了，毕竟用菜单栏里的时候少，所以还是关闭吧，便于操作
(setvar "gripmultifunctional" 1);;;;动态夹点菜单关闭(CAD2010及更高版本);;这个必须关闭，不然选中图元时烦死你
(if os_HC(setvar "qpmode" -1));;;;显示快捷特性面板;;-1不显示，2有限制的显示
(if os_HC(setvar "rollovertips" 0));;;;显示鼠标悬停提示：否(CAD2009及更高版本)
(setvar "hpmaxlines" 100000);;;;图案填充线的最大数目(CAD2006无效)
(setvar "ucsdetect" 0);;;;动态UCS关闭(CAD2010及更高版本)
(setvar "hpquickpreview" 0);;;;控制在指定填充区域时是否显示填充图案的预览,设为0会加快填充速度(CAD2010及更高版本)
(if os_HC(setvar "cullingobj" 1));;;;控制在三维操作时是否能显示在当前视图中背后的对象（0-显示，1-不显示）(CAD2011及更高版本)
(if os_HC(setvar "CULLINGOBJSELECTION" 0));;;;控制是否可以亮显或选择从视图中隐藏的三维对象:可以
(if os_HC(setvar "statusbar" 0));;;;状态栏控制:隐藏(CAD2010及更高版本)★★★★★★★★★★★
(if os_HC(setvar "navbardisplay" 0));;;关闭三维小控制栏
(setvar "NAVVCUBEDISPLAY" 1);;;设置右上角viewcube为不显示
(if os_HC(setvar "WHIPTHREAD" 1));控制是否使用额外的处理器来提高操作速度
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(cond ( (>=(atof (getvar "ACADVER")) 19.1 );;判断CAD版本是否大于2014
(if os_HC (setvar "INPUTSEARCHOPTIONFLAGS" 20)
(setvar "INPUTSEARCHOPTIONFLAGS" 0));;;关闭命令行的输入搜索选项;;31为打开★★★★★★★★★★★
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(cond ( (>=(atof (getvar "ACADVER")) 20.1 );;判断CAD版本是否大于2016
(if os_HC (setvar "startmode" 0));;;;取消开始界面
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(cond ( (>=(atof (getvar "ACADVER")) 22.0 );;判断CAD版本是否大于2018
(if os_HC (setvar "SELECTIONOFFSCREEN" 1));;;;屏幕外的对象可以参与选择
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(cond ( (>=(atof (getvar "ACADVER")) 23 );;判断CAD版本是否大于2020
(if os_HC (setvar "BLOCKMRULIST" 5));;;;控制在“块”选项板的“最近使用”选项卡中显示的最近使用块的数量
(if os_HC (setvar "FILETABTHUMBHOVER" 0));;;;将光标悬停在文件选项卡缩略图上时，是否在图形窗口中加载相应的模型或布局。
(if os_HC (setvar "LWDISPLAY" 0));;;;不显示线宽
)
)
(if os_HC
(progn
(setq prefDisplay (vla-get-Display (vla-get-Preferences (vlax-get-acad-object))))
(setq targetColor 0) ; 目标背景色：黑色
; 仅当模型背景色不是目标色时才修改
(if (/= (vla-get-GraphicsWinModelBackgrndColor prefDisplay) targetColor)
(vla-put-GraphicsWinModelBackgrndColor prefDisplay (vlax-make-variant targetColor vlax-vbLong))
)
; 仅当布局背景色不是目标色时才修改
(if (/= (vla-get-GraphicsWinLayoutBackgrndColor prefDisplay) targetColor)
(vla-put-GraphicsWinLayoutBackgrndColor prefDisplay (vlax-make-variant targetColor vlax-vbLong))
)
(vl-catch-all-apply
'(lambda ( / x )
(setq x (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'Preferences) 'Display))
; 仅当滚动条显示时才关闭
(if (= (vlax-get-property x 'DisplayScrollBars) :vlax-true)
(vlax-put-property x 'DisplayScrollBars :vlax-false)
)
; 仅当布局显示边距时才关闭
(if (= (vlax-get-property x 'LayoutDisplayMargins) :vlax-true)
(vlax-put-property x 'LayoutDisplayMargins :vlax-false)
)
; 仅当布局显示图纸背景时才关闭
(if (= (vlax-get-property x 'LayoutDisplayPaper) :vlax-true)
(vlax-put-property x 'LayoutDisplayPaper :vlax-false)
)
; 仅当布局显示图纸阴影时才关闭
(if (= (vlax-get-property x 'LayoutDisplayPaperShadow) :vlax-true)
(vlax-put-property x 'LayoutDisplayPaperShadow :vlax-false)
)
)
)
)
)
(princ)
)

(setq os_HC (getvar "osnapoverride"));;;用于另类判断是否是其它CAD，如：浩辰 
 
;;后面有★★★★★★★★★★★的是由于大家的作图习惯不同，可自行修改的部分(可在CAD中输入引号中的命令，查看自己的变量并改写本文件) 
(defun c:qht_A () 
  (setvar 'cmdecho 0) ; 关闭命令回显 
  (setvar "osmode" 2231);;;;对象捕捉方式1(如果要“最近点”，可把数字改为2695或自己的变量值)★★★★★★★★★★★ 
  ;                   建议：平常不要用最近点，要用时输nea、或CTRL+右键、或用组合按键 
  ;                   建议CUI中设组合按键，如：最近点、两点的中点、垂足、起点 
  (if os_HC (setvar "3dosmode" 134)) 
  (setvar "edgemode" 0);;;;修剪和延伸时，其边不假想延伸★★★★★★★★★★★★★★★ 
  (setvar "shortcutmenu" 0);;;;自定义右键单击(都为重复或确认)★★★★★★★★★★★ 
  ;(setvar "lwdisplay" 0);;;;是否显示线宽：否★★★★★★★★★★★ 
  (setvar 'DYNmode 2);;;;动态输入：关(指针输入)★★★★★★★★★★★ 
  (setvar 'DYNprompt 0);;;不显示动态输入中的提示★★★★★★★★★★★ 
  (setvar 'DYNdivis 2);;;仅显示一个动态输入框★★★★★★★★★★★ 
  (setvar 'DYNdigrip 2);;;仅显示一个动态输入框★★★★★★★★★★★   
  (setvar "pickbox" 9);;;;拾取框大小：7★★★★★★★★★★★ 
  (setvar "snapmode" 0);;;;捕捉间距:否★★★★★★★★★★★ 
  (setvar "autosnap" 55);;;;自动捕捉及极轴设置★★★★★★★★★★★ 
  (setvar "POLARMODE" 0);;;;极轴追踪：仅正交方向★★★★★★★★★★★ 
  (setvar "dimassoc" 1);;;;新标注关联：否（1：不关联，2：关联，在布局标注时须关联）★★★★★★★★★★★ 
  ;(setvar "selectionpreview" 0);控制选择预览的显示★★★★★★★★★★★ 
  (setvar "selectionpreview" 2);;;;选择集预览模式（激活状态时预览） 
  ;(setvar "COMMANDPREVIEW" 0);控制是否显示特定命令的可能结果的预览★★★★★★★★★★★ 
  (setvar "dblclkedit" 1);;;双击可编辑 
  (if os_HC (setvar "osnapoverride" 0));;;;组合按键控制（用于组合按键用过后框选不了的情况） 
  (setvar "pickfirst" 1);;;;选择集模式(先选择后执行) 
  (if os_HC (setvar "pickdrag" 2)(setvar "pickdrag" 0));;;;窗口选择方式 
  (setvar "qaflags" 0);;;;选择执行方式 
  (setvar "DYNPIFORMAT" 0);;;动态输入格式：极轴格式 
  (setvar "DYNPICOORDS" 0);;;动态输入格式：相对坐标 
  (setvar "DYNPIVIS" 1);;;动态输入可见性：需要一个点时 
  (setvar "previewfilter" 31);;;;选择集预览模式 
  ;(setvar "xclipframe" 0);;;;块剪裁边界不显示（若原图参数不为0，执行时会重生成） 
  ;;;(setvar "frameselection" 0);;;;块剪裁边界不会被选中(即无夹点显示) 
  (setvar "PROJMODE" 2);;;;设置当前投影模式以进行修剪或延伸(投影：视图) 
  (if os_HC (setvar "vtenable" 0));;;;动态视图动画关闭 
  (setvar "plinewid" 0);;;;多段线宽度 
  (setvar "blipmode" 0);;;;控制点回显 
  (setvar "AUPREC"   4);;;;角度精度:小数点后4位 
  (setvar "LUNITS"   2);;;; 线性长度类型:小数 
  (setvar "LUPREC"   4);;;;线性长度精度:小数点后4位 
  (setvar "insunits" 0);;;;插入时缩放单位：无单位 
  (setvar "CMDDIA"   1);;;;显示外部命令及plot对话框:是 
  (setvar "aunits" 0);;;;角度单位：十进制度数 
  (setvar "filedia" 1);;;;显示文件定位对话框 
  (setvar "mirrtext" 0);;;;镜像文字：否 
  (setvar "SORTENTS" 127);;;;图元排序顺序 
  (setvar "CHAMFERA" 0);;;;倒角的长度A 
  (setvar "CHAMFERB" 0);;;; 倒角的长度B 
  (setvar "Elevation" 0);;;; 当前标高设为0 
  (setvar "osnapz" 0);;;;使用当前标高替换z值(0:不替换，1:替换);;因替换后在三维操作时不好捕捉，故取消此项，改为0。（后记：平常还是替换吧，画三维时再不替换） 
  (setvar "coords" 2);;;;图形坐标显示（极值） 
  (setvar "GRIDMODE" 0);;;; 显示点栅格:否 
  (setvar "Fillmode" 1);;;; 指定是否填充图案填充、二维实体以及宽多段线:填充对象 
  (setvar "LISPINIT" 1);;;;AutoLISP 函数和变量只在当前绘图任务中有效 
  ;(setvar "PSLTSCALE" 0);;;;1:视口比例决定线型比例 
  (setvar "PLINEGEN" 0);;;;线型生成 禁用（默认） 
  ;;(setvar "DIMZIN"   8);;;; 控制是否对主单位值作消零处理, ;8:消除后续零;;;标注样式里自己调吧，不然出现样式替代也是挺烦的，故取消此项 
  (setvar "cursorsize" 100);;;;十字光标大小：100 
  (setvar "zoomfactor" 80);;;;鼠标滑轮缩放比例（默认为60） 
  ;;;(setvar "layernotify" 0);;;;如果找到未协调的新图层，不显示警告;;打印时好像出现过问题，故取消此项 
  ;;(setvar "re-init" 16);;;;重新加载pgp;;;现在不用修改PGP了，故取消此项 
  (setvar "tooltips" 1);;;;显示工具提示：否 
  (setvar "HPASSOC" 1);;;填充图案是否关联：是 
  (setvar "proxyshow" 1);;;显示代理图形** 
  (setvar "proxynotice" 0);;;代理图形对话框（不显示）** 
  ;(setenv "DefaultFormatForSave" "24");;;设置CAD默认保存文件格式(24-2004,36-2007,48-2010,60-2013)（后记：按自己习惯手动设置吧，故取消此项） 
  (setvar "ISAVEBAK" 0);;;控制备份文件 (BAK) 的创建。1-创建, 0-不创建 
  ;;; (vla-put-displayscrollbars (vla-get-display(vla-get-preferences (vlax-get-acad-object))) 0);;;不显示窗口滚动条;;手改一次即可，故取消此项 
  ;;(setvar "Draworderctl" 0);;;控制重叠对象的显示次序(0:关闭) 
  (setvar 'cecolor "BYLAYER");;设置颜色随层 
  (setvar 'celtype "ByLayer");;设置线型随层 
  (setvar 'REGENMODE 1) 
  (setvar 'celweight -1) ;;将线宽设定为“BYLAYER” 
  (setvar "PICKADD" 2) ;;控制后续选择项是替换当前选择集还是添加到其中 
   
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
    (cond ( (>=(atof (getvar "ACADVER")) 18.2 );;判断CAD版本是否大于2012   
          (setvar "SELECTIONCYCLING" -2);;;选择循环:关闭★★★★★★★★★★★   
          (setvar "PICKAUTO" 2);;窗口选择方式（2：若在对象上按住左键，将启用窗口选择模式。默认为1：不可按住）★★★★★★★★★★★ 
          (if os_HC(command "taskbar" 0));;;任务栏仅显示一个窗口★★★★★★★★★★★ 
          (if os_HC(setvar "menubar" 0));;;;关闭菜单栏(CAD2010及更高版本，关闭的理由阅读下两行)★★★★★★★★★★★ 
       
;;关闭菜单栏后，顶部左侧保留<新建、打开、打印>(顺序不要变)，这样ALT+1、2、3就可以便捷操作了，在ALT+2打开选择文件窗口后，ALT+2是上一级，ALT+1是后退 
;;要是要用菜单栏里的功能，输入E3切换显示菜单栏就行了，毕竟用菜单栏里的时候少，所以还是关闭吧，便于操作 
 
      (setvar "gripmultifunctional" 1);;;;动态夹点菜单关闭(CAD2010及更高版本);;这个必须关闭，不然选中图元时烦死你 
      (if os_HC(setvar "qpmode" -1));;;;显示快捷特性面板;;-1不显示，2有限制的显示 
      (if os_HC(setvar "rollovertips" 0));;;;显示鼠标悬停提示：否(CAD2009及更高版本) 
      (setvar "hpmaxlines" 100000);;;;图案填充线的最大数目(CAD2006无效) 
      (setvar "ucsdetect" 0);;;;动态UCS关闭(CAD2010及更高版本) 
      (setvar "hpquickpreview" 0);;;;控制在指定填充区域时是否显示填充图案的预览,设为0会加快填充速度(CAD2010及更高版本) 
      (if os_HC(setvar "cullingobj" 1));;;;控制在三维操作时是否能显示在当前视图中背后的对象（0-显示，1-不显示）(CAD2011及更高版本) 
      (if os_HC(setvar "CULLINGOBJSELECTION" 0));;;;控制是否可以亮显或选择从视图中隐藏的三维对象:可以 
      (if os_HC(setvar "statusbar" 0));;;;状态栏控制:隐藏(CAD2010及更高版本)★★★★★★★★★★★ 
      (if os_HC(setvar "navbardisplay" 0));;;关闭三维小控制栏 
      (setvar "NAVVCUBEDISPLAY" 1);;;设置右上角viewcube为不显示 
      (if os_HC(setvar "WHIPTHREAD" 1));控制是否使用额外的处理器来提高操作速度 
    ) 
  ) 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  (cond ( (>=(atof (getvar "ACADVER")) 19.1 );;判断CAD版本是否大于2014 
        (if os_HC (setvar "INPUTSEARCHOPTIONFLAGS" 20) 
        (setvar "INPUTSEARCHOPTIONFLAGS" 0));;;关闭命令行的输入搜索选项;;31为打开★★★★★★★★★★★ 
    ) 
  ) 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  (cond ( (>=(atof (getvar "ACADVER")) 20.1 );;判断CAD版本是否大于2016 
    (if os_HC (setvar "startmode" 0));;;;取消开始界面 
    ) 
  ) 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  (cond ( (>=(atof (getvar "ACADVER")) 22.0 );;判断CAD版本是否大于2018 
    (if os_HC (setvar "SELECTIONOFFSCREEN" 1));;;;屏幕外的对象可以参与选择 
    ) 
  ) 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
  (cond ( (>=(atof (getvar "ACADVER")) 23 );;判断CAD版本是否大于2020 
      (if os_HC (setvar "BLOCKMRULIST" 5));;;;控制在“块”选项板的“最近使用”选项卡中显示的最近使用块的数量 
      (if os_HC (setvar "FILETABTHUMBHOVER" 0));;;;将光标悬停在文件选项卡缩略图上时，是否在图形窗口中加载相应的模型或布局。 
      (if os_HC (setvar "LWDISPLAY" 0));;;;不显示线宽 
    ) 
  ) 
(if os_HC 
 (progn    
    (setq prefDisplay (vla-get-Display (vla-get-Preferences (vlax-get-acad-object)))) 
    (setq targetColor 0) ; 目标背景色：黑色 
    
    ; 仅当模型背景色不是目标色时才修改 
    (if (/= (vla-get-GraphicsWinModelBackgrndColor prefDisplay) targetColor) 
        (vla-put-GraphicsWinModelBackgrndColor prefDisplay (vlax-make-variant targetColor vlax-vbLong)) 
    ) 
    
    ; 仅当布局背景色不是目标色时才修改 
    (if (/= (vla-get-GraphicsWinLayoutBackgrndColor prefDisplay) targetColor) 
        (vla-put-GraphicsWinLayoutBackgrndColor prefDisplay (vlax-make-variant targetColor vlax-vbLong)) 
    ) 
    
    (vl-catch-all-apply 
       '(lambda ( / x ) 
               (setq x (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'Preferences) 'Display)) 
                
               ; 仅当滚动条显示时才关闭 
               (if (= (vlax-get-property x 'DisplayScrollBars) :vlax-true) 
                   (vlax-put-property x 'DisplayScrollBars :vlax-false) 
               ) 
                
               ; 仅当布局显示边距时才关闭 
               (if (= (vlax-get-property x 'LayoutDisplayMargins) :vlax-true) 
                   (vlax-put-property x 'LayoutDisplayMargins :vlax-false) 
               ) 
                
               ; 仅当布局显示图纸背景时才关闭 
               (if (= (vlax-get-property x 'LayoutDisplayPaper) :vlax-true) 
                   (vlax-put-property x 'LayoutDisplayPaper :vlax-false) 
               ) 
                
               ; 仅当布局显示图纸阴影时才关闭 
               (if (= (vlax-get-property x 'LayoutDisplayPaperShadow) :vlax-true) 
                   (vlax-put-property x 'LayoutDisplayPaperShadow :vlax-false) 
               ) 
        ) 
    ) 
) 
    
) 
  (princ) 
)

账号		自动登录	找回密码
密码			注册

分享一个优化CAD的插件

点评