AutoCAD Forums - .NET, ObjectARX & VBA

VBA object problems

dbroada — Thu, 16 May 2013 13:43:21 GMT

We currently have a mixture of AutoCADs in the office. We all had ACAD2011 on XP but there are now 2 machines with ACAD2013 on XP and one ACAD2013 on 64 bit Win7.

I am in the process of changing my VBA routines to VB.Net but naturally, the main one is still only working in VBA. And this is where the problem comes. The boss' machine (the 64 bit Win 7) doesn't like the line..

Quote:

Dim PlineObj As AcadLWPolyline

It says it doesn't know what an AcadLWPolyline is, where my machine is quite happy.

Can anybody shed some light on how to coax the newest installation into running my code? The rest of the office are due to move on to ACAD2013/Win7 and it would be nice to get it working before too long. I'm not sure when I will be moved but currently I am probably going to be last.

====================

the message I get is "Object or library not found", but the references look the same - he is a long way from me and I keep forgetting by the time I walk from one machine to the other.

Recommendation for a c#/vb.net forum

TKall — Wed, 15 May 2013 02:26:23 GMT

I was wondering if anyone might recommend a forum where I could ask a few questions about object oriented programming. Something like CADTutor for .net programming.

Can't remove 'user interaction' part of my code [seeking help]

bababarghi — Tue, 14 May 2013 23:35:42 GMT

Hi all,

I have got this code by KEAN WALMSLEY.

His code will ask user to select a block and then list all of selected block's attributes. However, I need to tweak his code a little bit and instead of user interaction, the block has to be selected by its name and through my code.

Here is his code (with slight changes to suit my purpose):

Code:

Private Sub ListAttributes()

            Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor

            Dim db As Database = HostApplicationServices.WorkingDatabase

            Dim tr As Transaction = db.TransactionManager.StartTransaction()

            Try

                Dim filList As TypedValue() = New TypedValue(0) {New TypedValue(CInt(DxfCode.Start), "INSERT")}

                Dim filter As New SelectionFilter(filList)

                Dim opts As New PromptSelectionOptions()

                opts.MessageForAdding = "Select block references: "

                Dim res As PromptSelectionResult = ed.GetSelection(opts, filter)

                If res.Status <> PromptStatus.OK Then

                    Return

                End If

                Dim selSet As SelectionSet = res.Value

                Dim idArray As ObjectId() = selSet.GetObjectIds()

                For Each blkId As ObjectId In idArray

                    Dim blkRef As BlockReference = DirectCast(tr.GetObject(blkId, OpenMode.ForRead), BlockReference)



                    Dim btr As BlockTableRecord = DirectCast(tr.GetObject(blkRef.BlockTableRecord, OpenMode.ForRead), BlockTableRecord)

                    ed.WriteMessage(vbLf & "Block: " + btr.Name)

                    btr.Dispose()

                    Dim attCol As AttributeCollection = blkRef.AttributeCollection

                    For Each attId As ObjectId In attCol

                        Dim attRef As AttributeReference = DirectCast(tr.GetObject(attId, OpenMode.ForRead), AttributeReference)

                        Dim str As String = (vbLf & attRef.Tag + "    " & attRef.TextString)

                        ed.WriteMessage(str)

                    Next

                Next

                tr.Commit()

            Catch ex As Autodesk.AutoCAD.Runtime.Exception

                ed.WriteMessage(("Exception: " + ex.Message))

            Finally

                tr.Dispose()

            End Try

        End Sub

Now, I need to change this Sub to a Function as below:

Code:

Private Function ListAttributes (blockName As String) As Boolean

The goal is to list all block attributes if the 'blockName' exists in drawing and return True afterwards. Oppositely it should return me False and print nothing to Editor if blockName does not exist.

Can anyone help me please?

Cheers

loading linetype to drawing

btraemoore — Tue, 14 May 2013 19:10:25 GMT

