社区 › AutoLISP/Visual LISP 编程技术 › 如何实现加载并同时启动某个程序。

arcers 发表于 2019-2-19 10:32:57

如何实现加载并同时启动某个程序。

本帖最后由 arcers 于 2019-2-19 10:35 编辑

假定预启动程序为"AA.vlx"，该程序快捷键为"AA"
1、想用自定义的快捷键，但源程序"AA.vlx"无法修改快捷键。
2、不想在CAD启动时自动加载源程序"AA.vlx"，想自定义快捷键"BB"—同时加载、运行源程序"AA.vlx"。
以下程序可以加载"AA.vlx"，但命令行显示"AA"命令无效。
==================
(defun C:BB()
       (load "AA.vlx")
       (command "AA")
)
==================

669423907 发表于 2019-2-19 16:39:52

(defun c:bb()
(if (= (type c:aa) 'subr) (c:aa) (progn (load "aa.vlx") (c:aa)) )
(princ))

masterlong 发表于 2019-2-19 11:18:47

(setq *acad*(vlax-get-acad-object)
      *doc*    (vla-get-ActiveDocument *acad*)
)
(vla-sendcommand *doc* "AA ")

start4444 发表于 2019-2-19 14:16:23

(defun C:BB()
       (load "AA.vlx")
       (c: AA)
)

Andyhon 发表于 2019-2-19 14:21:08

试试 官方 AutoLoad 函数

(autoload "ddchprop" '("ddchprop"))
(autoload "mvsetup" '("mvsetup"))

https://www.smwenku.com/a/5b88372a2b71775d1cdb1190
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/autoload-error/td-p/789837
http://read.pudn.com/downloads181/sourcecode/others/846460/LISP%E6%BA%90%E7%A0%81/CAD%E6%BA%90%E7%A8%8B%E5%BC%80%E5%8F%91%E5%AD%A6%E4%B9%A0/%E5%BC%80%E5%8F%91%E5%8F%AF%E5%8F%82%E8%80%83%E7%9A%84%E4%BB%A3%E7%A0%81/ACADR12.LSP__.htm

arcers 发表于 2019-2-19 16:12:15

masterlong 发表于 2019-2-19 11:18
(setq *acad*(vlax-get-acad-object)
      *doc*    (vla-get-ActiveDocument *acad*)
)



真的不懂啊

arcers 发表于 2019-2-19 17:01:28

669423907 发表于 2019-2-19 16:39
(defun c:bb()
(if (= (type c:aa) 'subr) (c:aa) (progn (load "aa.vlx") (c:aa)) )
(princ))

【表情】
可以使用，好厉害。

查看完整版本: 如何实现加载并同时启动某个程序。