topic Re: Error inserting parallel lines with angle in .NET Forum

Error inserting parallel lines with angle

Anonymous — Thu, 21 Oct 2010 12:31:27 GMT

Friends,

Can any of you help me with the code below?
I can insert a bracket of 51 mm x 6.3 mm horizontally.
If I try to enter angle values are not correct.
How can I leave the values prevail even with angle?

Hugs,
Josano

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Geometry;
using AcadApp = Autodesk.AutoCAD.ApplicationServices.Application;
using AcDb = Autodesk.AutoCAD.DatabaseServices.TransactionManager;

namespace ClassLibrary9
{
public class Class1
{
[CommandMethod("ssa")]
public static void GetPointsFromUser()
{
// le o banco de dados corrente e inicia o gerenciador de transações
Document acDoc = Application.DocumentManager.MdiActiveDocument;
Database acCurDb = acDoc.Database;

PromptPointResult pPtRes;
PromptPointOptions pPtOpts = new PromptPointOptions("");

// Mensagem para ponto inicial
pPtOpts.Message = "\nSelecione o ponto inicial da linha: ";
pPtRes = acDoc.Editor.GetPoint(pPtOpts);
Point3d ptStart = pPtRes.Value;

// Se o usuario pressionar esc ou cancelar o comando sai
if (pPtRes.Status == PromptStatus.Cancel) return;

// Mensagem para ponto final
pPtOpts.Message = "\nSelecione o ponto final da linha: ";
pPtOpts.UseBasePoint = true;
pPtOpts.BasePoint = ptStart;
pPtRes = acDoc.Editor.GetPoint(pPtOpts);
Point3d ptEnd = pPtRes.Value;

if (pPtRes.Status == PromptStatus.Cancel) return;

// Inicia a transação
using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())
{
BlockTable acBlkTbl;
BlockTableRecord acBlkTblRec;

// Abre o model space para escrever
acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId,
OpenMode.ForRead) as BlockTable;

acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],
OpenMode.ForWrite) as BlockTableRecord;

Line acline1 = new Line(ptStart, ptEnd);
Line acline2 = new Line(ptStart, ptEnd);
Line acline3 = new Line(ptStart, ptEnd);
acline2.StartPoint = new Point3d(acline2.StartPoint.X , acline2.StartPoint.Y - 44.7, 0);
acline2.EndPoint = new Point3d(acline2.EndPoint.X , acline2.EndPoint.Y - 44.7, 0);
acline3.StartPoint = new Point3d(acline3.StartPoint.X , acline3.StartPoint.Y - 51, 0);
acline3.EndPoint = new Point3d(acline3.EndPoint.X , acline3.EndPoint.Y - 51, 0);

acline1.SetDatabaseDefaults();
acline2.SetDatabaseDefaults();
acline3.SetDatabaseDefaults();
// Adicionar as linhas ao desenho
acBlkTblRec.AppendEntity(acline1);
acBlkTblRec.AppendEntity(acline2);
acBlkTblRec.AppendEntity(acline3);
acTrans.AddNewlyCreatedDBObject(acline1, true);
acTrans.AddNewlyCreatedDBObject(acline2, true);
acTrans.AddNewlyCreatedDBObject(acline3, true);
// Confirma as alterações
acTrans.Commit();
}
}
}
}

Re: Error inserting parallel lines with angle

Hallex — Thu, 21 Oct 2010 13:06:41 GMT

Working good in A2009

Try to set ORTHOMODE system variable to 1 before

And also, better yet to use offset in this case

IMO

See docs about

I.e.

http://docs.autodesk.com/ACD/2010/ENU/AutoCAD%20.NET%20Developer's%20Guide/index.html?url=WS1a9193826455f5ff2566ffd511ff6f8c7ca-4875.htm,topicNumber=d0e51

(Type offset in the search window in there)

~'J'~

Re: Error inserting parallel lines with angle

Anonymous — Thu, 21 Oct 2010 14:01:11 GMT

net makes the use of vectors very easy. You can make a new vector3d by subtacting the strtpoint from the endpoint, then use getnormal() to mormalize it (unit vector) then multiply the vector by the required distance. now add that vector to your endpoint

Re: Error inserting parallel lines with angle

Anonymous — Thu, 21 Oct 2010 14:29:38 GMT

I'm not an expert but doens't AutoCAD needs radians for an angle.

Try to convert the angle using this code?

pseudocode:

angle = Convert.ToDouble(45) * Math.PI / 180; 45 is the angle given by the user.

