文字居中对齐，怎么修改代码只选择一次对象就行

mood86

(defun pt1-pt2-mid (e / minpoint maxpoint)
(vla-getboundingbox e 'minpoint 'maxpoint)
(setq pt(mapcar '* '(0.5 0.5)
    (mapcar '+ (vlax-safearray->list minpoint)(vlax-safearray->list maxpoint))
   ))
  )
(defun c:WZJZ (/ mid obj mid1 dob)
(vl-cmdf "undo" "BE")
(if(ssget '((0 . "TEXT,Mtext")))
  (progn
;; 第一次将多行文字对正方式改为正中
(setq css (ssget)) (command "justifytext" css "" "mc")
;; 第二次将所有文字正中对齐
(vlax-for obj(vla-get-activeselectionset(vla-get-activedocument (vlax-get-acad-object)))
  (if(/=(setq ob(bpoly(setq mid(pt1-pt2-mid obj))))nil)
    (progn
    (setq mid1(pt1-pt2-mid(setq dob(vlax-ename->vla-object ob))))
    (vla-delete dob)
    (vla-move obj(vlax-3D-point mid)(vlax-3D-point mid1))
    )))
   )(princ "\n&&&&&&&&&&|请选择所有文字|&&&&&&&&&&&&&&")
  )
  (vl-cmdf "undo" "E")(princ)
  )

文字居中对齐，现在要选择两次，怎么修改代码只选择一次对象就行

1028695446

(defun pt1-pt2-mid (e / minpoint maxpoint)
        (vla-getboundingbox e 'minpoint 'maxpoint)
        (setq pt(mapcar '* '(0.5 0.5)
                                                (mapcar '+ (vlax-safearray->list minpoint)(vlax-safearray->list maxpoint))
                                        ))
)
(defun c:WZJZ (/ css mid obj mid1 dob)
        (vl-cmdf "undo" "BE")
        (if (setq css (ssget '((0 . "TEXT,Mtext"))))
                (progn
                        ;; 第一次将多行文字对正方式改为正中
                        (command "justifytext" css "" "mc")
                        ;; 第二次将所有文字正中对齐
                        (sssetfirst nil css)
                        (vlax-for obj(vla-get-activeselectionset(vla-get-activedocument (vlax-get-acad-object)))
                                (if(/=(setq ob(bpoly(setq mid(pt1-pt2-mid obj))))nil)
                                        (progn
                                                (setq mid1(pt1-pt2-mid(setq dob(vlax-ename->vla-object ob))))
                                                (vla-delete dob)
                                                (vla-move obj(vlax-3D-point mid)(vlax-3D-point mid1))
                                        )))
                )(princ "\n&&&&&&&&&&|请选择所有文字|&&&&&&&&&&&&&&")
  )
  (vl-cmdf "undo" "E")(princ)
)

mood86

666，谢谢大佬

mood86

1028695446 发表于 2025-7-18 17:28
(defun pt1-pt2-mid (e / minpoint maxpoint)
        (vla-getboundingbox e 'minpoint 'maxpoint)
        (setq pt(m ...

666，感谢感谢

李钊伟2012

justify....cad自带命令