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

arcers

假定预启动程序为"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

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

masterlong

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

start4444

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

Andyhon

试试 官方 AutoLoad 函数

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

https://www.smwenku.com/a/5b88372a2b71775d1cdb1190
https://forums.autodesk.com/t5/v ... d-error/td-p/789837
http://read.pudn.com/downloads18 ... 1/ACADR12.LSP__.htm

arcers

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

真的不懂啊

arcers

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

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