scf0413 发表于 2010-12-29 16:48:51

求助：文字问题

基于vb.net 的cad开发 在cad命令行显示选择文字内容的那句代码怎么写？请大侠赐教

雪山飞狐_lzh 发表于 2010-12-29 17:48:08

Editor.WriteMessage Method

scf0413 发表于 2010-12-29 19:46:09

我是通过选择之后 让文字在命令行显示 并显示文字内容 跟文字数量 还请飞狐大哥 给点提示 在此先谢谢了！
小弟是初学者

雪山飞狐_lzh 发表于 2010-12-29 20:17:21

好久没用VB了    <CommandMethod("vt1")> _
    Public Sub Test1()

      Dim doc = Application.DocumentManager.MdiActiveDocument
      Dim ed = doc.Editor
      Dim db = doc.Database

      Dim resSel = ed.GetSelection(New SelectionFilter(New TypedValue() {New TypedValue(0, "text")}))
      If (resSel.Status <> PromptStatus.OK) Then Return

      Using tr = db.TransactionManager.StartTransaction

            For Each id As ObjectId In resSel.Value.GetObjectIds()

                Dim txt As DBText = tr.GetObject(id, OpenMode.ForRead)
                ed.WriteMessage(vbCrLf + txt.TextString)

            Next

      End Using

    End Sub

scf0413 发表于 2010-12-29 21:51:04

感谢飞狐大哥！
页: [1]
查看完整版本: 求助：文字问题