[编程交流] 是否在没有选项的情况下对齐文本？

(defun c:tj (/ j e p11 p10 f en plin p10n fn y)
   (setq j (getstring "\nLeft/Center/Middle/Right  "))
   (setq j (strcase j))
   (setq e (entget (car (entsel))))
   (setq p11 (assoc 11 e))
   (setq p10 (assoc 10 e))
   (setq f (assoc 72 e))
   (setq en e)
   (if (= (cdr f) 0) (setq plin (cons 11 (cdr p10))))
   (if (= (cdr f) 0) (setq en (subst plin p11 en)))
   (if (and (= j "L") (/= (cdr f) 0))
       (progn
           (setq p10 (cons 10 (cdr p11)))
           (setq en (subst p1on p10 en))
       )
   )
   (IF (= J "L") (setq fn 0))
   (IF (= J "C") (setq fn 1))
   (IF (= J "M") (setq fn 4))
   (IF (= J "R") (setq fn 2))
   (setq fn (cons 72 fn))
   (setq en (subst fn f en))
   (entmod en)
       (princ)
)

(defun c:tjLeft(/ ss obj)
 (vl-load-com)
 (and
   (setq ss (ssget "_+.:E:S" '((0 . "TEXT"))))
   (setq obj (vlax-ename->vla-object (ssname ss 0)))
   (vla-put-alignment obj acAlignmentLeft)
 )
 (princ)
)
;|
acAlignmentLeft
acAlignmentCenter
acAlignmentRight
acAlignmentAligned
acAlignmentMiddle
acAlignmentFit
acAlignmentTopLeft
acAlignmentTopCenter
acAlignmentTopRight
acAlignmentMiddleLeft
acAlignmentMiddleCenter
acAlignmentMiddleRight
acAlignmentBottomLeft
acAlignmentBottomCenter
acAlignmentBottomRight
|;

(defun c:dump (/ ent obj)
 (while (setq ent (entsel "\nSelect entity to get object data: "))
   (setq obj (vlax-ename->vla-object (car ent)))
   (vlax-dump-object obj t)
   (vlax-release-object obj)
 )
 (princ)
)

Select object:
#<VLA-OBJECT IAcadText 02ce832c>
; IAcadText: AutoCAD Text Interface
; Property values:
;   Alignment = 0
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00ac8928>
;   Backward = 0
;   Color = 256
;   Document (RO) = #<VLA-OBJECT IAcadDocument 01b694bc>
;   Handle (RO) = "A367"
;   HasExtensionDictionary (RO) = 0
;   Height = 5.0
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 02cebb0c>
;   InsertionPoint = (1799.16 -194.612 0.0)
;   Layer = "POWER"
;   Linetype = "ByLayer"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Normal = (0.0 0.0 1.0)
;   ObjectID (RO) = 29887800
;   ObjectName (RO) = "AcDbText"
;   ObliqueAngle = 0.0
;   OwnerID (RO) = 29804560
;   PlotStyleName = "ByLayer"
;   Rotation = 0.0
;   ScaleFactor = 1.0
;   StyleName = "SIMPLEX 0"
;   TextAlignmentPoint = (0.0 0.0 0.0)
;   TextGenerationFlag = 0
;   TextString = "this is a"
;   Thickness = 0.0
;   UpsideDown = 0
;   Visible = -1

(defun c:tjc(/ ss obj)
 (vl-load-com)
 (if
   (and
     (setq ss (ssget "_+.:E:S" '((0 . "TEXT"))))
     (setq obj (vlax-ename->vla-object (ssname ss 0)))
     (setq ipt (vla-get-InsertionPoint obj)))
   (progn
     (vla-put-alignment obj acAlignmentCenter)
     (vla-put-TextAlignmentPoint obj ipt)
   )
 )
 (princ)
)
;|
acAlignmentLeft
acAlignmentCenter
acAlignmentRight
acAlignmentAligned
acAlignmentMiddle
acAlignmentFit
acAlignmentTopLeft
acAlignmentTopCenter
acAlignmentTopRight
acAlignmentMiddleLeft
acAlignmentMiddleCenter
acAlignmentMiddleRight
acAlignmentBottomLeft
acAlignmentBottomCenter
acAlignmentBottomRight
|;

(defun c:tjc(/ ss obj)

(defun tjc(/ ss obj)