[建议]：门窗表建议

zdarc

门窗表是建筑设计中很重要的一项，建议造门窗表命令中门窗表统计对话框中增加查找功能，类似find命令中的zoom to(又像理正的文字替换)。方便查找标号有问题的门窗。例如点取c1窗，显示宽1500，执行查找命令即可zoom当前图到C1窗位置，方便修改。

wwwchard

查找编辑门窗
这个是我在检查门窗所用的程序，类似可以做个根据名称查窗。如果门窗块分类准确的化，添上根据伪名判断门还是窗更好些。
为了便于各用户使用，没有借用任何外加的函数。
(defun c:ccd(/ n ct1 ss nnn na e pt1 cdm dwnn ee mcg )
(setq n 0 cl cl1 nn 0 os (getvar "osmode"))
(setvar "osmode" 0)
(command ".layer" "m" "wtemp" "c" "2" "wtemp" "s" "wtemp" "")
(command ".erase" (ssget "x" '((8 . "wtemp"))) "" )
(setq ct1 (getdist "\n输入门窗宽度:<退出>"))
(if ct1(progn
       (setq ss(ssget "x" (list
                          '(0 . "insert")
                          '(8 . "window")
                          '(-4 . "<OR")
                           (cons 41  ct1)
                           (cons 41 (- ct1))
                          '(-4 . "OR>")
                          )
               )
       )
    (setq nnn 0)
    (while (< nnn (sslength ss))
           (setq na (ssname ss nnn) e(entget na)
                 pt1(cdr(assoc 10 e))
           )
        (command ".zoom" "w" (mapcar '+  pt1 '(8000 8000 0)) (mapcar '-  pt1 '(8000 8000 0)))
        (command "circle" pt1 "1000")
        (redraw na 3)(redraw (setq nal(entlast)) 3)
        (setq naa (entnext na) ee (entget naa))
            (if (= "ATTRIB" (cdr(assoc 0 ee)))
                (progn
                   (setq cdm (cdr(assoc 1 ee))
                         dwnn (strcase(getstring (strcat "\n输入门窗名称<" cdm ">"))))
                   (if (/= dwnn "")
                     (progn                  
                       (setq ee (subst (cons 1 dwnn) (assoc 1 ee) ee) mcg (cdr(assoc 40 ee)))
                       (if (/= 8 (cdr(assoc 70 ee)))
                       (setq ee(subst(cons 70 8)(assoc 70 ee) ee)
                             ee(subst(cons 40 180)(assoc 40 ee) ee)))
                       (entmod ee)(entupd naa)
                     )
                    (progn
                         (if (/= 8 (cdr(assoc 70 ee)))
                         (setq ee(subst(cons 70 8)(assoc 70 ee) ee)
                                ee(subst(cons 40 180)(assoc 40 ee) ee)))
                       (entmod ee)(entupd naa)
                    )
                 )
            ))
      
      (redraw na 4)(redraw nal 4)
      (setq nnn (1+ nnn))
    )
))
(setvar "osmode" os)
)

xd，很抱歉，你说在lisp论坛置顶的帖子有缩进的方法，我没找到，还是没法按缩进格式发布，只好先这样发了。：－（

Qun

【造门窗表】命令已经修改，请试一下。谢谢！

aabbcc88

我试用了这个新的造门窗表命令，现在比以前好用多了。