Question

我正在开发一个打开AutoCAD的代码并激活输入框并输入一个值，然后输入值。我的代码的问题是它打开autoCad并运行inputBox的代码，但随后在excel中创建一个不同的inputBox。我希望我的代码只能在AutoCAD中工作但使用excel。这是我的代码：

Sub Access_ACad()
Dim myValue As Variant
Dim ans As String
Dim MyApp As Object
Dim MyDwg As AcadDocument
Dim ShellDraft As String
On Error GoTo ERRORHANDLER
Set MyApp = GetObject(, "Autocad.Application")
ERRORHANDLER:
If Err.Description <> "" Then
Err.Clear
Set MyApp = CreateObject("Autocad.Application")
End If

MyApp.Visible = True
Set MyDwg = MyApp.ActiveDocument
Sheet1.Cells(1, 1).Value = MyDwg.Name
ShellDraft = "Z:\USERS\KweziM\PROJECT S\Project.dvb"

MyApp.LoadDVB (ShellDraft)

MyApp.RunMacro "FCI"

myValue = InputBox("1 = FCI" & vbCrLf & _
           "2 = ECI", "Model", 1)
Application.SendKeys "{ENTER}"
End Sub

Answer 1

我认为这是您根据我们上面的交流所需要做的事情。

删除Excel中的代码行，即您在此处发布的代码。

myValue = InputBox("1 = FCI" & vbCrLf & _ "2 = ECI", "Model", 1) Application.SendKeys "{ENTER}"

打开AutoCAD VB项目的DVB文件和名为＆＃34; FCI＆＃34;的宏。插入行

myValue = InputBox("1 = FCI" & vbCrLf & _ "2 = ECI", "Model", 1) 在适当情况下。您不需要SendKeys语法，因为您将获得AutoCAD本身的快速提示。在代码中进一步使用myValue。

使用Excel在AutoCAD中输入InputBox的值

1 个答案: