用C# 获取天正文字内容

你有种再说一遍

试试,我也是根据网友说的制作的,没有验证过
https://www.cnblogs.com/JJBox/p/18833875

tiancao100

这是我引用T20V10的文件， 类库，framework 4.7.2，单行文字就是Text， 多行文字没找到。我上面的回复是错的抱歉。

tiancao100

VB.net 读取天正建筑多行文字方法1~3
https://mp.weixin.qq.com/s/4GoyC3PZf5PuG3aF-y4AsQ

读取多行文字内容

2. Shared Function GetTchMText(ByVal ID As ObjectId) As String
   
3.         Dim doc As Document = Application.DocumentManager.MdiActiveDocument
   
4.         Dim ed As Editor = doc.Editor
   
5.         Dim ename As Long() = New Long() {0, 0}
   
6.         Dim result As Integer = acdbGetAdsName_R23_64(ename, ID)
   
7.         Dim rb As New ResultBuffer()
   
8.         Interop.AttachUnmanagedObject(rb, acdbEntGet(ename), True)
   
9.         Dim iter As ResultBufferEnumerator = rb.GetEnumerator()
   
10.         Dim DXF As New ArrayList
    
11.         While iter.MoveNext()
    
12.             Dim TmpVal As TypedValue = iter.Current
    
13.             If TmpVal.TypeCode = 1 Then
    
14.                 Dim strValue As String = (If(TmpVal.Value IsNot Nothing, TmpVal.Value.ToString(), "*Nothing*"))
    
15.                 Return strValue
    
16.             Else
    
17.                 Continue While
    
18.             End If
    
19.         End While
    
20.         Return Nothing
    
21.     End Function

Shared Function GetTchMText(ByVal ID As ObjectId) As String<br />         Dim doc As Document = Application.DocumentManager.MdiActiveDocument<br />         Dim ed As Editor = doc.Editor<br />         Dim ename As Long() = New Long() {0, 0}<br />         Dim result As Integer = acdbGetAdsName_R23_64(ename, ID)<br />         Dim rb As New ResultBuffer()<br />         Interop.AttachUnmanagedObject(rb, acdbEntGet(ename), True)<br />         Dim iter As ResultBufferEnumerator = rb.GetEnumerator()<br />         Dim DXF As New ArrayList<br />         While iter.MoveNext()<br />             Dim TmpVal As TypedValue = iter.Current<br />             If TmpVal.TypeCode = 1 Then<br />                 Dim strValue As String = (If(TmpVal.Value IsNot Nothing, TmpVal.Value.ToString(), "*Nothing*"))<br />                 Return strValue<br />             Else<br />                 Continue While<br />             End If<br />         End While<br />         Return Nothing<br />     End Function

James_

tiancao100 发表于 2025-5-7 09:55
这是我引用T20V10的文件， 类库，framework 4.7.2，单行文字就是Text， 多行文字没找到。我上面的回复是错 ...

你电脑是什么系统，我Windows11
C:\Users\Administrator\source\repos\ClassLibrary8\ClassLibrary8\obj\Debug\Interop.COMKERNALLib.dll这个路径找不到这个文件啊，用Everything搜了也搜不到。

tiancao100

James_ 发表于 2025-5-7 13:49
你电脑是什么系统，我Windows11
C:%users\Administrator\source\repos\ClassLibrary8\ClassLibrary8\obj ...

引用tch10_com23.dll时候自动生成

James_

tiancao100 发表于 2025-5-7 15:40
引用tch10_com23.dll时候自动生成

这个文件引用不了啊，跳错误见我前面几楼。

James_

tiancao100 发表于 2025-5-7 15:40
引用tch10_com23.dll时候自动生成

引用tch10_com23.dll的时候，跳错：未能添加对“C:\Tangent\TArchT20V10\sys23x64\tch10_com23.dll”的 引用。请确保此文件可访问并且是一个有效的程序集或COM组件。

James_

tiancao100 发表于 2025-5-7 09:55
这是我引用T20V10的文件， 类库，framework 4.7.2，单行文字就是Text， 多行文字没找到。我上面的回复是错 ...

框架改成4.7.2了还是无法添加引用。