如何让CAD按一个键执行一个lsp

pzweng · 发表于 2011-12-26 10:51:00

比如现在F10 F11 F12这些键可以改成我直接执行一个lsp程序，有人会吗

Andyhon · 发表于 2011-12-26 11:03:03

Mnu 一例
....

***ACCELERATORS
// Bring up hyperlink dialog
ID_Hyperlink [CONTROL+"K"]
// Toggle Orthomode
[CONTROL+"L"]^O
// Next Viewport
[CONTROL+"R"]^V
ID_SelAll [CONTROL+"A"]
ID_Copyclip  [TOOLBAR+CONTROL+"C"]
ID_New    [CONTROL+"N"]
ID_Open    [TOOLBAR+CONTROL+"O"]
....
         ["F5"]^P'MidSpc;^P

pzweng · 发表于 2011-12-26 11:11:25

本帖最后由 pzweng 于 2011-12-26 11:12 编辑

Andyhon 发表于 2011-12-26 11:03
Mnu 一例
....

你这个有没有写全呀，比如我要的是F12这个键执行一个LSP里的执行命令。我在自定义里面改了一下没有用，不知道你们改过没有

Andyhon · 发表于 2011-12-26 11:44:05

请附上您的 ACCELERATORS 段
并例举
执行一个LSP里的执行命令 (???)

pzweng · 发表于 2011-12-26 12:07:31

Andyhon 发表于 2011-12-26 11:44
请附上您的 ACCELERATORS 段
并例举
执行一个LSP里的执行命令 (???)

怎么用，我不明白，能否详细点

Andyhon · 发表于 2011-12-26 12:31:12

请附上您的菜单末尾 ACCELERATORS 段

F12这个键执行一个LSP里的执行命令
执行什么样的命令?

1993063 · 发表于 2011-12-26 12:34:01

非得要用F?做快捷键?在acad.mnl里设定也可以呀

pzweng · 发表于 2011-12-26 13:07:03

1993063 发表于 2011-12-26 12:34
非得要用F?做快捷键?在acad.mnl里设定也可以呀

按这些键快得多,老兄可有办法吗

1993063 · 发表于 2011-12-26 13:11:41

pzweng 发表于 2011-12-25 19:07
按这些键快得多,老兄可有办法吗

我的方法是快速调用,不用的时候不加载,用的时候一键加载

pzweng · 发表于 2011-12-27 14:30:15

本帖最后由 pzweng 于 2011-12-27 14:35 编辑

Andyhon 发表于 2011-12-26 11:03
Mnu 一例
....

大师，你能详细点吗，比如执行一个lsp程序比如:
;批量转换匿名块为普通块
(defun c:reblk(/ blks ss n e nam namlst);
  (setq BLKs (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
  (if (setq ss (ssget '((0 . "INSERT")(2 . "`**"))))
   (progn
(repeat (setq n (sslength ss))
      (if (and (setq e (ssname ss (setq n (1- n))))
               (wcmatch (setq nam (vla-get-name (vlax-ename->vla-object e))) "`**")
               (not (member nam namlst)))
      (progn (setq namlst (cons nam namlst))
         (vla-put-name (vla-item blks nam) "U")
      )
      )
      )
   (vla-auditinfo (vla-get-activedocument (vlax-get-acad-object)) :vlax-true))
  )(princ)
)
或一个工具箱（比如贱人工具箱）

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

如何让CAD按一个键执行一个lsp

相关帖子

评分

比