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

DinØsaur · 发表于 2006-10-14 12:48:27

我几乎是VBA的新手&nbsp；我以前写过一些代码，但它是为了虚拟弹球（一种学习编码的有趣方式）&nbsp；在过去几天里，我一直在学习一些教程，我有一个问题真的很困扰我。大多数教程都涉及从VB编辑器运行VB应用程序&nbsp；到目前为止，我还无法连接到如何在不打开VB编辑器的情况下在autocad中使用我完成的应用程序
我希望能够从命令行或工具栏按钮运行代码
有人能给我介绍一下在Autocad中加载和执行VB代码的好教程吗
谢谢。艾伦

mark · 发表于 2006-10-14 13:34:49

C、我相信这可以通过lisp调用或作为工具栏中的宏来完成。本人&#039；我对此很有把握。尝试键入vbarun或使用vbarun检查搜索并选择lisp论坛。我知道以前已经讨论过了。然而，周末通常很慢。你可以在一周内办理入住手续。本人&#039；我相信你&#039；我会得到比我能给出的更好的答案。

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

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

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

这里是#039；这是一个很好的教程，由我们自己的CmdrDuh编写http://www.theswamp.org/lilly_pond/index.php?dir=cmdrduh/&文件=Autocad%20VBA%20正在获取%20已启动%20指南。pdf

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

标记#039；s链接涵盖了大部分内容
我的大多数vba都使用菜单，因为屏幕上的噪音比一堆工具栏要小
一旦你克服了愤怒，Cui可以让你很容易地添加到菜单中
我还使用lisp创建命令
在记事本中添加
[代码0并将其另存为；LayerOff。LSP然后在你的阿卡多克。lsp（如果你没有，在记事本中做一个）
添加行

copy

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

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

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

谢谢你的链接标记，这正是我要找的
Bryco：；谢谢你的口齿不清的想法&nbsp；我知道你说的CUI是什么意思，除了许可证服务器软件的问题，我的办公室去年放弃了它的年度订阅。艾伦

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

&nbsp；呵呵，让那些在Autodesk工作的人感到痛苦，：愤怒：

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

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

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

嗯，我的第一次申请取得了一些小的成功&nbsp；我做了很多水文学的工作，我想做一个宏，我可以用它点击一条闭合的多边形线，把面积恢复到英亩
我已经让我的宏开始工作了，我把它连接到了一个工具按钮上
我目前正在使用LDD 2004；这是我的工具栏按钮的代码！Module1.AreaConvert我的代码大致如下所示：Module1

copy

Option Explicit
Sub AreaConvert()
Form1.show
End Sub

表1

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

代码或多或少执行&nbsp；唯一认为我不&#039；t like是单击工具栏按钮时看到的命令行回音：
命令：-vbarun
宏名称：Area.dvb！模块1.AreaConvert选择一条闭合多段线：
命令：执行错误
是否存在不让这些项目回显到命令行的情况&nbsp；执行错误消息的含义是什么
谢谢。艾伦

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

如果在菜单命令前加前缀
^C^C^p<ie C^C ^p-vbarun Area.dvb！模块1.AreaConvert打开和关闭菜单

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

发表回复

精选推荐