I don't know this helps but give it a try.

Kind regards

Re: Error inserting parallel lines with angle

Anonymous — Thu, 21 Oct 2010 18:04:35 GMT

Do not forget what Kerry told you abot using offset.

If you are using just line GetTransformedCopy********* does a shallow clone so use on basic entites.

And Mline and MlineStyle

Re: Error inserting parallel lines with angle

Anonymous — Fri, 22 Oct 2010 11:58:37 GMT

Friends,

I made some modifications to the code with the tips.

I can now insert with angle but for some reason the values are only correct when I insert horizontally.

Below the code changed, some of you know where I could be wrong?

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using Autodesk.AutoCAD.Runtime;

using Autodesk.AutoCAD.DatabaseServices;

using Autodesk.AutoCAD.ApplicationServices;

using Autodesk.AutoCAD.EditorInput;

using Autodesk.AutoCAD.Geometry;

using AcadApp = Autodesk.AutoCAD.ApplicationServices.Application;

using AcDb = Autodesk.AutoCAD.DatabaseServices.TransactionManager;

namespace ClassLibrary9

{

public class Class1

{

[CommandMethod("ssa")]

public static void GetPointsFromUser()

{

// le o banco de dados corrente e inicia o gerenciador de transações

Document acDoc = Application.DocumentManager.MdiActiveDocument;

Database acCurDb = acDoc.Database;

PromptPointResult pPtRes;

PromptPointOptions pPtOpts = new PromptPointOptions("");

// Mensagem para ponto inicial

pPtOpts.Message = "\nSelecione o ponto inicial da linha: ";

pPtRes = acDoc.Editor.GetPoint(pPtOpts);

Matrix3d UCS = acDoc.Editor.CurrentUserCoordinateSystem;

Point3d ptStart = pPtRes.Value.TransformBy(UCS);

// Se o usuario pressionar esc ou cancelar o comando sai

if (pPtRes.Status == PromptStatus.Cancel) return;

// Mensagem para ponto final

pPtOpts.Message = "\nSelecione o ponto final da linha: ";

pPtOpts.UseBasePoint = true;

pPtOpts.BasePoint = ptStart;

pPtRes = acDoc.Editor.GetPoint(pPtOpts);

Point3d ptEnd = pPtRes.Value;

if (pPtRes.Status == PromptStatus.Cancel) return;

// Inicia a transação

using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())

{

BlockTable acBlkTbl;

BlockTableRecord acBlkTblRec;

// Abre o model space para escrever

acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId,

OpenMode.ForRead) as BlockTable;

acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],

OpenMode.ForWrite) as BlockTableRecord;

PromptAngleOptions angOpts = new PromptAngleOptions("\nSelecione o angulo...");

angOpts.BasePoint = ptStart;

PromptDoubleResult angRes = acDoc.Editor.GetAngle(angOpts);

Line acline1 = new Line(ptStart, ptEnd);

acline1.Layer = "CT4";

Line acline2 = new Line(ptStart, ptEnd);

acline2.Layer = "TR2";

Line acline3 = new Line(ptStart, ptEnd);

acline3.Layer = "CT4";

acline2.StartPoint = new Point3d(acline2.StartPoint.X , acline2.StartPoint.Y - 44.7, 0);

acline2.EndPoint = new Point3d(acline2.EndPoint.X , acline2.EndPoint.Y - 44.7, 0);

acline3.StartPoint = new Point3d(acline3.StartPoint.X , acline3.StartPoint.Y - 51, 0);

acline3.EndPoint = new Point3d(acline3.EndPoint.X , acline3.EndPoint.Y - 51, 0);

acline1.SetDatabaseDefaults();

acline2.SetDatabaseDefaults();

acline3.SetDatabaseDefaults();

// Adicionar as linhas ao desenho

acBlkTblRec.AppendEntity(acline1);

acBlkTblRec.AppendEntity(acline2);

acBlkTblRec.AppendEntity(acline3);

acTrans.AddNewlyCreatedDBObject(acline1, true);

acTrans.AddNewlyCreatedDBObject(acline2, true);

acTrans.AddNewlyCreatedDBObject(acline3, true);

// Confirma as alterações

acTrans.Commit();

}

Re: Error inserting parallel lines with angle

Anonymous — Mon, 25 Oct 2010 14:39:19 GMT

You either need 2 points or 1 point and an angle.

Then use some math to establish the end points.

What are you doing with the angle?

Re: Error inserting parallel lines with angle

