MarkX 发表于 2022-7-6 17:13:52

请帮忙（VBA问题）

我不是一个程序员，但我的老板希望我这样做，所以我会尽我最大的努力完成它。我需要创建一个userform，它可以为一个图形提供十种左右不同的选择规则。这些规则将根据选择规则中的参数打开和关闭图形中的图层。我发现了一些我认为可能有用的东西，但我不确定如何改变它们，或者我需要做什么才能让它们为我工作。我知道我需要创建一个userform，然后给它代码来实现这一点，但我不确定从哪里开始。任何关于从哪里开始的帮助或想法都会很好。

CmdrDuh 发表于 2022-7-6 17:38:59

列出你的10个项目，以及你希望它如何工作，然后我们可以和你一起编码

borgunit 发表于 2022-7-6 17:57:09

一个开始的地方。。。
 
http://www.dailyautocad.com/autocad/my-first-vba-application-in-autocad/

MarkX 发表于 2022-7-6 17:59:19

 
这十项将是我的老板将为我定义的自定义选择选项。他希望它们可以从下拉菜单中选择，或者我认为它在VBA中被称为组合框。我需要帮助设置用户表单，以获得组合框设置，这样我就可以把他想要的代码。我甚至不知道如何设置一个组合框，使其可以有十个项目可供选择。我应该在今天晚些时候获得代码的规格，并将尽快发布它们。谢谢你的帮助。这是我正在为其制作新宏的旧版本代码的一部分。
 
Option Explicit
' *** Public Declarations **** '
Public strModelNum As String
Public strSalesOrdNum As String
Public objLayer As AcadLayer
Private Sub cbo9_Change()
On Error GoTo Err_Control
If cbo9.Value = "U = Pueblo" Then
   dig9.Caption = "U"
   dig9.BackColor = &HFF00&
   stopgo9.BackColor = &HFF00&
ElseIf cbo9.Value = "E = Charmes" Then
   dig9.Caption = "E"
   dig9.BackColor = &HFF00&
   stopgo9.BackColor = &HFF00&
ElseIf cbo9.Value = "C = China" Then
   dig9.Caption = "C"
   dig9.BackColor = &HFF00&
   stopgo9.BackColor = &HFF00&
ElseIf cbo9.Value = "" Then
   stopgo9.BackColor = &HFF&
   dig9.BackColor = &HFF&
End If
   stopgo13.BackColor = &HFF&
   stopgo16.BackColor = &HFF&
   stopgo26.BackColor = &HFF&
   stopgo27.BackColor = &HFF&
   stopgo28.BackColor = &HFF&
   dig13.BackColor = &HFF&
   dig16.BackColor = &HFF&
   dig26.BackColor = &HFF&
   dig27.BackColor = &HFF&
   dig28.BackColor = &HFF&
   cbo13.Clear
   cbo16.Clear
   cbo26.Clear
   cbo27.Clear
   cbo28.Clear
   dig13.Caption = ""
   dig16.Caption = ""
   dig26.Caption = ""
   dig27.Caption = ""
   dig28.Caption = ""
   cbo16.Enabled = False
   cbo26.Enabled = False
   cbo27.Enabled = False
   cbo28.Enabled = False
   cbo13.AddItem "U = C/UL Listing"
   cbo13.AddItem "C = CE Listing"
   cbo13.Enabled = True
   cbo13.SetFocus
Exit_Here:
Exit Sub
Err_Control:
Debug.Print Err.Number
MsgBox Err.Description
End Sub

MarkX 发表于 2022-7-6 18:25:26

根据zip文件中的信息，我需要制作一个用户表单，允许一个或两个菜单，其中包含区域、机组配置、压缩机功率、风扇、泵包，以及倾斜下方的每个项目，以匹配具有该描述的层，并在选中时关闭所有其他层。
原理图信息。拉链
页: [1]
查看完整版本: 请帮忙（VBA问题）