求助 已知CAD两点坐标 有没有一个VBA命令可以复制这两个对角点内所有内容

HELL_YEAH

求助 已知CAD两点坐标 有没有一个VBA命令可以复制这两个对角点内所有内容

mikewolf2k

object.SelectAtPoint Point, FilterType, FilterData

Object

SelectionSet
The object this method applies to.

Point

Variant (three-element array of doubles); input-only
The 3D UCS coordinates specifying the point to use for the selection.

FilterType

Integer; input-only; optional
A DXF group code specifying the type of filter to use.

FilterData

Variant; input-only; optional
The value to filter on.

liang3331

        Dim sel1 As AcadSelectionSet    '定义选择集对象
        Mode = 5 '选择模式
        Set sel1 = ThisDrawing.SelectionSets.Add("sel4") '添加选择集子项
        Call sel1.Select(Mode, 点1, 点2)
        
        sel1.Highlight (True) '显示已经选中对象