迈大面板-添加色彩-支持热键-按钮记忆

纵横八方

;;;http://bbs.mjtd.com/forum.php?mo ... hlight=%B1%D8%C7%BF
;;;http://bbs.mjtd.com/forum.php?mo ... hlight=%C3%E6%B0%E5
;;;由于之前按钮与面板命令冲突 全局变量多了 搞蒙了，这次有修改过来 并完美 修 复 了 按钮 记忆
(defun c:K () (IF (NULL BB_NNN) (SETQ BB_NN (SETQ BB_NNN -29999)))(MINI_main BB_NNN) (princ));;记忆按钮
(defun c:K1 () (SETQ BB_NN (SETQ BB_NNN -29999))(MINI_main BB_NNN) (princ));;记忆分类
(defun c:K2 () (SETQ BB_NN (SETQ BB_NNN -30000))(MINI_main BB_NNN) (princ));;记忆分类
(defun c:K3 () (SETQ BB_NN (SETQ BB_NNN -30001))(MINI_main BB_NNN) (princ));;记忆分类
(defun c:K4 () (SETQ BB_NN (SETQ BB_NNN -30002))(MINI_main BB_NNN) (princ));;记忆分类
;;;.................命令大家自定义

cghdy

注册

KO你 发表于 2022-12-12 03:35
工具那一列能不能不要显示颜色，太艳有点刺眼，能不能做成只有记忆到那个工具才显示红色，让人一眼看到就知 ...

;_ 以下为空格键执行上一次命令而非再次打开面板
(eval(read (strcat "(defun c:qqq()(Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'SendCommand (strcat \"" tt "\" \" \"))))")))
        (Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'SendCommand (strcat tt " "))
           ;(Vlax-Invoke-Method (Vlax-Get-Or-Create-Object "WScript.Shell" ) 'Sendkeys (strcat tt "{Enter}"))     
     )
  )
)

KO你

工具那一列能不能不要显示颜色，太艳有点刺眼，能不能做成只有记忆到那个工具才显示红色，让人一眼看到就知道是什么工具的
例如我用到工具3 - 类别2 - 按钮b1   左边工具3显示红色   按钮b1记忆到的位置显示浅蓝色，其他的都不显示颜色可能会更直观


或者记忆功能不用显示回面板再确定多一步太麻烦了，
如果需要重复上次的命令，像CAD默认一样只需要确定一次，忽略面板就直接进入上次的命令不是更好吗
楼主这面板已经很不错了，但这是我建议，不喜忽喷。

lxl217114

感谢分享，点赞

zhangcan0515

谢谢楼主分享，学习一下。

zj20190405

这个有点厉害，感谢楼主分享

世井

感谢分享，点赞

ptime

谢谢楼主分享，学习一下。

qmotuo

楼主威武  感谢分享

664571221

牛逼牛逼......

hkhbs