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

纵横八方

;;;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));;记忆分类
;;;.................命令大家自定义

注册

KO你 发表于 2023-1-11 15:30
大佬，在28楼拿我的文件，老迈的面板程序，怎样才能按你的以空格键执行上一次命令面非再次打开面板
我添 ...

改好了---2010测试，可用

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}"))     
     )
  )
)

lxl217114

感谢分享，点赞

zhangcan0515

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

zj20190405

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

世井

感谢分享，点赞

ptime

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

qmotuo

楼主威武  感谢分享

664571221

牛逼牛逼......

hkhbs