topic Dimension Association with VB in .NET Forum

Dimension Association with VB

Anonymous — Tue, 19 Jun 2012 18:27:30 GMT

Hi All,

How do you Associate a dimension to a line using VB. I have not had any results searching for an example of this.

Thank you,

Brian

Re: Dimension Association with VB

Hallex — Tue, 19 Jun 2012 19:27:47 GMT

Take a look at this code, not sure about if this helps, though

http://forums.autodesk.com/autodesk/attachments/autodesk/152/24647/1/Parametric%20VB%20Net%20Code.txt)

~'J'~

Re: Dimension Association with VB

Anonymous — Tue, 19 Jun 2012 19:45:33 GMT

Thanks for the response Hallex. I'll take a look at that.

I'm not looking for parametrics, just normal entities and associative dimensions.

I came across a post about reactors and using LISP, that I'm currently trying to hack something together in VB to operate with reactors. I'm not sure how this will turn out though.

Brian

Re: Dimension Association with VB

Hallex — Tue, 19 Jun 2012 21:02:17 GMT

Ok, I understand, but to create extension dictionary to set associativity

will be spend a lot of work

Here is simple way:

        [CommandMethod("assocdim")]
        public void CreateAssocDim()
        {
            Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;
            Editor ed = doc.Editor;
            PromptEntityOptions peo = new PromptEntityOptions("\nSelect line: ");
            peo.SetRejectMessage("\nYou have to select line only!");
            peo.AddAllowedClass(typeof(Autodesk.AutoCAD.DatabaseServices.Line), true);
            PromptEntityResult res = ed.GetEntity(peo);
            if (res.Status != PromptStatus.OK) return;
            ObjectId id = res.ObjectId;

            using (Transaction trans = db.TransactionManager.StartTransaction())
            {
                try
                {

                    Autodesk.AutoCAD.DatabaseServices.Line ln = trans.GetObject(id, OpenMode.ForRead) as Autodesk.AutoCAD.DatabaseServices.Line;
                    Point3d p1 = ln.StartPoint;
                    Point3d p2 = ln.EndPoint;
                    Point3d txpt = p1;

                    Autodesk.AutoCAD.ApplicationServices.Application.SetSystemVariable("dimassoc", 2);

                    doc.SendStringToExecute("_dimlinear end " + p1.X.ToString() + "," + p1.Y.ToString() + "," + p1.Z.ToString() +
                        " end " + p2.X.ToString() + "," + p2.Y.ToString() + "," + p2.Z.ToString() + " " +
                            txpt.X.ToString() + " " + txpt.Y.ToString() + "," + txpt.Z.ToString() + " ", true, false, false);


                    trans.Commit();
                }

                catch (System.Exception ex)
                {
                    MessageBox.Show(ex.ToString());
                }
            }
        }

If this is not enough so say me about

~'J'~

Re: Dimension Association with VB

jeff — Tue, 19 Jun 2012 23:23:25 GMT

Does setting the DIMASSOC variable do wht you need?

Re: Dimension Association with VB

Hallex — Wed, 20 Jun 2012 04:22:38 GMT

Hi Jeff

The DIMASSOC variable doesn't affect creation of the associative dimension

usual way, unfortunately

~'J'~

Re: Dimension Association with VB

Anonymous — Wed, 20 Jun 2012 13:07:33 GMT

Thank you Hallex !

As you already know, I'm sure, that worked.

Nice and simple.

I've read many of your other posts to peoples questions and pick up on many things. Your a good guy to have on here.

I've been with Autocad since v2.17 and have programed with it extensively, but this .Net stuff is a real challenge to get the hang of.

Makes me feel like a Knob / Newbie again.

Thanks,

Brian

Re: Dimension Association with VB

Hallex — Wed, 20 Jun 2012 13:25:38 GMT

Brian, thanks for your warm words

I'm happy if I can help,

Happy coding 🙂

~'J'~