如何适应多行文字？

masoud_123 · 发表于 2022-7-5 22:10:39

我想知道通过知道一个地方的高度和宽度，是否可以将多行文字实体放在一个地方？
我们如何调整多行文字高度以适应entmake多行文字中的位置？

(entmake
 (list
        '(0 . "MTEXT")
        '(102 . "{ACAD_REACTORS")
        '(102 . "}")
        '(100 . "AcDbEntity")
        '(100 . "AcDbMText")
         (cons 10 insertion_point)
        (cons 40 text_height)
               (cons 62 4)
        (cons 41 refrence_rectangle_width)
        '(42 . 2.55)
        '(43 . 0.18)
        '(44 . 1.0)
        '(71 . 5)
        '(72 . 1)
        (cons 1  "Your string hear")
        '(7 . "Text Style")
        '(210 0.0 0.0 1.0)
        '(11 1.0 0.0 0.0)
        '(50 . 0.0)
        '(73 . 1)
        )
 )

hanhphuc · 发表于 2022-7-5 22:36:57

您好，masoud_123，
欢迎来到论坛

我希望这个文本框因素有意义？

copy


(defun [color="blue"]Mtext_fit[/color] (pt str / doc bb)
 ;hanhphuc 26/11/2014
 (setq        doc (vlax-get-acad-object)
       [color="red"]str (substr str 1 (vl-string-search "\" str))  ;<-- added[/color]   
bb  (apply 'mapcar
           (cons '- (reverse (mapcar ''((x) (cdr (reverse x))) (textbox (list (cons 1 str))))))
           ) ;_ end of apply
) ;_ end of setq
 (vla-AddMText
   (foreach x '(ActiveDocument ActiveLayout Block) (setq doc (vlax-get doc x)))
   (vlax-3d-point pt)
   (* (car bb) (apply '/ (reverse bb)))
   str
   ) ;_ end of vla-AddMText
 ) ;_ end of defun

例子：

copy


(defun c:test (/ *error* pt str var)
 (set'var (getvar 'dynmode))
 (defun *error* (msg)
   (if        var
     (setvar 'dynmode var)
     ) ;_ end of if
  (princ ":-(")
   ) ;_ end of defun
 (if (and (setq pt (getpoint "\nInsertion Point.."))
   (setvar 'dynmode 1)
   (setq str (getstring "\nInput text:  " t))
   (setvar 'dynmode var)
   ) ;_ end of and
   ([color="blue"]Mtext_fit[/color] pt str)
   ) ;_ end of if
 (princ)
 ) ;_ end of defun