完整的新手问题：加载VB应用程序？

daron · 发表于 2006-10-14 12:48:27

我对VBA几乎是一个完全的新手。我以前写过一些代码，但那是为了虚拟弹球(一种学习编码的有趣方式)。在过去的几天里，我一直在学习一些教程，我有一个问题很困扰我。
大多数教程都涉及到从VB编辑器中运行VB应用程序。到目前为止，我还没有能够连接到如何使用我完成的应用程序，并在不打开VB编辑器的情况下在autocad中实际使用它。
我希望能够从命令行或工具栏按钮运行我的代码。
谁能告诉我在Autocad中加载和执行VB代码的好教程？谢谢，c .艾伦

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

DinØsaur · 发表于 2006-10-14 13:34:49

C.我相信它可以通过lisp调用或作为工具栏中的宏来完成。我很确定这一点。尝试输入vbarun或使用vbarun搜索并选择lisp论坛。我知道之前已经讨论过了。然而，周末通常很慢。你可能会在一周内入住。我相信你会得到比我更好的答案。

mark · 发表于 2006-10-14 13:37:41

当我第一次开始寻找一些我想尝试的VBA应用程序时，我也遇到了同样的问题 . . . 我开始四处寻找并找到了VBALoad和VBARun命令。

Bryco · 发表于 2006-10-14 13:39:40

这是一个很好的教程，由我们自己的CmdrDuh编写。
http://www.theswamp.org/lilly_pond/index.php?dir=cmdrduh/&file=Autocad%20VBA%20Getting%20Started%20Guide.pdf
这是一个很好的例子

Bryco · 发表于 2006-10-14 14:07:30

马克的链接涵盖了大部分内容。
我的大部分vba都使用菜单，因为它在屏幕上比一堆工具栏更少噪音。
一旦你克服了愤怒，崔允许你相当容易地添加到菜单中。
我还使用lisp创建命令。
在记事本中添加

copy

(defun c:LayerOff()
  (command "-vbarun" "Layers.LayerOff")
  (princ))

并将其保存为LayerOff.LSP
然后在您的acaddoc.lsp（如果您没有记事本，请在记事本中创建一个）
添加行

copy

(autoload "LayerOff"                 '("LayerOff"))

现在您可以访问命令行，输入layeroff将在您加载的项目中运行该名称的子。

mark · 发表于 2006-10-14 15:25:19

感谢您的链接标记，这正是我正在寻找的。
Bryco：谢谢你的lisp想法。我知道你对CUI的意思，在这和我们在许可证服务器软件方面遇到的问题之间，我的办公室去年抛弃了它的年度订阅。
--C.艾伦

Kerry · 发表于 2006-10-14 15:52:25

呵呵让那些在欧特克受伤的地方的人，:p是：

Bryco · 发表于 2006-10-15 00:12:18

非常好！欢迎来到theswamp...........

mark · 发表于 2006-10-16 01:05:16

嗯，我的第一个应用程序取得了一些小成功。我做了很多水文工作，我想制作一个宏，我可以用它来单击封闭的多边形线并将该区域返回英亩。
我已经让我的宏工作，并将其连接到工具按钮上。
我目前正在使用LDD 2004。这是我的工具条按钮的代码
C^C-vbarunArea.dvb！Module1.AreaConvert
我的代码或多或少如下所示：
Module1

copy

Option Explicit
Sub AreaConvert()
Form1.show
End Sub

Form1

copy

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

Bryco · 发表于 2006-10-16 02:13:50

如果在菜单命令with
^c^c^p
ie c^c^p-vbarun area . dvb前面加上前缀会怎么样！模块1。AreaConvert
^P打开和关闭菜单选项

完整的新手问题：加载VB应用程序？

发表回复

精选推荐