打开新的 dwg （ 从 lisp 转换 ）
有人能把这个lisp转换成VBA吗？我只是想看看它是如何工作的。(defun c:openC ( / cur_dir fo )
;; open a dwg from the dir of the current dwg
(setq cur_dir (getvar "dwgprefix")); path
(if (setq fo (getfiled "Open Drawing" cur_dir "dwg" 8))
(command "vbastmt"
(strcat
"AcadApplication.Documents.Open"
(chr 34)cur_dir fo(chr 34)", false"
)
)
)
(princ)
)
谢谢
**** Hidden Message *****
页:
[1]