状态栏开关控制优化
本帖最后由 nyistjz 于 2022-8-29 17:07 编辑如下这段代码是通过对注册表的修改,对CAD状态栏的按钮显隐进行控制,以达到设置STATUSBAR上按钮多少的目的。
这样有个缺陷,就是需要在CAD重启之后方能发挥作用,有没有办法像其它命令一样,即时生效?
看有没有朋友能修改一下,感谢 。
(setq reg-key
(strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\" (getvar "cprofile") "\\StatusBar\\Application")
)
(setq ls (list
(list "CursorCoordinatesPane" 0);坐标
(list "Paper/ModelPane" 1);模型空间
(list "GridPane" 1);格栅
(list "SnapPane" 0);捕捉模式
(list "InferRelationshipPane" 0);推断约束
(list "DynInputPane" 1);动态输入
(list "OrthoPane" 1);正交模式
(list "PolarPane" 1);极轴追踪
(list "IsoDraftPane" 0);等轴测草图
(list "OTrackPane" 1);对象捕捉追踪
(list "OSnapPane" 1);二维对象捕捉
(list "LineWeight" 0);线宽
(list "TransparencyPane" 0);透明度
(list "SelectionCycling" 0);选择循环
(list "3DOSnapPane" 0);三维动态捕捉
(list "DynamicUCSPane" 0);动态UCS
(list "SelectionFilterPane" 0);选择过滤
(list "GizmoPane" 0);小控件
(list "AnnotationVisibility" 0);注释可见性
(list "AutoScale" 0);自动缩放
(list "AnnotationScales" 0);注释比例
(list "WorkspaceSwitchingIconPane" 0);切换工作空间
(list "AnnoMonitorState" 0);注释监视器
(list "UnitsPane" 0);单位
(list "QuickProperties" 0);快捷特性
(list "LockUIPane" 0);锁定用户界面
(list "IsolateObjectPane" 0);隔离对象
(list "HardwareAccelerationPane" 0);图形性能
(list "CleanScreenPane" 0);全屏显示
))
(foreach l ls (vl-catch-all-apply 'vl-registry-write (cons reg-key l)))
感谢大佬分享,也想知道后续优化哦 baitang36 发表于 2022-8-29 09:53
(setvar "ORTHOMODE" 1)和你的改"OrthoPane" 应该是一样的
你这个是在控制正交的开关,我那个是在控制正交按钮的显隐,不是一回事。 本帖最后由 baitang36 于 2022-8-29 12:14 编辑
nyistjz 发表于 2022-8-29 11:21
你这个是在控制正交的开关,我那个是在控制正交按钮的显隐,不是一回事。
明白了,你是想设置STATUSBAR 上的按钮多少
连这个都能控制,长见识了。 学习了,还有这样的骚操作,厉害 万能的网友骚操还是很多的。厉害了 有没有牛逼的朋友,知道让这个设置怎么即时生效,可以不吝赐教的 牛B的网友,帮顶一下! 留个爪印!!!!!!! nyistjz 发表于 2022-8-26 22:49
有没有牛逼的朋友,知道让这个设置怎么即时生效,可以不吝赐教的
有个命令的。你搜搜 AndyWang 发表于 2022-8-27 14:30
有个命令的。你搜搜
都搜了好多年了,找不到,您有见过是哪个命令吗?
状态栏命令显隐,不是设置本身。 用Setvar系统变量,你说的这些如正交控制,基本上都有对应的系统变量,名字与注册表几乎一样。