[编程交流] 展开文本例程以包含

(defun c:atp  (/ count en ent len ss text)
 (command "._undo" "_be")
 
 (prompt "\nAdds parenthesis round selected text: ")
 
 (setq        ss    (ssget (list (cons 0 "*TEXT,DIMENSION,MULTILEADER")))
len   (sslength ss)
count 0)
 (while (not (equal len count))
   (setq ent (entget (setq en (ssname ss count))))
   (cond
     ((wcmatch (cdr (assoc 0 ent)) "*TEXT")
      (setq text (cdr (assoc 1 ent))
     text (strcat "(" text ")")
     ent  (subst (cons 1 text)
                 (assoc 1 ent)
                 ent)))
     ((equal (cdr (assoc 0 ent)) "DIMENSION")
      (progn
 (setq text (cdr (assoc 1 ent))
       text "(<>)"
       ent  (subst (cons 1 text)
                   (assoc 1 ent)
                   ent))
 ))
     ((equal (cdr (assoc 0 ent)) "MULTILEADER")
      (progn
 (setq text (cdr (assoc 304 ent))
       text (strcat "(" text ")")
       ent  (subst (cons 304 text)
                   (assoc 304 ent)
                   ent))
 ))
     )
   (entmod ent)
   (setq count (1+ count))
   )
 (command "._undo" "_e")
 
 (princ)
 )

(defun C:Par (/ *error* adoc axss obj_type)
 
(defun *error*        (msg)
 (if
   (vl-position
     msg
     '("console break"
"Function cancelled"
"quit / exit abort"
)
     )
    (princ "Error!")
    (princ msg))
   (vla-startundomark
     (vla-get-activedocument
       (vlax-get-acad-object)
     )
     )
    )
 
 ;;main part
     (setq adoc
     (vla-get-activedocument
       (vlax-get-acad-object)
     )
     ) 
 (vla-startundomark adoc)
 
 (setq axss (vla-get-pickfirstselectionset adoc))
 (vla-clear axss)
 (vla-selectonscreen
   axss
   (vlax-safearray-fill
     (vlax-make-safearray vlax-vbinteger '(0 . 4))
     '(-4 0 0 0 -4))
   (vlax-safearray-fill
     (vlax-make-safearray vlax-vbvariant '(0 . 4))
     '("<OR" "*TEXT" "DIMENSION" "MULTILEADER" "OR>")
     )
   )
 (vlax-for obj axss
   (setq obj_type (vla-get-objectname obj))
   (cond ((wcmatch obj_type "*Dimension")
   (vla-put-textoverride obj "(<>)"))
  ((wcmatch obj_type "*Leader,*Text")
           (vla-put-textstring obj (strcat "(" (vla-get-textstring obj) ")"))
   )
  )
   )
   (princ)
 )
(vl-load-com)

using System;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.DatabaseServices;
using AcDb = Autodesk.AutoCAD.DatabaseServices;
using acadApp = Autodesk.AutoCAD.ApplicationServices.Application;
using Autodesk.AutoCAD.ApplicationServices;
[assembly: CommandClass(typeof(SelectionCommands.FilterSelect))]
namespace SelectionCommands
{
   public class FilterSelect
   {
       [CommandMethod("FM")]
       public static void AddParenthesis()
       {
           // Get the current document
           Document doc = acadApp.DocumentManager.MdiActiveDocument;
           // Get the current document editor
           Editor ed = doc.Editor;
           // Get the current database
           Database db = doc.Database;
           using (Transaction tr = db.TransactionManager.StartTransaction())
           {
               // Create a TypedValue array to define the filter criteria
               TypedValue[] ftype = 
                   new TypedValue[] 
{ 
   new TypedValue((int)DxfCode.Operator, "<OR"), 
   new TypedValue((int)DxfCode.Start, "*TEXT"),//Text and MText
   new TypedValue((int)DxfCode.Start, "DIMENSION"),
   new TypedValue((int)DxfCode.Start, "*LEADER"),//Leader and MLeader
   new TypedValue((int)DxfCode.Operator, "OR>") 
};
               // Assign the filter criteria to a SelectionFilter object
               SelectionFilter fltr = new SelectionFilter(ftype);
               // Request for objects to be selected in the drawing area
               PromptSelectionResult psr;
               psr = ed.GetSelection(fltr);
               SelectionSet sset = null;
               // If the prompt status is OK, objects were selected
               if (psr.Status == PromptStatus.OK)
               {
                   sset = psr.Value;
                   acadApp.ShowAlertDialog("Number of objects selected: " +
                                               sset.Count.ToString());
               }
               else
               {
                   acadApp.ShowAlertDialog("Number of objects selected: 0");
               }
               // iterate through selected objects
               foreach (ObjectId id in sset.GetObjectIds())
               {
                   DBObject obj = (DBObject)tr.GetObject(id, OpenMode.ForRead);
                   // catch object name
                   string objname = obj.GetRXClass().Name;
                   ed.WriteMessage("\n{0}", objname);// debug only
                   try
                   {
                       switch (objname)
                       {
                           case "AcDbText":
                               DBText txt = obj as DBText;
                               txt.UpgradeOpen();
                               txt.TextString = "(" + txt.TextString + ")";
                               break;
                           case "AcDbMText":
                               MText mtx = obj as MText;
                               mtx.UpgradeOpen();
                               mtx.Contents = "(" + mtx.Contents + ")";
                               break;
                           case "AcDbLeader":
                               Leader ld = obj as Leader;
                               if (ld.AnnoType == AnnotationType.MText)
                               {
                                   MText ldtxt = (MText)tr.GetObject(ld.Annotation, OpenMode.ForRead);
                                   if (ldtxt != null)
                                   {
                                       ld.UpgradeOpen();
                                       ldtxt.UpgradeOpen();
                                       ldtxt.Contents = "(" + ldtxt.Contents + ")";
                                   }
                               }
                               break;
                           case "AcDbMLeader":
                               MLeader mld = obj as MLeader;
                               if (mld.ContentType == ContentType.MTextContent)
                               {
                                   MText mt = new MText();
                                   mt.SetDatabaseDefaults();
                                   mt.SetPropertiesFrom(mld.MText as Entity);
                                   mt.Contents = "(" + mld.MText.Text + ")";
                                   mld.UpgradeOpen();
                                   mld.MText = mt;
                               }
                               break;
                           //varios object names:
                           //AcDbRotatedDimension
                           //AcDbAlignedDimension
                           //AcDb2LineAngularDimension
                           //AcDbRadialDimension
                           //AcDbDiametricDimension
                           //AcDbOrdinateDimension
                           //AcDbArcDimension
                           case "AcDbRotatedDimension":
                               RotatedDimension rd = obj as RotatedDimension;
                               rd.UpgradeOpen();
                               rd.DimensionText = "(<>)";
                               break;
                           case "AcDbAlignedDimension":
                               AlignedDimension ad = obj as AlignedDimension;
                               ad.UpgradeOpen();
                               ad.DimensionText = "(<>)";
                               break;
                           case "AcDbOrdinateDimension":
                               OrdinateDimension od = obj as OrdinateDimension;
                               od.UpgradeOpen();
                               od.DimensionText = "(<>)";
                               break; //etc. etc.
                       }
                   }
                   catch (Autodesk.AutoCAD.Runtime.Exception ex)
                   {
                       acadApp.ShowAlertDialog(ex.Message);
                   }
               }
               tr.Commit();
           } //dispose transaction
       }
   }
}