topic Re : Linetype question in .NET Forum

Linetype question

J-Rocks — Thu, 16 Apr 2015 05:22:11 GMT

Hello guys

I wonder how to change or set the Line type of line object in my codes below .

Dim acLine As Line = New Line(New Point3d(0, 0, 0), New Point3d(12, 3, 0))
                acLine.SetDatabaseDefaults()
                acLine.ColorIndex = 1

Can someone help me and explain the way to get that working ?

Thanks in advance .

John

Re : Linetype question

_gile — Thu, 16 Apr 2015 06:26:27 GMT

Hi,

Just set the linetype property of the entity:

acLine.Linetype = "HIDDEN";

but you'd rather check if the line type is loaded before.

LinetypeTable ltt =
    (LinetypeTable)tr.GetObject(db.LinetypeTableId, OpenMode.ForRead);
if (ltt.Has("HIDDEN"))
    acLine.Linetype = "HIDDEN";

Re : Linetype question

J-Rocks — Thu, 16 Apr 2015 06:41:38 GMT

Thank you gile .

I am sorry I am a new with VB.net and C# .

I added your codes into the program but I failed . Can you please just include your codes in my prorgam ?

Public Class rocks
        <CommandMethod("AddLine")>
        Public Sub AddLine()
            '' Get the current document and database
            Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
            Dim acCurDb As Database = acDoc.Database
            '' Start a transaction
            Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
                '' Open the Block table for read
                Dim acBlkTbl As BlockTable
                acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)
                '' Open the Block table record Model space for write
                Dim acBlkTblRec As BlockTableRecord
                acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace),
                                                                       OpenMode.ForWrite)
                Dim acLine As Line = New Line(New Point3d(0, 0, 0), New Point3d(12, 3, 0))
                acLine.SetDatabaseDefaults()
                acLine.ColorIndex = 1
                'acLine.Linetype = 
                acLine.LineWeight = LineWeight.LineWeight040
                '' Add the new object to the block table record and the transaction
                acBlkTblRec.AppendEntity(acLine)
                acTrans.AddNewlyCreatedDBObject(acLine, True)
                '' Save the new object to the database
                acTrans.Commit()
            End Using
        End Sub
    End Class

thank you very much.

Re : Linetype question

J-Rocks — Thu, 16 Apr 2015 06:58:06 GMT

I think I added your codes correctly but I need to load "HIDDEN" linetype if it is not already loaded , how to do that ?

 Dim ltt As LinetypeTable
                ltt = acTrans.GetObject(acCurDb.LinetypeTableId, OpenMode.ForRead)
                If (ltt.Has("HIDDEN")) Then
                    acLine.Linetype = "HIDDEN"
                   Else ......
                End If

Thank you

Re : Linetype question

_gile — Thu, 16 Apr 2015 08:55:52 GMT

You can try (not sure about VB syntax):

If Not ltt.Has("HIDDEN") Then
    acCurDb.LoadLineTypeFile("HIDDEN", "acad.lin")
End If
acLine.Linetype = "HIDDEN"

You may have a look to the docs.

Re : Linetype question

J-Rocks — Thu, 16 Apr 2015 10:26:33 GMT

@Anonymous_gile wrote:
You can try (not sure about VB syntax):
If Not ltt.Has("HIDDEN") Then
    acCurDb.LoadLineTypeFile("HIDDEN", "acad.lin")
End If
acLine.Linetype = "HIDDEN"
You may have a look to the docs.

That works very well , thank you Gile for your great help .

and thanks for the link that helps much to understand the complete process .