zoubo604 发表于 2011-9-24 22:44:38

请问怎么用VBA加载LISP

请问怎么用VBA加载LISP.谢谢指导ThisDrawing.SendCommand ("appload " "tc.lsp ")
如上面这种格式,但是我没写对

TC.LSP里面定义了函数TC.但是不先加载,后面发送TC的命令,就提示:命令: "tc 未知命令“TC”。按 F1 查看帮助"
还有一个问题.我调用的这个TC,是一个填充的函数,怎么才能让这个填充的命令不弹出对话框,静默执行.
是这样的:我用VBA填充不稳定,时填充,时不填充.于是想试一下用LISP来填充.VBA计算好后,把值传给系统变量,再来调用这个填充的LISP函数.
我的TC函数如下:前四个变量存坐标,对应四个点.第五个变量存放的是填充花纹名
(defun c:tc()
(setq pt1(getvar "users1"))
(setq pt2(getvar "users2"))
(setq pt3(getvar "users3"))
(setq pt4(getvar "users4"))
(setq pt4(getvar "users5"))
(command "pline" users1 users2 users3 users4 "c")
(command "_hatch" "users5" "" "" (entlast) "")
(princ)
)

zoubo604 发表于 2011-9-26 09:42:05

为什么没人回答呢

wuyunpeng888 发表于 2014-9-19 20:03:48

是把这个(load "tc.lsp")发到命令行

lsjj 发表于 2014-9-19 20:18:33

寫了一堆pt1、pt2的，沒一個用到
"xxx"和xxx差很多

大大的熊熊猫猫 发表于 2015-6-5 10:54:32

呃呃呃    你这是什么情况？
页: [1]
查看完整版本: 请问怎么用VBA加载LISP