CADForums.net

ronniez · Joined: 18 May 2005 Posts: 1

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 · Joined: 26 Aug 2005 Posts: 6

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

	CADForums.net Forum Index -> VBA	All times are GMT
Page 1 of 1