批量选择矩形，统一写入指定内容的文字

lengxiaxi

批量选择矩形，统一写入指定内容的文字；


矩形大小不同，文字内容是统一的，可由用户指定内容（多行文本/单行文本都可以）；
文字写入后，最好能在矩形中心居中

示意效果如下图；

希望有大佬有空帮忙写一个，感激！

ssyfeng

试试这个：

嘒彼小星

1. (defun c:tt(/ ss str i s_n pt)
   
2.         (if(setq ss (ssget '((0 . "LWPOLYLINE"))))
   
3.                 (progn
   
4.                         (setq str(getstring "\n输入文字：<回车选取文字>"))
   
5.                         (if (= str "")(setq str(cdr(assoc 1(entget(ssname (ssget ":S" '((0 . "TEXT,MTEXT"))) 0))))))
   
6.                         (setq i 0)
   
7.                         (repeat (sslength ss)        
   
8.                                 (setq s_n(ssname ss i))
   
9.                                 (setq pt(mapcar '(lambda (a b)(* 0.5 (+ a b)))(vlax-curve-getPointatParam s_n 0)(vlax-curve-getPointatParam s_n 2)))
   
10.                                 (entmake (list '(0 . "TEXT") (cons 1 str) (cons 11 pt) (cons 10 pt) (cons 40 (getvar "TEXTSIZE"))'(72 . 1)'(73 . 2)))
    
11.                                 (setq i(1+ i))
    
12.                         )
    
13.                 )
    
14.         )
    
15.         (princ)
    
16. )

(defun c:tt(/ ss str i s_n pt)<br />         (if(setq ss (ssget '((0 . "LWPOLYLINE"))))<br />                 (progn<br />                         (setq str(getstring "\n输入文字：<回车选取文字>"))<br />                         (if (= str "")(setq str(cdr(assoc 1(entget(ssname (ssget ":S" '((0 . "TEXT,MTEXT"))) 0))))))<br />                         (setq i 0)<br />                         (repeat (sslength ss)        <br />                                 (setq s_n(ssname ss i))<br />                                 (setq pt(mapcar '(lambda (a b)(* 0.5 (+ a b)))(vlax-curve-getPointatParam s_n 0)(vlax-curve-getPointatParam s_n 2)))<br />                                 (entmake (list '(0 . "TEXT") (cons 1 str) (cons 11 pt) (cons 10 pt) (cons 40 (getvar "TEXTSIZE"))'(72 . 1)'(73 . 2)))<br />                                 (setq i(1+ i))<br />                         )<br />                 )<br />         )<br />         (princ)<br /> )

实用于矩形或者旋转的矩形 。其他多边形，则本程序不实用

muai2010

感谢各位大佬分享

林小林子

感谢各位大佬分享