[编程交流] 如何将文本居中放置在

(defun C:CRP7()
 (setq cmdold (getvar "cmdecho"))
 (setvar "cmdecho" 0)
 (setq PL (getstring "Enter a Panel Label :"))
 (setq PA (getpoint "Select Panel Area :"))
 (command "-boundary" "Advanced" "Island" "No" "Nearest" "" pa "")
 (command "_.change" (entlast) "" "_p" "_la" "Router - Green - V groove" "")
 
 (setq ts(getvar "textsize"))
 (setq tsty(getvar "textstyle"))
 
 (if(= 0 (cdr(assoc 40(tblsearch "style" tsty))))
       (progn
   
 (command "text" "Justify" "Center" pa ts 0 PL)))
 (setvar "cmdecho" cmdold)
    
 (princ)
)

(vl-load-com)
(defun c:demo ( / adoc bp cen lays msp pa pl plo reg sfa txt)
 (setq adoc (vla-get-activedocument (vlax-get-acad-object))
       msp (vla-get-modelspace adoc)
       lays (vla-get-layers adoc)
   )
 (vla-add lays "Router - Green - V groove")
 (while (and (setq pa (getpoint "\n Select Panel Area: "))
             (setq pl (getstring (strcat "\nEnter a Panel Label <" (cond (*pl) ("123")) ">: "))
                   *pl (cond ((/= pl "") (strcase pl)) (*pl) ("123"))
                   )
             (setq bp (bpoly pa))
             )
     (setq plo (vlax-ename->vla-object bp)
           sfa (vlax-make-safearray vlax-vbObject '(0 . 0))
     )
     (vla-put-layer plo "Router - Green - V groove")
     (vlax-safearray-put-element sfa 0 plo)
     (setq reg (car (vlax-safearray->list (vlax-variant-value (vla-addregion msp sfa))))
           cen (vlax-get reg 'centroid)
           )
     (vla-delete reg)
     (setq txt (vla-AddText msp *pl (vlax-3D-point (trans cen 1 0)) (getvar 'TEXTSIZE)))
     (vla-put-alignment txt 10)
     (vla-put-textalignmentpoint txt (vlax-3D-point (trans cen 1 0)))
     (vla-put-rotation txt (angle (list 0 0)(getvar 'UCSXDIR)))
   )
 (princ)
 )

(defun getcoords (ent)
 (vlax-safearray->list
   (vlax-variant-value
     (vlax-get-property
   (vlax-ename->vla-object ent)
   "Coordinates"
     )
   )
 )
)
(defun co-ords2xy ()
; convert now to a list of xy as co-ords are x y x y x y if 3d x y z x y z
(setq numb (/ (length co-ords) 2))
(setq I 0)
(repeat numb
(setq xy (list (nth (+ I 1) co-ords)(nth I co-ords) ))
(setq coordsxy (cons xy coordsxy))
(setq I (+ I 2))
) ; end repeat
)
(setq co-ords (getcoords (entlast)))