如何得到多行文本？

• 回答：

  主要用到函数说明：

  
  

  MxDrawXCustomFunction::Mx_GetMTextContent

  
  

  得到多行文本的，不包括格式控制符中的字符串值，详细说明如下：

  
  

  参数	说明
  LONG lId	多行文本的id

  
  

  代码实现如下：

  
  

   If iCommandId = 1 Then
         Set mxUtility = New MxDrawXLib.MxDrawUtility
         Dim getPt As MxDrawXLib.MxDrawPoint
         Set ent = mxUtility.GetEntity(getPt, Chr(13) + Chr(10) + "选择多行文字:")
  
         If (ent Is Nothing) Then
              MsgBox "没有选择实体.."
              Exit Sub
         End If
  
  
           If TypeOf ent Is MxDrawXLib.MxDrawMText Then
                  '当前实体是个文字实体
  
  
                     Dim ret As MxDrawResbuf
  
                  Set ret = MxDrawX1.CallLongParam1("Mx_GetMTextContent", ent.ObjectID)
  
                  If ret.AtString(0) = "Ok" Then
                       MsgBox (ret.AtString(1))
                  End If
  
          End If