AutoCAD DevBlog

Where Can I Find AsdkHlrApi24.dbx ?

By Madhukar Moogala

From AutoCAD 2021, the module is removed from ObjectARX SDK’s redistribute directory and is included as part of AutoCAD 2021.

You can find the module at your AutoCAD installation directory, at my end

It is found at

"C:\rogue\AutoCAD 2021\AsdkHlrApi24.dbx"

And, typically I user `where` search tool for quickly finding the modules or files etc, `where` Windows CLI in-built tool.

Another tool I use is `es`, a free CLI utility from VoidTools which is lightening fast

Note: I’m now way endorsing or have any relationship with VoidTools, it is my experience using the tool over a long period.

Connecting Oracle Database with AutoCAD

By Madhukar Moogala

Q. Problems connecting AutoCAD to Oracle database, is Oracle database is supported. How to use to API to retrieve information from my Oracle database to AutoCAD.

A. From AutoCAD 2020 there is no 32 bit application, AutoCAD comes only in 64 bit application.

If you want to connect to Oracle, the Oracle client OLE Db drivers need to in 64 bit.

You need to install these based on your Oracle database installation, at my end I have Oracle 19c database, accordingly I need to install associated Oracle 19c OLE Db drivers.

Oracle Db

Oracle Ole Db

Now connecting to Oracle Db from AutoCAD VBAIDE

Step1: Setting necessary reference files.

AutoCAD 2021 Type Library
Ole Automation
Microsoft Activex Data Objects
Microsoft Activex Data Objects Recordset 
OraOLEDb 1.0 Type Library

Step2 : Preparing Connection String

"Provider=OraOLEDB.Oracle;User ID=<yourUserId>;Password=<yourPassword;Data Source=<yourDatabase>;"

For example:

"Provider=OraOLEDB.Oracle;User ID=SYSTEM;Password=Abcdef!23;Data Source=moogalm19;"

UserId : The User you have created for your Database

Password: The Password required to log in to Database

DataSource: The Database to which you would like to connect.

Step 3: Code to make a connection and open the Database.

 
Sub ReadOracleDB()
    Dim adoDbConn   As New ADODB.Connection
    Dim adoDbRs     As New ADODB.Recordset
    Dim selectCmd   As New ADODB.Command
    
    Dim strCon      As String
    Dim RC, CC      As Long
    
    ' connection string, same userId and password, which used to logon to with sqlplus'
    ' Data Source = name of your Database'
    
    strCon = "Provider=OraOLEDB.Oracle;User ID=SYSTEM;Password=Aut0desk!23;Data Source=moogalm19;"
    adoDbConn.Open (strCon)
    
    ' open the table with adOpenStatic, so we traverse to end of all recordses'
    adoDbRs.Open "SELECT * FROM EMPLOYEES", adoDbConn, adOpenStatic
    
    If IsNull(adoDbRs.RecordCount) Or (adoDbRs.RecordCount = 0) Then
        MsgBox "No Records Found!"
        Exit Sub
    End If
    
    RC = adoDbRs.RecordCount
    CC = adoDbRs.Fields.Count
    
    Dim MyModelSpace As AcadModelSpace
    Set MyModelSpace = ThisDrawing.ModelSpace
    Dim pt(2)       As Double
    Dim MyTable     As AcadTable
    
    ' RC+2 accounts for Title and Header rows'
    
    Set MyTable = MyModelSpace.AddTable(pt, RC + 2, CC, 10, 60)
    
    Dim i           As Integer
    Dim j           As Integer
    
    
    With MyTable
        .RegenerateTableSuppressed = True
        .RecomputeTableBlock False
        .TitleSuppressed = False
        .HeaderSuppressed = False
        .SetTextStyle AcRowType.acTitleRow, "Standard"
        .SetTextStyle AcRowType.acHeaderRow, "Standard"
        .SetTextStyle AcRowType.acDataRow, "Standard"
        
        Dim col         As New AcadAcCmColor
        col.SetRGB 255, 0, 255
        
        ' title'
        col.SetRGB 194, 212, 235
        .SetCellBackgroundColor 0, 0, col
        col.SetRGB 127, 0, 0
        .SetCellContentColor 0, 0, col
        .SetCellType 0, 0, acTextCell
        .SetText 0, 0, "MOOGALM19"
        
        ' headers'
        
        i = i + 1
        For j = 0 To .Columns - 1
            .SetCellType i, j, acTextCell
            .SetText i, j, CStr(adoDbRs.Fields(j).Name)
            
        Next
        
        ' dataRows'
        
        For i = 2 To .Rows - 1
            For j = 0 To .Columns - 1
                .SetCellType i, j, acTextCell
                .SetText i, j, adoDbRs.Fields(j).Value
                
            Next j
            adoDbRs.MoveNext
        Next i
        
        .RegenerateTableSuppressed = False
        .RecomputeTableBlock True
        .Update
        .GetBoundingBox minp, maxp
        ZoomWindow minp, maxp
        ZoomScaled 0.9, acZoomScaledRelative
        
    End With
    
    ' Close the connection and free the memory'
    
    adoDbRs.Close
    Set adoDbRs = Nothing
    Set selectCmd = Nothing
    adoDbConn.Close
    Set adoDbConn = Nothing
       
    ThisDrawing.SetVariable "LWDISPLAY", 1
    
