autocad vba getEnitityで位置が獲得できない

Question

vba初心者です。cadのvbaでgetEnitityで位置座標を獲得したいのですが、以下のコードではインデックスが有効範囲にありませんとなり、できません。
改善点など教えてください。

Sub try()
Dim p() As Double
Dim v As AcadObject
Call Application.ActiveDocument.Utility.GetEntity(v, p())
MsgBox p(1)

End Sub

Comments

[bebebe_]

配列の要素数が指定されていないのが原因の可能性があります。

Answer 1

リファレンスをよく読んでください。
GetEntityのPickedPointはバリアント型です。
※バリアント型の中身が3要素のDouble型配列として返ってくる

Sub try()
-Dim p() As Double
+Dim p As Variant
Dim v As AcadObject
-Call Application.ActiveDocument.Utility.GetEntity(v, p())
+Call Application.ActiveDocument.Utility.GetEntity(v, p)
MsgBox p(1)

End Sub