[编程交流] 获取块参照内的多行文字

(defun c:FindMT()
 (setq bl (tblnext "BLOCK" 1))
 (while bl
   (setq name (cdr (assoc 2 bl)) mt nil)
   (princ (strcat "\n\n == Block: " name " =="))
   (setq ent  (tblobjname "BLOCK" name))
   (while ent
        (setq ent (entnext ent))
         (if ent
     (progn (setq el (entget ent))
           (if (= "MTEXT" (cdr (assoc 0 el)))
         (progn
           (setq mt 1)
           (princ (strcat "\n" (cdr (assoc 1 el))))
           )
         )
       )
     )
     )
   (if (not mt) (princ " >> no MTEXT"))
   (setq bl (tblnext "BLOCK"))
   )
 (princ)
 )

//
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Runtime;
using acApp = Autodesk.AutoCAD.ApplicationServices.Application;
[assembly: CommandClass(typeof(FOO.Commands))]
namespace FOO
{
   public class Commands
   {
       private static DocumentCollection acDocs = acApp.DocumentManager;
       [CommandMethod("FOO")]
       public void FOO()
       {
           Document doc = acDocs.MdiActiveDocument;
           Database db = doc.Database;
           Editor ed = doc.Editor;
           SelectionFilter sf = new SelectionFilter(
                   new TypedValue[1] { new TypedValue(0, "INSERT") });
           PromptSelectionOptions pso = new PromptSelectionOptions();
           pso.MessageForAdding = "Select block references:";
           PromptSelectionResult psr = ed.GetSelection(pso, sf);
           if (psr.Status != PromptStatus.OK)
           {
               ed.WriteMessage("\n** Nothing selected ** \n");
               return;
           }
           dynamic acDoc = doc.GetAcadDocument();
           acDoc.StartUndoMark();
           using (Transaction tr = db.TransactionManager.StartOpenCloseTransaction())
           {
               ObjectIdCollection ids = new ObjectIdCollection();
               foreach (ObjectId id in psr.Value.GetObjectIds())
               {
                   BlockReference br = (BlockReference)tr.GetObject(id, OpenMode.ForRead);
                   ObjectId btrId = br.BlockTableRecord;
                   if (!ids.Contains(btrId))
                   {
                       ids.Add(btrId);
                       BlockTableRecord btr = (BlockTableRecord)tr.GetObject(btrId, OpenMode.ForWrite);
                       foreach (ObjectId bid in btr)
                       {
                           MText mtext = tr.GetObject(bid, OpenMode.ForRead) as MText;
                           if (mtext != null)
                           {
                               mtext.UpgradeOpen();
                               mtext.ColorIndex = 1;
                               mtext.DowngradeOpen();
                           }
                       }
                   }
               }
               tr.Commit();
           }
           ed.Regen();
           acDoc.EndUndoMark();
       }
   }
}

<CommandMethod("TEST")> _
Public Sub Test()
   Dim doc As Document = Application.DocumentManager.MdiActiveDocument
   Dim db As Database = doc.Database
   Dim ed As Editor = doc.Editor
   Dim peo As New PromptEntityOptions(vbLf & "Select a polyline: ")
   peo.SetRejectMessage("Only a polyline !")
   peo.AddAllowedClass(GetType(Polyline), True)
   Dim per As PromptEntityResult = ed.GetEntity(peo)
   If per.Status <> PromptStatus.OK Then
       Return
   End If
   Using tr As Transaction = db.TransactionManager.StartOpenCloseTransaction()
       Dim pline As Polyline = DirectCast(tr.GetObject(per.ObjectId, OpenMode.ForRead), Polyline)
       If Not pline.Closed Then
           ed.WriteMessage(vbLf & "Polyline must be closed.")
           Return
       End If
       Dim curves As New DBObjectCollection()
       curves.Add(pline)
       Try
           Using regions As DBObjectCollection = Region.CreateFromCurves(curves)
               Using region__1 As Region = DirectCast(regions(0), Region)
                   Dim ppo As New PromptPointOptions(vbLf & "Pick a point <quit>: ")
                   ppo.AllowNone = True
                   While True
                       Dim ppr As PromptPointResult = ed.GetPoint(ppo)
                       If ppr.Status <> PromptStatus.OK Then
                           Exit While
                       End If
                       Application.ShowAlertDialog(GetPointContainment(region__1, ppr.Value).ToString())
                   End While
               End Using
           End Using
       Catch exn As System.Exception
           ed.WriteMessage(vbLf & "Error: " & exn.Message)
       End Try
   End Using
End Sub
Private Function GetPointContainment(region As Region, point As Point3d) As PointContainment
   Dim result As PointContainment = PointContainment.Outside
   Using brep As New Brep(region)
       If brep IsNot Nothing Then
           Using ent As BrepEntity = brep.GetPointContainment(point, result)
               If TypeOf ent Is Autodesk.AutoCAD.BoundaryRepresentation.Face Then
                   result = PointContainment.Inside
               End If
           End Using
       End If
   End Using
   Return result
End Function