在屏幕输出特定字符串的图层的思路

yamjqq

我想在屏幕输出特定字符串的图层，不知如何完善，恳请前辈们给予指导，谢谢！
(defun c:tcbB(/ LST N PT thm)
(setq lastring (getstring "\n 输入图层字符串"))
(command "undo" "be")
(defun TABLE (S / D R)
(while (setq D (tblnext S (null D)))
(setq R (cons (cdr (assoc 2 D)) R))))
(setq LST (reverse (TABLE "LAYER")))
(setq PT (getpoint "请指定文字插入點:") N 0)
(foreach NAME LST (entmake (list '(0 . "TEXT") (cons 8 NAME) '(100 . "AcDbText")
(cons 10 (list (car PT) (- (cadr PT) N))) ' (40 . 6) (cons 1 NAME)))
(setq N (+ N 10.0)))
(command "zoom" "O" (entlast) "")
(command "undo" "e")
(princ))

yuren008

做个对论坛有益的人。

wx302008008

1. (defun c:rrr ( / txt n i namelist layername)
   
2.         (setq txt (getstring "输入图层关键字:"))
   
3.         (Setq n (Vlax-Get (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'Layers) 'Count )
   
4.                 i 0
   
5.                 namelist '()
   
6.         )
   
7.         (while (< i n)
   
8.                 (setq layername (Vlax-Get (Vlax-Invoke-Method (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'Layers) 'item i) 'Name ))
   
9.                 (if
   
10.                         (/= (vl-string-search txt layername) nil)
    
11.                         (setq namelist (append namelist (list layername)))
    
12.                 )
    
13.                 (setq i (1+ i))
    
14.         )
    
15.         (princ namelist)      ;按你自己的需求，自己把这一行代码换成生成文字的代码
    
16.         (princ)
    
17. )

(defun c:rrr ( / txt n i namelist layername)<br />         (setq txt (getstring "输入图层关键字:"))<br />         (Setq n (Vlax-Get (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'Layers) 'Count )<br />                 i 0<br />                 namelist '()<br />         )<br />         (while (< i n)<br />                 (setq layername (Vlax-Get (Vlax-Invoke-Method (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'Layers) 'item i) 'Name ))<br />                 (if <br />                         (/= (vl-string-search txt layername) nil)<br />                         (setq namelist (append namelist (list layername)))<br />                 )<br />                 (setq i (1+ i))<br />         )<br />         (princ namelist)      ;按你自己的需求，自己把这一行代码换成生成文字的代码<br />         (princ)<br /> )