[编程交流] 使用带编号的Lis格式化多行文字

(defun doit (str pt width textSize _LayoutTab)
 
 (entmake
   (list
     (cons 0 "MTEXT")
     (cons 100 "AcDbEntity")
     (cons 67 0)
     (cons 410 _LayoutTab)
     (cons 8 "Text2")
     (cons 100 "AcDbMText")
     (cons 10 pt)
     (cons 40 textSize)
     (cons 41 width)
     (cons 46 0.0)
     (cons 71 1)
     (cons 72 5)
     (cons 1 str)
     (cons 7 "DIM")
     (cons 210 '(0.0 0.0 1.0))
     (cons 11 '(1.0 0.0 0.0))
     (cons 42 3.8781)
     (cons 43 0.792381)
     (cons 50 0.0)
     (cons 73 1)
     (cons 44 1.0)
   )
 )
 (princ)
)

http://www.cadtutor.net/forum/showthread.php?89739-Format-MTEXT-with-Numbered-List
(defun [color="blue"]mtxno[/color] (p $ lst / i doc wid num str)
 ;hanhphuc 2014
 (setq        i   0
doc (vlax-get-acad-object)
wd (*(apply '+(mapcar ''((x) (apply x (mapcar 'strlen (cons $ lst)) ) )'(min max))) (getvar "textsize") 0.5)
) ;_ end of setq
 (repeat (length lst) (setq num (cons (itoa (setq i (1+ i))) num)))
 (vla-AddMText
   (foreach x '(ActiveDocument ActiveLayout Block) (setq doc (vlax-get doc x))) ;_ end of foreach
   (vlax-3d-point p)
   wd
   (foreach x '((mapcar ''((a b) (strcat a ".\t" b "\\P")) (reverse num) lst)
         (cons
          (strcat $ "\\P\\pxi-"
           (rtos wd 2 1) ",l"
           (rtos (/ wd 8.) 2 1) ",t"
           (rtos wd 2 1) ";")
          str
          )
         ([color="blue"]vl-string-right-trim[/color] "\\P" (apply 'strcat str)) 
         )
     (setq str (eval x))
     ) ;_ end of foreach
   ) ;_ end of vla-AddMText
 ) ;_ end of defun