Excel VBA 调用AUTOCAD 升级块属性

chen1122333

我用AUTOCAD 2018 生成Testtypical1.DWG 内含BLOCK1块，包含块属性（C-V列），参见附件中的任何一行。
我想要用blockinfo。xlsx 中的信息来升级A列中的文件。（每一行对应一个A列的文件）

我从网上找了很多，但都不行， 有的能实现部分功能，但我连不起来，还把CODE 全弄乱了。最后还是来这里请教，求援。

多谢了！ typical.zip (94.76 KB, 下载次数: 39)

2018-6-21 04:58 上传

点击文件名下载附件

chen1122333

我找到了打开AUTOCAD 的方法

chen1122333

抛砖引玉，我找到了打开AUTOCAD 的方法
Sub Open_DWG()
On Error Resume Next
Dim strDrawing As String
Dim acadCmd As String
On Error Resume Next
Set ACAD = GetObject(, "AutoCAD.Application")
If Err.Description > vbNullString Then
Err.Clear
Set ACAD = CreateObject("AutoCAD.Application")
End If
ACAD.Visible = True
xDWGPath = "C:\typical"
For x = 2 To 3
Cells(x, 1).Select
xDWGFile = ActiveCell & ".dwg"
xdwgfull = xDWGPath & "\" & xDWGFile
MsgBox xdwgfull
ACAD.Documents.Open (xdwgfull)
  ACAD.ActiveDocument.SendCommand "qsave" & vbCr
ACAD.ActiveDocument.SendCommand "close" & vbCr
Next
End Sub

补充内容 (2018-6-29 06:10):
follow up here

补充内容 (2018-7-4 01:51):
continue to ask help