如何让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
// Toggle Orthomode
^O
// Next Viewport
^V
ID_SelAll
ID_Copyclip
ID_New
ID_Open
....
         ["F5"]^P'MidSpc;^P

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

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

Andyhon 发表于 2011-12-26 11:03 http://bbs.mjtd.com/static/image/common/back.gif
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 static/image/common/back.gif
请附上您的 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 static/image/common/back.gif
非得要用F?做快捷键?在acad.mnl里设定也可以呀

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

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

pzweng 发表于 2011-12-25 19:07 static/image/common/back.gif
按这些键快得多,老兄可有办法吗

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

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

比

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

Andyhon 发表于 2011-12-26 11:03 http://bbs.mjtd.com/static/image/common/back.gif
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)
)
或一个工具箱（比如贱人工具箱）

页: [1] 2 3 4

明经CAD社区's Archiver

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

比