[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不是很懂，谢谢！！

雪山飞狐_lzh · 发表于 2004-4-28 09:53:00

ThisDrawing.SendCommand "(load " & Chr(34) & "sbb.lsp" & Chr(34) & " )" & VbCr 向命令行发送命令（Load "sbb.lsp")并回车相当于加载sbb.lsp文件，不需重启AutoCad

BDYCAD · 发表于 2004-4-28 10:03:00

今天又學到新東西. 呵呵.

zhang007 · 发表于 2004-4-28 10:13:00

我也是

账号		自动登录	找回密码
密码			注册

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

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