[求助]新手请教vba查询或得到图元

tekken918

想做个判断  比如 图纸中已经有 某某块  或者某某图层  就运行a命令  没有就运行 b。

 

想知道如何判断某个图层是否存在    或者得到固定名称块的数量。

 

请高手赐教啊~

johy

MSITStore:D:\Program%20Files\AutoCAD%202010\help\acad_aag.chm::/WSfacf1429558a55de2ab0a1008e4bf960-7c6d.htm">创建和编辑 AutoCAD 图元 > MSITStore:D:\Program%20Files\AutoCAD%202010\help\acad_aag.chm::/WS1a9193826455f5ff1a32d8d10ebc6b7ccc-6bcb.htm">使用图层、颜色和线型 > MSITStore:D:\Program%20Files\AutoCAD%202010\help\acad_aag.chm::/WS1a9193826455f5ff1a32d8d10ebc6b7ccc-6bca.htm"> 使用图层 > 

图层和线型排序

用户可以遍历 Layers 和 Linetypes 集合来查找图形中的所有图层和线型。

遍历 Layers 集合

以下代码遍历 Layers 集合，以合并图形中所有图层的名称，然后将这些名称显示在消息框中。

Sub Ch4_IteratingLayers()

 Dim layerNames As String

 Dim entry As AcadLayer

 layerNames = ""

 For Each entry In ThisDrawing.Layers

 layerNames = layerNames + entry.Name + vbCrLf

 Next

 MsgBox "The layers in this drawing are: " + _

 vbCrLf + layerNames

End Sub

tekken918

好的  谢楼上  不知有没有和 lisp里面一样 类似 tblsearch 的功能  直接输入图层名称查询地。。。。

tcnc

我想查询出一个CAD图纸中的所有圆的圆心坐标和半径

johy

这个，也引用一段啊

 

为选择集指定单一选择条件

以下代码提示用户选择要包含在选择集中的对象，但仅当选择的对象是 Circle 时才将其添加到选择集中：

Sub Ch4_FilterMtext()

 Dim sstext As AcadSelectionSet

 Dim FilterType(0) As Integer

 Dim FilterData(0) As Variant

 Set sstext = ThisDrawing.SelectionSets.Add("SS2")

 FilterType(0) = 0

 FilterData(0) = "Circle"

 sstext.SelectOnScreen FilterType, FilterData

End Sub

yanyanjun999

看看，学习了

sxpd

如何判断某个图层是否存在?
用错误机制
on error resume next

set lay = thisdrawing.Layers("01")
if err then