Anonymous — Tue, 02 Nov 2010 20:00:49 GMT

Bryco ... Off subject, but was unsure how to reach you regarding this old post vbAssoc

I'm attempting to use the vbAssoc as was wondering if I might contact you with any questions I may have that surface while attempting to use this powerful function.

Thanks,

Brian

Re: Error inserting parallel lines with angle

Anonymous — Wed, 03 Nov 2010 00:44:32 GMT

Sure, if I can. Since it uses lisp and I don't it may get a little tricky, I think a post in the vba section of the swamp would get you some help.

Re: Error inserting parallel lines with angle

Hallex — Wed, 03 Nov 2010 15:00:31 GMT

Try this instead

      [CommandMethod("parlines")]
        public static void GetPointsFromUser()
        {
            // le o banco de dados corrente e inicia o gerenciador de transações.
            Document acDoc = Application.DocumentManager.MdiActiveDocument;
            Database acCurDb = acDoc.Database;
            Editor ed = acDoc.Editor;
            try
            {
                PromptPointResult pPtRes;
                PromptPointOptions pPtOpts = new PromptPointOptions("");
                // Mensagem para ponto inicial.
                pPtOpts.Message = "\nSelecione o ponto inicial da linha: ";
                pPtRes = acDoc.Editor.GetPoint(pPtOpts);
                if (pPtRes.Status == PromptStatus.Cancel) return;
                Matrix3d UCS = acDoc.Editor.CurrentUserCoordinateSystem;
                Point3d ptStart = pPtRes.Value.TransformBy(UCS);
                // Se o usuario pressionar esc ou cancelar o comando sai.

                // Mensagem para ponto final.
                pPtOpts.Message = "\nSelecione o ponto final da linha: ";
                pPtOpts.UseBasePoint = true;
                pPtOpts.BasePoint = ptStart;
                pPtRes = acDoc.Editor.GetPoint(pPtOpts);

                if (pPtRes.Status == PromptStatus.Cancel) return;
                Point3d ptEnd = pPtRes.Value.TransformBy(UCS);
                // Inicia a transação.
                using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())
                {
                    BlockTable acBlkTbl;
                    BlockTableRecord acBlkTblRec;
                    // Abre o model space para escrever.
                    acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId,
                                                 OpenMode.ForRead) as BlockTable;
                    acBlkTblRec = acTrans.GetObject(acCurDb.CurrentSpaceId,
                                                    OpenMode.ForWrite) as BlockTableRecord;
                   
                    Line acline1 = new Line(ptStart, ptEnd);
                    double ang = acline1.Angle;//<-- angulo
                    acline1.Layer = "CT4";
                    Line acline2 = new Line(ptStart, ptEnd);
                    acline2.Layer = "TR2";
                    Line acline3 = new Line(ptStart, ptEnd);
                    acline3.Layer = "CT4";
                    acline2.StartPoint = PolarPoint(acline2.StartPoint, ang - Math.PI / 2, 44.7);
                    acline2.EndPoint = PolarPoint(acline2.EndPoint, ang - Math.PI / 2, 44.7);
                    acline3.StartPoint = PolarPoint(acline2.StartPoint, ang - Math.PI / 2, 51.0);
                    acline3.EndPoint = PolarPoint(acline2.EndPoint, ang - Math.PI / 2, 51.0);

                    acline1.SetDatabaseDefaults();
                    acline2.SetDatabaseDefaults();
                    acline3.SetDatabaseDefaults();
                    // Adicionar as linhas ao desenho.
                    acBlkTblRec.AppendEntity(acline1);
                    acBlkTblRec.AppendEntity(acline2);
                    acBlkTblRec.AppendEntity(acline3);
                    acTrans.AddNewlyCreatedDBObject(acline1, true);
                    acTrans.AddNewlyCreatedDBObject(acline2, true);
                    acTrans.AddNewlyCreatedDBObject(acline3, true);
                    // Confirma as alterações.
                    acTrans.Commit();
                }
            }
            catch (Autodesk.AutoCAD.Runtime.Exception ex)
            {

                ed.WriteMessage(string.Format(
                "Error: {0}\nTrace: {1}", ex.Message, ex.StackTrace));
            }
     
            }

        // by Tony Tanzillo
        public static Point3d PolarPoint(Point3d basepoint, double angle, double distance)
        {
            return new Point3d(
            basepoint.X + (distance * Math.Cos(angle)),
            basepoint.Y + (distance * Math.Sin(angle)),
            basepoint.Z);
        }