VB。“网络线型”对话框

CaveMan · 发表于 2022-7-6 22:34:13

很好的一天

我希望从AutoCAD线型对话框中获取线型名称，如下所示：

我想使用线型名称——我生成的代码只以字符串形式返回ID——找不到哪个参数将以字符串形式返回线型名称？？


[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]

copy


[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]

任何帮助-非常感谢

当做
穴居人

fixo · 发表于 2022-7-6 22:56:28

也许是这样（A22009）

copy

 
      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