如何筛选出一个文字选择集中文字的最大、最小高度

2590662756

最近刚接触到autolisp,遇到了困扰好久的问题，就是框选文字，如何得到字高最值，是用（max ）(min )还是其它方法？求求各位前辈指点下思路！！

xj6019

(defun c:NM (/ i s1 ss zglst zm)  
  (setq i -1 zglst nil)
  (if(setq ss (ssget (list '(0 . "*TEXT"))))
    (while(and(setq s1 (ssname ss (setq i (1+ i)))))  
                        (setq zg(cdr(assoc 40 (entget s1))))
                        (setq zglst(cons zg zglst))
                )
  )
        (if(setq zglst (vl-sort zglst '>))
                (progn
                        (princ "最大字高:")
                        (princ (car zglst))
                        (princ "<--->")
                        (princ "最小字高:")
                        (princ (last zglst))
                )
        )
        (princ)
)

2590662756

xj6019 发表于 2023-12-11 18:30
(defun c:NM (/ i s1 ss zglst zm)  
  (setq i -1 zglst nil)
  (if(setq ss (ssget (list '(0 . "*TEXT ...

好的，十分感谢您的解答，由于我刚注册不久，对明经币、金钱、积分这些不懂，等我花时间理解完这代码后，一定好好感谢您。