获取多行文字的最大宽度。

blueshake · 发表于 2022-7-6 10:19:02

我搜索论坛。然后在这个线程中获取代码。http://www.cadtutor.net/forum/showthread.php?35109-多行文字宽度&p=230733&viewfull=1#post230733

有些代码我不清楚。
如果我只想得到多行文字的最大宽度。我该怎么办？？谢谢

Lt Dan's l · 发表于 2022-7-6 10:42:38

copy

 
(defun c:test (/ ent)
 (while
   (not
     (and
       (setq ent (car (entsel "\nSelect mtext: ")))
       (eq "MTEXT" (cdr (assoc 0 (setq ent (entget ent)))))
     )
   )
   (prompt "\nMissed!! Try again!")
 )
 (prompt (rtos (cdr (assoc 41 ent)) 4 4))
 (princ)
)