请帮助,改为批量框选

wgij007

(defun c:ht (/ ent ht)
   (setq ent (car (entsel "\n选择多行文字: ")))
    (setq ht (cdr (assoc 40 (entget ent))))  
    (entmod (append (entget ent) (list (cons 41 (* ht 20.0)) (cons 46 (* ht 10.0)))))
)

tigcat

(defun c:ht (/ ss i ent entdata ht)
  (setq ss (ssget '((0 . "MTEXT")))) ; 选择多个多行文字对象
  (if ss
    (progn
      (setq i 0)
      (while (< i (sslength ss))
        (setq ent (ssname ss i))
        (setq entdata (entget ent))
        (setq ht (cdr (assoc 40 entdata))) ; 获取文字高度
        ; 更新宽度(41)和行距(46)，并确保行距类型为精确距离(73=2)
        (entmod (subst (cons 41 (* ht 20.0)) ; 宽度=高度×20
                      (assoc 41 entdata)
                      (subst (cons 46 (* ht 10.0)) ; 行距=高度×10
                             (assoc 46 entdata)
                             (subst (cons 73 2) ; 设置精确行距类型
                                    (assoc 73 entdata)
                                    entdata))))
        (setq i (1+ i))
      (princ (strcat "\n成功修改 " (itoa (sslength ss)) " 个文字对象"))
    )
    (princ "\n未选择对象")
  )
  (princ)
)

qazxswk

2. (defun c:11 (/ ss ent ht)
   
3. (setq ss (ssget '((0 . "MTEXT"))))
   
4.   (if ss
   
5.   (repeat (setq i (sslength ss))
   
6.      (setq ent (ssname ss (setq i (1- i))))
   
7.     (setq ht (cdr (assoc 40 (entget ent))))  
   
8.     (entmod (append (entget ent) (list (cons 41 (* ht 20.0)) (cons 46 (* ht 10.0)))))
   
9. )
   
10. )
    
11. (princ))

(defun c:11 (/ ss ent ht)<br /> (setq ss (ssget '((0 . "MTEXT"))))<br />   (if ss<br />   (repeat (setq i (sslength ss))<br />      (setq ent (ssname ss (setq i (1- i))))<br />     (setq ht (cdr (assoc 40 (entget ent))))  <br />     (entmod (append (entget ent) (list (cons 41 (* ht 20.0)) (cons 46 (* ht 10.0)))))<br /> )<br /> )<br /> (princ))