VB.Net LineType Dialog Box

[CaveMan]

Good Day

 

I am looking to get the linetype name from the AutoCAD LineType dialog Box, as shown below:

 

 

I want to use the LineType name - the code i have generated only returns the ID as a string - unable to find what parameter will return the line name as a string??

 

[size=2][/size][size=2][color=#0000ff][size=2][color=#0000ff]Private[/color][/size][/color][/size][size=2] [/size][size=2][color=#0000ff][size=2][color=#0000ff]Sub[/color][/size][/color][/size][size=2] But_LTCon_Click([/size][size=2][color=#0000ff][size=2][color=#0000ff]ByVal[/color][/size][/color][/size][size=2] sender [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff][size=2][color=#0000ff]ByVal[/color][/size][/color][/size][size=2] e [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff][size=2][color=#0000ff]Handles[/color][/size][/color][/size][size=2] But_LTCon.Click
[/size][size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] xLineType [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] [/size][size=2][color=#0000ff][size=2][color=#0000ff]String[/color][/size][/color][/size]
[size=2]xLineType = ShowLineTypeDialog()
Txt_LTCon.Text = xLineType.ToString
LtypeCon = xLineType.ToString
[/size][size=2][color=#0000ff][size=2][color=#0000ff]End[/color][/size][/color][/size][size=2] [/size][size=2][color=#0000ff][size=2][color=#0000ff]Sub
[/color][/size][/color][/size]

 

[size=2][/size][size=2][color=#0000ff][size=2][color=#0000ff]Public[/color][/size][/color][/size][size=2] [/size][size=2][color=#0000ff][size=2][color=#0000ff]Function[/color][/size][/color][/size][size=2] ShowLineTypeDialog()
[/size][size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] acDoc [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] Document = Application.DocumentManager.MdiActiveDocument
[/size][size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] acCurDb [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] Database = acDoc.Database
[/size][size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] xLIneTypeDialog [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] [/size][size=2][color=#0000ff][size=2][color=#0000ff]New[/color][/size][/color][/size][size=2] LinetypeDialog()
[/size][size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] dr [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] System.Windows.Forms.DialogResult
dr = xLIneTypeDialog.ShowDialog()
[/size][size=2][color=#0000ff][size=2][color=#0000ff]If[/color][/size][/color][/size][size=2] dr = Windows.Forms.DialogResult.OK [/size][size=2][color=#0000ff][size=2][color=#0000ff]Then
[/color][/size][/color][/size][size=2][/size][size=2][color=#0000ff][size=2][color=#0000ff]Dim[/color][/size][/color][/size][size=2] SelLineType [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] [/size][size=2][color=#0000ff][size=2][color=#0000ff]String[/color][/size][/color][/size]
[size=2]SelLineType = xLIneTypeDialog[color=red][b].Linetype[/b][/color].ToString ([color=red]Returns ID want the Name?[/color][color=black])[/color]
[/size][size=2][color=#0000ff][size=2][color=#0000ff]Return[/color][/size][/color][/size][size=2] SelLineType
[/size][size=2][color=#0000ff][size=2][color=#0000ff]ElseIf[/color][/size][/color][/size][size=2] dr = Windows.Forms.DialogResult.Cancel [/size][size=2][color=#0000ff][size=2][color=#0000ff]Then
[/color][/size][/color][/size][size=2][/size][size=2][color=#0000ff][size=2][color=#0000ff]Return[/color][/size][/color][/size][size=2] [/size][size=2][color=#a31515][size=2][color=#a31515]"Cancell"
[/color][/size][/color][/size][size=2][/size][size=2][color=#0000ff][size=2][color=#0000ff]End[/color][/size][/color][/size][size=2] [/size][size=2][color=#0000ff][size=2][color=#0000ff]If
[/color][/size][/color][/size][size=2][/size][size=2][color=#0000ff][size=2][color=#0000ff]End[/color][/size][/color][/size][size=2] [/size][size=2][color=#0000ff][size=2][color=#0000ff]Function
[/color][/size][/color][/size]

 

Any Help - Much Appreciated

 

Regards

CaveMan

[fixo]

Perhaps like this (A2009)

 
      Public Function ShowLineTypeDialog() As ObjectId
           Dim xLIneTypeDialog As New Autodesk.AutoCAD.Windows.LinetypeDialog()
           Dim dr As System.Windows.Forms.DialogResult
           dr = xLIneTypeDialog.ShowDialog()
           If dr = System.Windows.Forms.DialogResult.OK Then
               Dim SelLineType As ObjectId = xLIneTypeDialog.Linetype
               Return SelLineType
           ElseIf dr = System.Windows.Forms.DialogResult.Cancel Then
               Return ObjectId.Null
           End If
       End Function
       <CommandMethod("LTDia")> _
       Public Sub TestLinetypeDialog()
           Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
           Dim db As Database = doc.Database
           Try
               Using tr As Transaction = db.TransactionManager.StartTransaction
                   Dim ltt As LinetypeTable = tr.GetObject(db.LinetypeTableId, OpenMode.ForRead)
                   Dim ltID As ObjectId = ShowLineTypeDialog()
                   Dim ltr As LinetypeTableRecord = TryCast(tr.GetObject(ltID, OpenMode.ForRead, False), LinetypeTableRecord)
                   If ltr IsNot Nothing Then
                       Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog(ltr.Name + vbLf + ltr.AsciiDescription)
                   End If
               End Using
           Catch ex As Autodesk.AutoCAD.Runtime.Exception
               doc.Editor.WriteMessage(ex.Message)
           End Try
       End Sub

 

~'J'~

[CaveMan]

Good Day

 

Much Appreciate your example code

My application running fine with thanks to you.

 

Enjoy the weekend

Regards

CaveMan

[fixo]

Glad I could help

Have a nice weekend too

 

~'J'~