我正在尝试获取 AutoCAD 块参考的坐标。
使用下面的代码,我可以在 AutoCAD 中选择块引用,但它始终显示 (0,0,0) 作为插入点...
插入点是块的实际坐标,还是不是?
Sub GetInsertpoint()
Dim oEnt As AcadEntity
Dim varPick As Variant
Dim brBref As AcadBlockReference
Dim arAttR As AcadAttributeReference
Dim varAt As Variant
Dim i As Double
ThisDrawing.Utility.GetEntity oEnt, varPick, vbCr & "Get the block"
If TypeOf oEnt Is AcadBlockReference Then
MsgBox "Thank you, very nice!"
Set brBref = oEnt
MsgBox brBref.InsertionPoint(0) & brBref.InsertionPoint(1) & brBref.InsertionPoint(2)
Else
MsgBox "Not a block reference!"
Exit Sub
End If
End Sub