VB6.0-Autocad14 select dimension on a specific layer.

[ronniez]

Hi all,

Is there a way how I can get the number of dimension on specific layer, by using VB6.0 and AutoCAD 14?

The program schould run from the command line and open drawings listed in a text file, from there it should check the amount of dimensions on a specific layer, and based on that result it should or should not execute some specific tasks.

I have a working application which can start AutoCAD and goes thru the listed files, but need a way to get into the drawing database to get the number of dimensions on the specific layer.

I tried to achieve that by using selection sets but I get following error: Compile Error: User-defined type not defined.

on the following statement.
objSelSet As myApp.AcadSelectionSet

As I'm new to VB/AutoCAD any help is appreciated.

Thanks in advance.

Ronnie

[humberto]

something like:

Sub main()
Dim acadApp As AcadApplication
Dim d As AcadDimension
Dim enty As AcadEntity

Set acadApp = GetObject(, "AutoCAD.Application")
For Each enty In acadApp.ActiveDocument.ModelSpace

If TypeOf enty Is AcadDimension Then
Set enty = d
If d.Layer = "your dim layer" Then

End If
End If
End Sub