[LISP]请教自动加载的问题！！！急！急！

wpizi · 发表于 2004-4-27 10:09:00

是否可以在cad启动后，让新生成的lisp文件自动加载到cad中？
谢谢！！

BDYCAD · 发表于 2004-4-27 10:13:00

你把新生成的lisp文件加到支持文件夾里的acad.lsp里就ok了
如你的lisp名是SBB.LSP那就在acad.lsp里面加上一句
(LOAD "SBB.LSP")
注意. 你的LISP程序文件也要放在CAD的@支持文件夾里面. 不然就不行的

wpizi · 发表于 2004-4-27 14:53:00

多谢BDYCAD
这样可以，但是必须重新启动cad，我用vba生成一个lisp文件，想让这个lisp文件自动加载到cad中去，不必重新启动cad且不用在acad.lsp加（load "sbb.lsp"）直接输入命令就可执行，不知还有别的方法？

BDYCAD · 发表于 2004-4-27 15:16:00

可以給你的VBA程序大家試試嗎? 這樣不是很快就找出解決問題的辦法了. 我不大懂VBA順便也想和你學習學習. 呵呵.

wltools · 发表于 2004-4-27 15:23:00

SendCommand
帮助里的内容：Sub Example_SendCommand()
' This example sends a command to the AutoCAD command line
' of a particular drawing for evaluation
' We will create a Circle in the active drawing and will
' zoom to display the entire circle
ThisDrawing.SendCommand "_Circle" & vbCr & "2,2,0" & vbCr & "4" & vbCr
ThisDrawing.SendCommand "_zoom" & vbCr & "a" & vbCr
' Refresh view
ThisDrawing.Regen acAllViewports
MsgBox "A circle command has been sent to the command line of the current drawing."
End Sub命令行的内容改为："(load " & Chr(34) & "sbb.lsp" & Chr(34) & " )"

雪山飞狐_lzh · 发表于 2004-4-27 15:29:00

原来可以这样
不过还差点："(load " & Chr(34) & "sbb.lsp" & Chr(34) & " )" & VbCr

wpizi · 发表于 2004-4-28 09:16:00

多谢拉！有什么办法将新生成的lisp文件自动加载到cad中，不要重新启动cad，wltools所说的这种方法好像要将lisp文件加载到cad后才能执行，这样必须重新启动cad，我是想将vba新生成的lisp文件自动加载到cad后，不重新启动cad就能出图，不知还有什么办法？还有请问："(load " & Chr(34) & "sbb.lsp" & Chr(34) & " )" & VbCr这句什么意思？我vba不是很懂，谢谢！！