Google Earth 高级开发教程

Dim view As AcadView Set view = ThisDrawing.Views.Add(name) Dim retVar As Variant