End Sub

Demo

RealDWG: Extracting Color Information from Solids

By Madhukar Moogala

Using RealDWG SDK,  following code extracts the color information of 3d solids in AutoCAD drawings.

To extract color from sub elements of Solid we will use BREP api, you need to refer AcDbMgdBrep.dll module from sdk.

You can use – Testdrawing 

        private void DumpSolid3d(Transaction tr, ObjectId solId)
        {
            using (OpenCloseTransaction oct = new OpenCloseTransaction())
            {
                Solid3d solid = tr.GetObject(solId, OpenMode.ForRead) as Solid3d;

                ObjectId[] ids = new ObjectId[] { solid.ObjectId };

                FullSubentityPath path =
                  new FullSubentityPath(
                    ids,
                    new SubentityId(SubentityType.Null, IntPtr.Zero)
                  );

                // For storing SubentityIds of cylindrical faces

                List subentIds = new List();

                using (Brep brep = new Brep(path))
                {
                    foreach (Autodesk.AutoCAD.BoundaryRepresentation.Face face in brep.Faces)
                    {
                        /*
                        // How to get colors of only cylinderical
                         
                        Autodesk.AutoCAD.Geometry.Surface surf = face.Surface;
                        var ebSurf = surf as Autodesk.AutoCAD.Geometry.ExternalBoundedSurface;
                        if (ebSurf != null && ebSurf.IsCylinder)
                        {
                            subentIds.Add(face.SubentityPath.SubentId);
                        }
                        
                         */
                        subentIds.Add(face.SubentityPath.SubentId);
                    }
                }

                if (subentIds.Count > 0)
                {
                    List> ColorSubEntityPairs
		     = GetColors(solid, subentIds);
                    foreach (var item in ColorSubEntityPairs)
                    {
                        var color = item.Key as Color;
                        SubentityId id = item.Value;
                        Console.WriteLine($"\nColor - {color.ColorNameForDisplay}
					 | SubEntity Index - {id.IndexPtr}");
                    }
                }
               oct.Commit();
            }
        }

        List< KeyValuePair< Color,SubentityId >> 
	GetColors(Solid3d solid, List subentIds)
        {
            List < KeyValuePair < Color, SubentityId >> ColorSubEntityPairs
		= new List< KeyValuePair >();
            foreach (SubentityId subentId in subentIds)
            {
                try
                {
                    Color col = solid.GetSubentityColor(subentId);
                    ColorSubEntityPairs.Add(new KeyValuePair(col, subentId));
                }
                catch (Autodesk.AutoCAD.BoundaryRepresentation.Exception ex)
                {
                    if(ex.ErrorStatus == ErrorStatus.NotApplicable)
                    continue;
                }
                

                
            }
            return ColorSubEntityPairs;
        }

Output

SolidColors.exe "C:\rd2020\RealDWG 2020\Samples\SolidColors\testBox.dwg"

BlockTable -*Model_Space

Color - 250 | SubEntity Index - 1

Color - 250 | SubEntity Index - 2

Color - 250 | SubEntity Index - 3

Color - 250 | SubEntity Index - 4

Color - 250 | SubEntity Index - 5

Color - 250 | SubEntity Index - 6

Color - 250 | SubEntity Index - 7

Color - 50 | SubEntity Index - 8

Color - 50 | SubEntity Index - 9

Color - 50 | SubEntity Index - 10

Color - 50 | SubEntity Index - 11

Color - 50 | SubEntity Index - 12

Color - 50 | SubEntity Index - 13

BlockTable -*Paper_Space

BlockTable -*Paper_Space0

Source code