矩形框内文字批量随矩形框的图层

longer1000

求高手帮忙，将已区分好的图层矩形框、任意层的文字编号，求一LSP运行，将矩形框内的文字修改为对应的矩形框的图层

q3_2006

2. (defun c:tt ( / e i ly pts se ss x)
   
3.         (vl-load-com)
   
4.         (vl-cmdf "undo" "be")
   
5.         (setq ss (ssget '((0 . "*POLYLINE"))) i -1)
   
6.         (while (setq e (ssname ss (setq i (1+ i))))
   
7.                 (setq pts (mapcar 'cdr(vl-remove-if-not '(lambda (x) (= (car x) 10))(entget e)))
   
8.                 ly (Vlax-Get (Vlax-Ename->Vla-Object e) 'Layer )
   
9.                         se (ssget "wp" pts '((0 . "*text"))))
   
10.                         (vl-cmdf "chprop" se "" "la" ly "")
    
11.         )
    
12.         (vl-cmdf "undo" "e")
    
13. )

(defun c:tt ( / e i ly pts se ss x)<br />         (vl-load-com)<br />         (vl-cmdf "undo" "be")<br />         (setq ss (ssget '((0 . "*POLYLINE"))) i -1)<br />         (while (setq e (ssname ss (setq i (1+ i))))<br />                 (setq pts (mapcar 'cdr(vl-remove-if-not '(lambda (x) (= (car x) 10))(entget e)))<br />                 ly (Vlax-Get (Vlax-Ename->Vla-Object e) 'Layer )<br />                         se (ssget "wp" pts '((0 . "*text"))))<br />                         (vl-cmdf "chprop" se "" "la" ly "")<br />         )<br />         (vl-cmdf "undo" "e")<br /> )

longer1000

没有人回答啊

longer1000

非常感谢！！！！！！！能不能在文字前面将图层名作为前缀加上？

水仙的错

不知道好用不

start4444

vladimirputin

非常不错的程序，谢谢楼主分享。

Trouble12138

有没有反向操作的啊，就是矩形框随文字图层