[求助]：用vb运行lisp

citykunan · 发表于 2004-12-6 13:44:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我想用vb做一个exe程序，这个程序先打开AUTOCAD,在加载同一目录下的LISP程序，然后将文件存盘，关闭。可以吗？谢谢

雪山飞狐(lzh) · 发表于 2004-12-6 14:11:47

试试
m_oDoc.SendCommand "(Load ""c:/a.lsp"")" & vbCr

citykunan · 发表于 2004-12-6 15:41:30

Private Sub Form_Click()

Dim ACADobj As autocad.AcadApplication
Dim DOC As autocad.AcadDocument

Set ACADobj = CreateObject("AutoCAD.Application")

ACADobj.Application.Visible = True

Set DOC = ACADobj.ActiveDocument

DOC.SendCommand "(Load ""C:/Lhy_Leo/Dow_Corning/VB/OPEN_CAD/plot.lsp"")" & vbCr

End Sub

版主可以了，我想问问"(Load ""C:/Lhy_Leo/Dow_Corning/VB/OPEN_CAD/plot.lsp"")"这一段，能不能不要写路径，让vb自己判断自身的.exe文件的路径，只要将.lsp复制到与.exe文件同一个目录，就能自动找到其路径，这样程序复制到任意一个目录都可以使用，而不要改程序了。谢谢。

雪山飞狐(lzh) · 发表于 2004-12-6 21:03:29

try:
MsgBox Replace("""" & Replace(App.Path, "\", "/") & "/" & "my.lsp" & """", "//", "/")

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

[求助]： 用vb运行lisp

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

[求助]：用vb运行lisp