完整的新手问题：加载VB应用程序？
我对VBA几乎是一个完全的新手。我以前写过一些代码，但那是为了虚拟弹球(一种学习编码的有趣方式)。在过去的几天里，我一直在学习一些教程，我有一个问题很困扰我。大多数教程都涉及到从VB编辑器中运行VB应用程序。到目前为止，我还没有能够连接到如何使用我完成的应用程序，并在不打开VB编辑器的情况下在autocad中实际使用它。
我希望能够从命令行或工具栏按钮运行我的代码。
谁能告诉我在Autocad中加载和执行VB代码的好教程？谢谢，c .艾伦
**** Hidden Message ***** C.我相信它可以通过lisp调用或作为工具栏中的宏来完成。我很确定这一点。尝试输入vbarun或使用vbarun搜索并选择lisp论坛。我知道之前已经讨论过了。然而，周末通常很慢。你可能会在一周内入住。我相信你会得到比我更好的答案。 当我第一次开始寻找一些我想尝试的VBA应用程序时，我也遇到了同样的问题 . . . 我开始四处寻找并找到了VBALoad和VBARun命令。 这是一个很好的教程，由我们自己的CmdrDuh编写。
http://www.theswamp.org/lilly_pond/index.php?dir=cmdrduh/&file=Autocad%20VBA%20Getting%20Started%20Guide.pdf
这是一个很好的例子 马克的链接涵盖了大部分内容。
我的大部分vba都使用菜单，因为它在屏幕上比一堆工具栏更少噪音。
一旦你克服了愤怒，崔允许你相当容易地添加到菜单中。
我还使用lisp创建命令。
在记事本中添加
(defun c:LayerOff()
(command "-vbarun" "Layers.LayerOff")
(princ))
并将其保存为LayerOff.LSP
然后在您的acaddoc.lsp（如果您没有记事本，请在记事本中创建一个）
添加行
(autoload "LayerOff" '("LayerOff"))
现在您可以访问命令行，输入layeroff将在您加载的项目中运行该名称的子。 感谢您的链接标记，这正是我正在寻找的。
Bryco：谢谢你的lisp想法。 我知道你对CUI的意思，在这和我们在许可证服务器软件方面遇到的问题之间，我的办公室去年抛弃了它的年度订阅。
--C.艾伦 呵呵让那些在欧特克受伤的地方的人，:p是：
非常好！欢迎来到theswamp........... 嗯，我的第一个应用程序取得了一些小成功。我做了很多水文工作，我想制作一个宏，我可以用它来单击封闭的多边形线并将该区域返回英亩。
我已经让我的宏工作，并将其连接到工具按钮上。
我目前正在使用LDD 2004。这是我的工具条按钮的代码
C^C-vbarunArea.dvb！Module1.AreaConvert
我的代码或多或少如下所示：
Module1
Option Explicit
Sub AreaConvert()
Form1.show
End Sub
Form1
Private Sub UserForm_Initialize()
Me.Hide
On Error Resume Next
With ThisDrawing.Utility
.GetEntity Pick_Area, Pick_point, vbCrLf & "Select a closed polyline:"
'Check for No Selection
If Pick_Area Is Nothing Then
.Prompt vbCr & "You did not pick anything."
End
End If
'Check for Object type and Closed Polyline
If Pick_Area.ObjectName = "AcDbPolyline" Then
'nested if to check for closed polylines
If Pick_Area.Closed = True Then
Area_ft = Pick_Area.Area
Area_Acres = Pick_Area.Area / 43559.45832
Else
.Prompt vbCrLf & "You did not pick a closed polyline."
End
End If
Else
.Prompt vbCrLf & "You did not pick a closed polyline."
End
End If
'test routine that were used durring development
'.Prompt vbCrLf & "Object name " & Pick_Area.ObjectName
'.Prompt vbCrLf & "selected point " & Pick_point(0) & "," & Pick_point(1)
'.Prompt vbCrLf & "closed " & Pick_Area.Closed
End With
sqfoot.Caption = Area_ft
acres.Caption = Area_Acres
Me.show
End Sub
代码或多或少执行。我唯一不喜欢的是您单击工具栏按钮时看到的命令行回显：
命令：-vbarun
宏名称：Area.dvb！Module1.AreaConvert
选择封闭的折线：
命令：执行错误
是否无论如何都不能让这些项目回显到命令行？执行错误消息是什么意思？
谢谢，
C. Alan 如果在菜单命令with
^c^c^p
ie c^c^p-vbarun area . dvb前面加上前缀会怎么样！模块1。AreaConvert
^P打开和关闭菜单选项
页:
[1]