Hello
I want to assign nomenclature to each polyline while drawing it. Nomenclature can vary. I know how to label line with dtext. but confused with polyine.
please Find Attach dwg for better understanding.
code using to draw polyline is as below:
'get current document
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim db As Database = doc.Database
'lock document as using modeless form
Using docLock As DocumentLock = doc.LockDocument
Using tx As Transaction = db.TransactionManager.StartTransaction()
'open blocktable
Dim bt As BlockTable = tx.GetObject(db.BlockTableId, OpenMode.ForRead)
'open model space for write
Dim ms As BlockTableRecord = tx.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
'converte text value
Dim uWidth As Double = CDbl(TextBox1.Text)
Dim base As Double = CDbl(TextBox2.Text)
Dim tHeight As Double = CDbl(TextBox3.Text)
Dim Xx As Double = ((base - uWidth) / 2)
' Dim pt1 As Point2d = New Point2d(0, 0)
Dim pt1 As Point2d = New Point2d(0, 0)
Dim pt2 As Point2d = New Point2d(base / 2, tHeight)
Dim pt3 As Point2d = New Point2d(base, 0)
Dim pt4 As Point2d = New Point2d(base - Xx, tHeight)
Dim pt5 As Point2d = New Point2d(0 + Xx, tHeight)
'draw traiangle
Dim tra As Polyline = New Polyline()
tra.AddVertexAt(0, pt1, 0, 0, 0)
'wanna label here
?????
tra.AddVertexAt(1, pt2, 0, 0, 0)
tra.AddVertexAt(2, pt3, 0, 0, 0)
tra.AddVertexAt(3, pt4, 0, 0, 0)
tra.AddVertexAt(4, pt5, 0, 0, 0)
tra.AddVertexAt(5, pt1, 0, 0, 0)
tra.AddVertexAt(6, pt3, 0, 0, 0)
tra.Closed = True
'add triangle in model space
ms.AppendEntity(tra)
tx.AddNewlyCreatedDBObject(tra, True)
tx.Commit()
End Using
End Using
Solved! Go to Solution.
Solved by mzakiralam. Go to Solution.
Hello
with below code iam able to assign label to line:
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);
}
//labeling
Matrix3d mtx = ed.CurrentUserCoordinateSystem;
Point3d mp = acLine.GetPointAtParameter(acLine.EndParam / 2).TransformBy(mtx);
double ang = acLine.Angle;
if ((ang > Math.PI / 2) && (ang < Math.PI * 1.5))
{
ang = ang + Math.PI;
}
Point3d tp = PolarPoint(mp, ang + Math.PI / 2, ((db.Textsize) + 100)).TransformBy(mtx);
DBText dtext = new DBText();
dtext.SetDatabaseDefaults();
dtext.TextString = string.Format("{0:f" + db.Dimdec.ToString() + "}", acLine.Length);
//<---change text string to your needs
dtext.Position = tp;
dtext.Height = 120;
dtext.HorizontalMode = TextHorizontalMode.TextMid;
dtext.VerticalMode = TextVerticalMode.TextBottom;
dtext.Rotation = ang;
dtext.AlignmentPoint = tp;
dtext.AdjustAlignment(db);
BlockTableRecord btr = (BlockTableRecord)tx.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);
btr.AppendEntity(dtext);
tx.AddNewlyCreatedDBObject(dtext, true);
But now i want to label polyline issue it is single plyline.
HI,
Okay, I got your point now. As you know how to draw text for a line so it will be easier for you now. What you need to do just cast the polyline then you will be able to get all vertices of that polyline. If you get all vertex then I think your problem will be solved. Please see below code snippet which will help you to get the polyline and its vertices.
<CommandMethod("tst")> Public Sub TestPoly() Dim doc As Document = Application.DocumentManager.MdiActiveDocument Dim db As Database = doc.Database Dim ed As Editor = doc.Editor Dim peo As PromptEntityOptions = New PromptEntityOptions(vbLf & "Select a polyline to label it:") Dim per As PromptEntityResult = ed.GetEntity(peo) Using tx As Transaction = db.TransactionManager.StartTransaction() Dim ent As Entity = tx.GetObject(per.ObjectId, OpenMode.ForRead) If TypeOf ent Is Polyline Then Dim pl As Polyline = TryCast(ent, Polyline) Dim vn As Integer = pl.NumberOfVertices For i = 0 To vn - 2 'get adjacent vertices of a polyline Dim pt1 As Point2d = pl.GetPoint2dAt(i) Dim pt2 As Point2d = pl.GetPoint2dAt(i + 1) 'do what you need Next End If tx.Commit() End Using End Sub
if you want to explode a entity , you can have a look on below link:
But I would not recommend you to do so. But I do not understand, if you have a vertex why don't you add a label around there?
please try this code. I did a trick. I create a temporary line to get its angle. but did not add it to model space.
<CommandMethod("tst")> Public Sub TestPolyline() Dim doc As Document = Application.DocumentManager.MdiActiveDocument Dim db As Database = doc.Database Dim ed As Editor = doc.Editor Dim peo As PromptEntityOptions = New PromptEntityOptions("Select a polyline:") Dim per As PromptEntityResult = ed.GetEntity(peo) If per.Status <> PromptStatus.OK Then Return End If Using tx As Transaction = db.TransactionManager.StartTransaction() Dim ent As Entity = tx.GetObject(per.ObjectId, OpenMode.ForRead) If TypeOf ent Is Polyline Then Dim pl As Polyline = TryCast(ent, Polyline) Dim vn As Integer = pl.NumberOfVertices For i = 0 To vn - 2 Dim pt1 As Point2d = pl.GetPoint2dAt(i) Dim pt2 As Point2d = pl.GetPoint2dAt(i + 1) Dim ln As Line = New Line(New Point3d(pt1.X, pt1.Y, 0), New Point3d(pt2.X, pt2.Y, 0)) Dim ang As Double = ln.Angle Dim dtxt As DBText = New DBText() dtxt.Position = New Point3d((pt1.X + pt2.X) / 2, (pt1.Y + pt2.Y) / 2, 0) dtxt.Height = 2.5 dtxt.TextString = "label" & i dtxt.Rotation = ang Dim bt As BlockTable = tx.GetObject(db.BlockTableId, OpenMode.ForRead) Dim btr As BlockTableRecord = tx.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite) btr.AppendEntity(dtxt) tx.AddNewlyCreatedDBObject(dtxt, True) Next End If tx.Commit() End Using End Sub
HI , it is possible. Just see my code. In one place I had to cast the polyline from selection.
Dim pl As Polyline = TryCast(ent, Polyline)
In your case, when you create a polyline, just use that polyline to get all that vertices which I did later. Please see my below code, where I will create a polyline and later add laber for that.
<CommandMethod("tst")> Public Sub TestPoly() Dim doc As Document = Application.DocumentManager.MdiActiveDocument Dim db As Database = doc.Database Using tx As Transaction = db.TransactionManager.StartTransaction() Dim bt As BlockTable = tx.GetObject(db.BlockTableId, OpenMode.ForRead) Dim btr As BlockTableRecord = tx.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite) 'add polyline Dim pl As Polyline = New Polyline() pl.AddVertexAt(0, New Point2d(0, 0), 0, 0, 0) pl.AddVertexAt(1, New Point2d(5, 0), 0, 0, 0) pl.AddVertexAt(2, New Point2d(5, 5), 0, 0, 0) pl.AddVertexAt(3, New Point2d(0, 0), 0, 0, 0) btr.AppendEntity(pl) tx.AddNewlyCreatedDBObject(pl, True) 'add label for that polyline Dim vn As Integer = pl.NumberOfVertices For i = 0 To vn - 2 Dim pt1 As Point2d = pl.GetPoint2dAt(i) Dim pt2 As Point2d = pl.GetPoint2dAt(i + 1) Dim ln As Line = New Line(New Point3d(pt1.X, pt1.Y, 0), New Point3d(pt2.X, pt2.Y, 0)) Dim ang As Double = ln.Angle Dim dtxt As DBText = New DBText() dtxt.Position = New Point3d((pt1.X + pt2.X) / 2, (pt1.Y + pt2.Y) / 2, 0) dtxt.Height = 0.1 dtxt.TextString = "label" & i dtxt.Rotation = ang btr.AppendEntity(dtxt) tx.AddNewlyCreatedDBObject(dtxt, True) Next tx.Commit() End Using End Sub
Thank you so much... its what exactly i want... Your code always help me... Thank you once again.