消しゴムでドミノ倒し
https://scrapbox.io/files/64d65bea5e5b0d001ba5f6e6.png
マップはExcelで作成しました。
https://scrapbox.io/files/64d6cd02c29354001ce6bfa8.png
code:basic
Sub GetShapeInfo()
Dim ws As Worksheet
Dim shp As Shape
Dim i As Integer
Set ws = ThisWorkbook.Sheets("Sheet1")
i = 1
For Each shp In ws.Shapes
If shp.AutoShapeType = msoShapeRectangle Then
Debug.Print "{id: 'eraser" & i & "', " & _
"x: " & CInt(((shp.Left - 700) / 2.5) / 1.5 - 50) & ", " & _
"z: " & CInt(((shp.Top - 700) / 2.5) / 1.5 + 50) & ", " & _
"rotate_y: " & CInt(shp.Rotation) & "},"
i = i + 1
End If
Next shp
End Sub
Created by cx20.icon