纵横八方 发表于 2022-12-10 09:40:08

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

本帖最后由 纵横八方 于 2023-1-2 10:30 编辑

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

注册 发表于 2023-1-12 07:58:14

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

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

cghdy 发表于 2022-12-10 16:13:56

注册 发表于 2023-1-4 14:14:44

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 发表于 2022-12-10 09:51:56

感谢分享，点赞

zhangcan0515 发表于 2022-12-10 10:06:21

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

zj20190405 发表于 2022-12-10 10:20:58

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

世井 发表于 2022-12-10 12:09:56


感谢分享，点赞

ptime 发表于 2022-12-10 12:31:51

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

qmotuo 发表于 2022-12-10 13:33:50

楼主威武感谢分享

664571221 发表于 2022-12-10 13:51:27

牛逼牛逼......

hkhbs 发表于 2022-12-10 15:50:09

页: [1] 2 3 4 5 6 7 8
查看完整版本: 迈大面板-添加色彩-支持热键-按钮记忆