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

HELL_YEAH · 发表于 2013-1-3 21:13:00

mikewolf2k · 发表于 2013-1-4 14:02:00

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 · 发表于 2013-1-11 08:37:00

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

      sel1.Highlight (True) '显示已经选中对象

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

发表回复

精选推荐

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

发表回复

精选推荐

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