使用Excel在AutoCAD中inputInputBox的值

我正在打开一个打开AutoCAD的代码，并激活input框并input一个值，然后input值。 我的代码的问题是，它打开autoCad并运行inputBox的代码，但然后在Excel中创build一个不同的input框。 我希望我的代码只在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

我认为这是你需要做的基于我们上面的交stream。

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

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

2. 打开AutoCAD VB项目的DVB文件和名为“FCI”的macros。 插入线

myValue = InputBox("1 = FCI" & vbCrLf & _ "2 = ECI", "Model", 1) 。 您不需要SendKeys语法，因为您将通过AutoCAD本身得到提示。 进一步在代码中使用myValue 。