[quote]'创建平面索引
Sub PingMianSY()
   
    Dim p1 As Variant
    p1 = ThisDrawing.Utility.GetPoint(, "索引区域中心点:") 阅读全文……