I'm trying to load a linetype into the active document so i can set a layers linetype to the one i'm trying to load. Now the problem is when i try to load it, autocad is giving me an exception of: eWasOpenForRead. so i tried to send it via the command line and it worked, BUT the application that im writing just ended... does anybody have any idea as to why this is happening?

code:

Code:

        private void defaultLayerFix() {



        // Open a transaction for fixing layers that have the correct name

        // but not the correct color or linetype.

        using(curTrans = db.TransactionManager.StartOpenCloseTransaction()) {



            // Open the layerTable and lineType table for read.

            dwgLyrTbl = curTrans.GetObject(

                db.LayerTableId,OpenMode.ForRead) as LayerTable;

            acLinTbl = curTrans.GetObject(

                db.LinetypeTableId,OpenMode.ForRead) as LinetypeTable;



            // Check each layer against the standard layers DataSet.

            foreach (ObjectId layID in dwgLyrTbl) {

                LayerTableRecord curLayer = curTrans.GetObject(

                    layID,OpenMode.ForRead) as LayerTableRecord;



                var layerFound = _LayerDataTable.Rows.Find(curLayer.Name.ToUpper());

                if(layerFound != null){



                    // Upgrade the layerTable and LayerRecord for write.

                    dwgLyrTbl.UpgradeOpen();

                    curLayer.UpgradeOpen();





                    // modify the color of the layer

                    curLayer.Color = Autodesk.AutoCAD.Colors.Color.FromColorIndex(

                        Autodesk.AutoCAD.Colors.ColorMethod.ByAci, (short)layerFound[2]);



                    // I tried to put it in its own transaction in hopes that it would help.. but it didnt

                    using(Transaction tempTrans = db.TransactionManager.StartOpenCloseTransaction()){



                        // if the layer is not loaded in the current dwg

                        if(!acLinTbl.Has((string)layerFound[3])) 

                            try {

                                db.LoadLineTypeFile((string)layerFound[3], "acad.lin");

                            } catch (Autodesk.AutoCAD.Runtime.Exception e) {

                                Editor ed = acDoc.Editor;

                                ed.WriteMessage(e.Message);

                            }



                    tempTrans.Commit();

                    }



                    // Change current layer linetype to...

                    curLayer.LinetypeObjectId = acLinTbl[(string)layerFound[3]];



                    // Downgrade the layerTable, lineTable and the LayerRecord for read.

                    curLayer.DowngradeOpen();

                    dwgLyrTbl.DowngradeOpen();



                    // Remove the layer from the standards list

                    // so we do not attempt to have redundant layers.

                    for(int i = _LayerDataTable.Rows.Count-1; i >= 0; i--) {

                        System.Data.DataRow dr = _LayerDataTable.Rows[i];

                        if (dr["NAME"] == layerFound[0]){

                            dr.Delete();

                            break;

                        }

                    }

                } else {



                    // if the layer is not in within standard add it to a data set

                    // to fix manually.

                    if(curLayer.Name == "0")

                        continue;

                    var newRow = LayersToFix.NewRow();

                    newRow["NAME"] = curLayer.Name;

                    // TODO get color name..

                    newRow["COLOR"] = curLayer.Color.ColorName;

                    newRow["COLOR_ID"] = 0;

                    LinetypeTableRecord Ltype = (LinetypeTableRecord)curTrans.GetObject(

                        curLayer.LinetypeObjectId,OpenMode.ForRead

                    );

                    newRow["LINETYPE"] = Ltype.Name;

                    LayersToFix.Rows.Add(newRow);

                }

            }

            // accept the changes made in this transaction

            curTrans.Commit();

        }

    }

Accessing a layers linetype name?

btraemoore — Tue, 14 May 2013 14:09:38 GMT

From what i am reading, it takes some work to access a layers linetype name (LineTypeTableRecord.name). Is there another way around this? Is there a way to access the linetype name from within the layer in question?