[求助]关于选择集的问题？

mlyd

我的选择及程序如下：

    Set AcadDocs = AcadApp.Documents
    Set AcadDocs = AcadDocs.Open(Standardpath)
    AcadDocs.Utility.Prompt vbCr & "选择要录入的标准件明细："
   
    Set Selset = AcadDocs.SelectionSets.Add("Standard")
    FType(0) = 0
    FData(0) = "*TEXT"
    Selset.SelectOnScreen FType, FData

执行时在已打开的CAD图中进行选择，请问在进行选择时能否得到选择集第一点的坐标或者说能否得到所选区域左上角的坐标？

请不吝赐教,谢谢！

jkbanana

改用Select方法吧。

mlyd

谢谢，能详细说说吗？