[LISP程序]：给大家一个天奇2000的门窗搜索命令。

zdarc

;;门窗搜索

2. 
   
3. [FONT=courier new]
   
4. (defun tq_getwinno (ewin / ent winstyle reactor)
   
5.   (setq ent (entget ewin))
   
6.   (while (/= (cdar ent) "TqWindow") (setq ent (cdr ent)))
   
7.   (setq winstyle (cdr (assoc '341 ent)))
   
8.   (setq reactor (entget (cdr (assoc '330 (entget winstyle)))))
   
9.   (while (AND (not (equal (cdadr reactor) winstyle)) reactor)
   
10.     (setq reactor (cdr reactor))
    
11.   )
    
12.   (cdar reactor)
    
13. )
    
14. (defun c:mcss (/ o_mc n_mc s n n1 n2 ins)
    
15.   (if (setq o_mc (getstring "\n请输入要搜索的门窗<退出>: "))
    
16.     (progn
    
17.       (setq s (ssget "x" (list (cons 0 "TQWINDOW"))))
    
18.       (setq n (sslength s))
    
19.       (setq n (- n 1))
    
20.       (while (>= n 0)
    
21.         (setq n1 (ssname s n))
    
22.         (setq n2 (tq_getwinno n1))
    
23.         (setq ins (cdr (assoc 10 (entget n1))))
    
24.         (if (= n2 (strcase o_mc))
    
25.           (progn
    
26.             (command "zoom" "c" ins "")
    
27.             (princ "\n屏幕中心的门窗编号为")
    
28.             (princ n2)
    
29.             (initget "y n")
    
30.             (setq yn
    
31.                    (getkword
    
32.                      "\,要改变门窗类型吗?<N>: "
    
33.                    )
    
34.             )
    
35.             (if        (= yn "y")
    
36.               (progn
    
37.                 (command "_mcglx" n1 "")
    
38.               )
    
39.               (princ "\n正在搜索下一个门窗...")
    
40.             )
    
41.           )
    
42.         )
    
43.         (setq n (- n 1))
    
44.       )
    
45.       (setq s nil)
    
46.     )
    
47.   )
    
48.   (princ "\n门窗搜索完毕!")
    
49.   (princ)
    
50. )
    
51. 
    
52. [/FONT]

<br /> [FONT=courier new]<br /> (defun tq_getwinno (ewin / ent winstyle reactor)<br />   (setq ent (entget ewin))<br />   (while (/= (cdar ent) "TqWindow") (setq ent (cdr ent)))<br />   (setq winstyle (cdr (assoc '341 ent)))<br />   (setq reactor (entget (cdr (assoc '330 (entget winstyle)))))<br />   (while (AND (not (equal (cdadr reactor) winstyle)) reactor)<br />     (setq reactor (cdr reactor))<br />   )<br />   (cdar reactor)<br /> )<br /> (defun c:mcss (/ o_mc n_mc s n n1 n2 ins)<br />   (if (setq o_mc (getstring "\n请输入要搜索的门窗<退出>: "))<br />     (progn<br />       (setq s (ssget "x" (list (cons 0 "TQWINDOW"))))<br />       (setq n (sslength s))<br />       (setq n (- n 1))<br />       (while (>= n 0)<br />         (setq n1 (ssname s n))<br />         (setq n2 (tq_getwinno n1))<br />         (setq ins (cdr (assoc 10 (entget n1))))<br />         (if (= n2 (strcase o_mc))<br />           (progn<br />             (command "zoom" "c" ins "")<br />             (princ "\n屏幕中心的门窗编号为")<br />             (princ n2)<br />             (initget "y n")<br />             (setq yn<br />                    (getkword<br />                      "\,要改变门窗类型吗?<N>: "<br />                    )<br />             )<br />             (if        (= yn "y")<br />               (progn<br />                 (command "_mcglx" n1 "")<br />               )<br />               (princ "\n正在搜索下一个门窗...")<br />             )<br />           )<br />         )<br />         (setq n (- n 1))<br />       )<br />       (setq s nil)<br />     )<br />   )<br />   (princ "\n门窗搜索完毕!")<br />   (princ)<br /> )<br /> <br /> [/FONT]