请问怎么用VBA加载LISP

zoubo604

请问怎么用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

为什么没人回答呢

wuyunpeng888

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

lsjj

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

大大的熊熊猫猫

呃呃呃    你这是什么情况？