HELL_YEAH 发表于 2013-1-3 21:13:16

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

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

mikewolf2k 发表于 2013-1-4 14:02:22

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:51

      Dim sel1 As AcadSelectionSet    '定义选择集对象
      Mode = 5 '选择模式
      Set sel1 = ThisDrawing.SelectionSets.Add("sel4") '添加选择集子项
      Call sel1.Select(Mode, 点1, 点2)
      
      sel1.Highlight (True) '显示已经选中对象
页: [1]
查看完整版本: 求助 已知CAD两点坐标 有没有一个VBA命令可以复制这两个对角点内所有内容