状态栏开关控制优化

nyistjz · 发表于 2022-8-26 09:08:42

本帖最后由 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)))

magicheno · 发表于 2022-9-1 11:14:35

感谢大佬分享，也想知道后续优化哦

nyistjz · 发表于 2022-8-29 11:21:35

baitang36 发表于 2022-8-29 09:53
(setvar "ORTHOMODE" 1)和你的改"OrthoPane" 应该是一样的

你这个是在控制正交的开关，我那个是在控制正交按钮的显隐，不是一回事。

baitang36 · 发表于 2022-8-29 12:08:49

本帖最后由 baitang36 于 2022-8-29 12:14 编辑

nyistjz 发表于 2022-8-29 11:21
你这个是在控制正交的开关，我那个是在控制正交按钮的显隐，不是一回事。

明白了，你是想设置STATUSBAR 上的按钮多少

20060510412 · 发表于 2022-8-26 09:27:44

连这个都能控制，长见识了。

yanhongguang202 · 发表于 2022-8-26 10:26:01

学习了，还有这样的骚操作，厉害

哆啦A梦_oELxg · 发表于 2022-8-26 18:57:32

万能的网友骚操还是很多的。厉害了

nyistjz · 发表于 2022-8-26 22:49:45

有没有牛逼的朋友，知道让这个设置怎么即时生效，可以不吝赐教的

andyhua · 发表于 2022-8-27 08:54:02

牛B的网友，帮顶一下！

spp_wall · 发表于 2022-8-27 10:44:41

留个爪印！！！！！！！

AndyWang · 发表于 2022-8-27 14:30:36

nyistjz 发表于 2022-8-26 22:49
有没有牛逼的朋友，知道让这个设置怎么即时生效，可以不吝赐教的

有个命令的。你搜搜

nyistjz · 发表于 2022-8-27 17:53:10

AndyWang 发表于 2022-8-27 14:30
有个命令的。你搜搜

都搜了好多年了，找不到，您有见过是哪个命令吗？
状态栏命令显隐，不是设置本身。

sfzyr · 发表于 2022-8-28 10:06:34

用Setvar系统变量，你说的这些如正交控制，基本上都有对应的系统变量，名字与注册表几乎一样。

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

[源码] 状态栏开关控制优化

本帖子中包含更多资源