리습좀 봐세세요

;******************************************************************************
;******************************************************************************
:***********       this is a Reading DETECTOR item program !         **********
;***********                               by JOON     2000. 02. 01  **********
;******************************************************************************
;******************************************************************************
(defun c:rds()
   (setq ss (ssget));setq close
   (if (/= nil ss)
      (readdetector)
   );if close
   (princ)
);defun clsoe
(defun readdetector()
   (if (= nil hr) (setq hr (getreal "n INSTING <1.00>: ")));if close
   (setq sl (sslength ss) sll sl
         a 0   lst '()   blst1 '()  blst2 '()
         blst3 '()  blst3-1 '()  blst3-2 '()  blst3-3 '()  blst4 '()  blst4-1 '()  blst5 '()  blst5-1 '()  blst6 '()  blst7 '()  blst8 '()  blst9 '()  blst10 '()  blst10-1 '()  blst11 '()  blst11-1 '()  blst11-2 '()  blst11-3 '()blst12 '()blst13 '()blst14 '()blst15 '()blst16 '()
         lst1 '() lst2 '() lst3 '() lst3-1 '() lst3-2 '() lst3-3 '() lst4 '() lst4-1 '() lst5 '() lst5-1 '() lst6 '() lst7 '() lst8 '() lst9 '() lst10 '() lst10-1 '() lst11 '() lst11-1 '() lst11-2 '() lst11-3 '() lst12 '() lst13 '() lst14 '() lst15 '() lst16 '()
         );setq close
   (if (= nil hr) (setq hr 1.0));if close
   (prompt "n")
   (prompt "n")
   (prompt "n ***********************!!!  please Wait moment. now proseccing….")
   (repeat sl
      (setq sen (entget (ssname ss a))
             en (cdr (assoc 0 sen))
            ben (cdr (assoc 2 sen))
             el (cdr (assoc 8 sen))
             cp (cdr (assoc 10 sen))
             rd (cdr (assoc 40 sen))
      );setq close
      (cond
        ((= "INSERT" en)
           (progn
                     (cond
                       ((or (= "SO-HBBOX" ben) (= "SO-HBBOX" ben))
                         (if (= nil (member cp blst1))
                           (IF (= nil (member cp lst1))
                             (setq blst1 (cons cp blst1));setq close
                       ) ) );expr1 close
                       ((or (= "SO-HBBOX2″ ben) (= "SO-HBBOX2″ ben))
                         (if (= nil (member cp blst2))
                           (IF (= nil (member cp lst2))
                             (setq blst2 (cons cp blst2));setq close
                       ) ) );expr1 close
                       ((or (= "SO-HBBOX3″ ben) (= "SO-HBBOX3″ ben))
                         (if (= nil (member cp blst3))
                           (if (= nil (member cp lst3))
                             (setq blst3 (cons cp blst3));setq close
                       ) ) );expr2 close
                       ((or (= "F-HBBOX(exposure)" ben) (= "F-HBBOX(exposure)" ben))
                         (if (= nil (member cp blst4))
                           (IF (= nil (member cp lst4))
                             (setq blst4 (cons cp blst4));setq close
                       ) ) );expr3 close
                       ((or (= "F-HBBOX2(exposure)" ben) (= "F-HBBOX2(exposure)" ben))
                         (if (= nil (member cp blst5))
                           (IF (= nil (member cp lst5))
                             (setq blst5 (cons cp blst5));setq close
                       ) ) );expr3 close
                       ((or (= "F-HBBOX3(exposure)" ben) (= "F-HBBOX3(exposure)" ben))
                         (if (= nil (member cp blst6))
                           (IF (= nil (member cp lst6))
                             (setq blst6 (cons cp blst6));setq close
                       ) ) );expr3-1 close
                       ((or (= "F-방수기구함" ben) (= "F-방수기구함" ben))
                         (if (= nil (member cp blst7))
                           (IF (= nil (member cp lst7))
                             (setq blst7 (cons cp blst7));setq close
                       ) ) );expr3-2 close
                       ((or (= "F-Valve(alarm)" ben) (= "F-Valve(alarm)" ben))
                         (if (= nil (member cp blst8))
                           (IF (= nil (member cp lst8))
                             (setq blst8 (cons cp blst8));setq close
                       ) ) );expr3-3 close
                       ((or (= "F-Valve(preaction)" ben) (= "F-Valve(preaction)" ben))
                         (if (= nil (member cp blst9))
                           (if (= nil (member cp lst9))
                             (setq blst9 (cons cp blst9));setq close
                       ) ) );expr4 close
                       ((or (= "F-HEAD(DN68)" ben) (= "F-HEAD(DN68)" ben))
                         (if (= nil (member cp blst10))
                           (if (= nil (member cp lst10))
                             (setq blst10 (cons cp blst10));setq close
                       ) ) );expr4 close
                       ((or (= "F-HEAD(DN72)" ben) (= "F-HEAD(DN72)" ben))
                         (if (= nil (member cp blst11))
                           (if (= nil (member cp lst11))
                             (setq blst11 (cons cp blst11));setq close
                       ) ) );expr4 close
                       ((or (= "F-HEAD(DN105)" ben) (= "F-HEAD(DN105)" ben))
                         (if (= nil (member cp blst12))
                           (if (= nil (member cp lst12))
                             (setq blst12 (cons cp blst12));setq close
                       ) ) );expr4 close
                       ((or (= "F-HEAD(DN72-DRY)" ben) (= "F-HEAD(DN72-DRY)" ben))
                         (if (= nil (member cp blst13))
                           (if (= nil (member cp lst13))
                             (setq blst13 (cons cp blst13));setq close
                       ) ) );expr4 close
                       ((or (= "F-HEAD(UP68)" ben) (= "F-HEAD(UP68))" ben))
                         (if (= nil (member cp blst14))
                           (if (= nil (member cp lst14))
                             (setq blst14 (cons cp blst14));setq close
                       ) ) );expr4 close
                       ((or (= "F-HEAD(SIDE)" ben) (= "F-HEAD(SIDE)" ben))
                         (if (= nil (member cp blst15))
                           (if (= nil (member cp lst15))
                             (setq blst15 (cons cp blst15));setq close
                       ) ) );expr4 close
                       ((or (= "F-HEAD(UPDN68-72)" ben) (= "F-HEAD(UPDN68-72)" ben))
                         (if (= nil (member cp blst16))
                           (if (= nil (member cp lst16))
                             (setq blst16 (cons cp blst16));setq close
                       ) ) );expr4 close
                       ((or (= "F-HEAD(UPDN68-105)" ben) (= "F-HEAD(UPDN68-105)" ben))
                         (if (= nil (member cp blst17))
                           (if (= nil (member cp lst17))
                             (setq blst17 (cons cp blst17));setq close
                       ) ) );expr4 close
                       ((or (= "extinguisher(dry-abc)" ben) (= "extinguisher(dry-abc)" ben))
                         (if (= nil (member cp blst18))
                           (if (= nil (member cp lst18))
                             (setq blst18 (cons cp blst18));setq close
                       ) ) );expr4 close
                       ((or (= "extinguisher(청정)" ben) (= "extinguisher(청정)" ben))
                         (if (= nil (member cp blst19))
                           (if (= nil (member cp lst19))
                             (setq blst19 (cons cp blst19));setq close
                       ) ) );expr4 close
                       ((or (= "extinguisher(자동식)" ben) (= "extinguisher(자동식)" ben))
                         (if (= nil (member cp blst20))
                           (if (= nil (member cp lst20))
                             (setq blst20 (cons cp blst20));setq close
                       ) ) );expr4 close
                       );cond close
           );progn close
        );exp1 close
        ((= "LINE" en)
              (cond
                ((cond
                ((or (= "DET-S" el) (= "det-s" el))
                     (if (= nil (member cp lst1))
                        (if (= nil (member cp blst1))
                          (setq lst1 (cons cp lst1));setq close
                     )  );if close
                );exp2-1 close
                ((or (= "DET-T" el) (= "det-t" el))
                     (if (= nil (member cp lst2))
                        (if (= nil (member cp blst2))
                          (setq lst2 (cons cp lst2));setq close
                     )  );if close
                );exp2-2 close
                ((or (= "DET-F" el) (= "det-f" el))
                     (if (= nil (member cp lst3))
                        (if (= nil (member cp blst3))
                          (setq lst3 (cons cp lst3));setq close
                     )  );if close
                );exp2-3 close
                ((or (= "DET-PV-S" el) (= "det-pv-s" el))
                     (if (= nil (member cp lst3-1))
                        (if (= nil (member cp blst3-1))
                          (setq lst3-1 (cons cp lst3-1));setq close
                     )  );if close
                );exp2-3-1 close
                ((or (= "DET-PV-T" el) (= "det-pv-t" el))
                     (if (= nil (member cp lst3-2))
                        (if (= nil (member cp blst3-2))
                          (setq lst3-2 (cons cp lst3-2));setq close
                     )  );if close
                );exp2-3-2 close
                ((or (= "DET-PV-F" el) (= "det-pv-f" el))
                     (if (= nil (member cp lst3-3))
                        (if (= nil (member cp blst3-3))
                          (setq lst3-3 (cons cp lst3-3));setq close
                     )  );if close
                );exp2-3-3 close
                    ((or (= "EXIT-D" el) (= "exit-d" el))
                     (if (= nil (member cp lst4))
                        (if (= nil (member cp blst4))
                          (setq lst4 (cons cp lst4));setq close
                     )  );if close
                );exp2-4 close
                    ((or (= "EXIT-A" el) (= "exit-a" el))
                     (if (= nil (member cp lst4-1))
                        (if (= nil (member cp blst4-1))
                          (setq lst4-1 (cons cp lst4-1));setq close
                     )  );if close
                );exp2-4-1 close
                ((or (= "EXIT-R" el) (= "exit-r" el))
                     (if (= nil (member cp lst5))
                        (if (= nil (member cp blst5))
                          (setq lst5 (cons cp lst5));setq close
                     )  );if close
                );exp2-5 close
                ((or (= "EXIT-F" el) (= "exit-f" el))
                     (if (= nil (member cp lst5-1))
                        (if (= nil (member cp blst5-1))
                          (setq lst5-1 (cons cp lst5-1));setq close
                     )  );if close
                );exp2-5-1 close
                ((or (= "EXIT-C" el) (= "exit-c" el))
                     (if (= nil (member cp lst6))
                        (if (= nil (member cp blst6))
                          (setq lst6 (cons cp lst6));setq close
                     )  );if close
                );exp2-6 close
                ((or (= "EXIT-LR" el) (= "exit-lr" el))
                     (if (= nil (member cp lst7))
                        (if (= nil (member cp blst7))
                          (setq lst7 (cons cp lst7));setq close
                     )  );if close
                );exp2-7 close
                ((or (= "STROBE" el) (= "strobe" el))
                     (if (= nil (member cp lst8))
                        (if (= nil (member cp blst8))
                          (setq lst8 (cons cp lst8));setq close
                     )  );if close
                );exp2-8 close
                ((or (= "PBL-IH" el) (= "pbl-ih" el))
                     (if (= nil (member cp lst9))
                        (if (= nil (member cp blst9))
                          (setq lst9 (cons cp lst9));setq close
                     )  );if close
                );exp2-9 close
                ((or (= "PBL" el) (= "pbl" el))
                     (if (= nil (member cp lst10))
                        (if (= nil (member cp blst10))
                          (setq lst10 (cons cp lst10));setq close
                     )  );if close
                );exp2-10 close
                ((or (= "EM-SOCKET" el) (= "em-socket" el))
                     (if (= nil (member cp lst10-1))
                        (if (= nil (member cp blst10-1))
                          (setq lst10-1 (cons cp lst10-1));setq close
                     )  );if close
                );exp2-10-1 close
                ((or (= "FSCP" el) (= "fscp" el))
                     (if (= nil (member cp lst11))
                        (if (= nil (member cp blst11))
                          (setq lst11 (cons cp lst11));setq close
                     )  );if close
                );exp2-11 close
                ((or (= "FIRE FIGHTING GAS LOCAL OPERATING BOX" el) (= "fire fighting gas local operating box" el))
                     (if (= nil (member cp lst11-1))
                        (if (= nil (member cp blst11-1))
                          (setq lst11-1 (cons cp lst11-1));setq close
                     )  );if close
                );exp2-11-1 close
                ((or (= "FIRE FIGHTING GAS PACKAGE WITH CONTROL PANEL" el) (= "fire fighting gas package with control panel" el))
                     (if (= nil (member cp lst11-2))
                        (if (= nil (member cp blst11-2))
                          (setq lst11-2 (cons cp lst11-2));setq close
                     )  );if close
                );exp2-11-2 close
                ((or (= "FIRE FIGHTING GAS MODULER" el) (= "fire fighting gas moduler" el))
                     (if (= nil (member cp lst11-3))
                        (if (= nil (member cp blst11-3))
                          (setq lst11-3 (cons cp lst11-3));setq close
                     )  );if close
                );exp2-11-3 close
                ((or (= "RM" el) (= "rm" el))
                     (if (= nil (member cp lst12))
                        (if (= nil (member cp blst12))
                          (setq lst12 (cons cp lst12));setq close
                     )  );if close
                );exp2-12 close
                ((or (= "RELEASE LAMP" el) (= "release lamp" el))
                     (if (= nil (member cp lst13))
                        (if (= nil (member cp blst13))
                          (setq lst13 (cons cp lst13));setq close
                     )  );if close
                );exp2-13 close
                ((or (= "FIRE-SCS" el) (= "fire-scs" el))
                     (if (= nil (member cp lst14))
                        (if (= nil (member cp blst14))
                          (setq lst14 (cons cp lst14));setq close
                     )  );if close
                );exp2-14 close
                ((or (= "DAMPER" el) (= "damper" el))
                     (if (= nil (member cp lst15))
                        (if (= nil (member cp blst15))
                          (setq lst15 (cons cp lst15));setq close
                     )  );if close
                );exp2-15 close
                ((or (= "EL-P" el) (= "el-p" el))
                     (if (= nil (member cp lst16))
                        (if (= nil (member cp blst16))
                          (setq lst16 (cons cp lst16));setq close
                     )  );if close
                );exp2-16 close
                );cond3 close
             );
             );
        );exp2 close
          );cond1 close
      (setq a (1+ a));setq close
    );repeat close
    (setq lth  (length lst)
          blth (length blst)
          ans  (+ lth blth)
    );setq close
    (prompt "n")
    (textscr)
    (prompt "n 옥내소화전 일반형(매립)         = ")
    (prin1 (+ (length blst1) (length lst1)))
    (prompt "n 옥내소화전 단구형(매립)         = ")
    (prin1 (+ (length blst2) (length lst2)))
    (prompt "n 옥내소화전 쌍구형(매립)         = ")
    (prin1 (+ (length blst3) (length lst3)))
    (prompt "n 옥내소화전 일반형(노출)         = ")
    (prin1 (+ (length blst4) (length lst4)))
    (prompt "n 옥내소화전 단구형(노출)         = ")
    (prin1 (+ (length blst5) (length lst5)))
    (prompt "n 옥내소화전 쌍구형(노출)         = ")
    (prin1 (+ (length blst6) (length lst6)))
    (prompt "n 방수기구함                      = ")
    (prin1 (+ (length blst7) (length lst7)))
    (prompt "n 알람밸브                        = ")
    (prin1 (+ (length blst8) (length lst8)))
    (prompt "n 프리액션밸브                    = ")
    (prin1 (+ (length blst9) (length lst9)))
    (prompt "n 스프링클러 하향식 68°C          = ")
    (prin1 (+ (length blst10) (length lst10)))
    (prompt "n 스프링클러 하향식 72°C          = ")
    (prin1 (+ (length blst11) (length lst11)))
    (prompt "n 스프링클러 하향식 105°C         = ")
    (prin1 (+ (length blst12) (length lst12)))
    (prompt "n 스프링클러 하향식 DRY 68°C      = ")
    (prin1 (+ (length blst13) (length lst13)))
    (prompt "n 스프링클러 상향식 68°C          = ")
    (prin1 (+ (length blst14) (length lst14)))
    (prompt "n 스프링클러 측벽형               = ")
    (prin1 (+ (length blst15) (length lst15)))
    (prompt "n 스프링클러 상.하향식 68~72°C    = ")
    (prin1 (+ (length blst16) (length lst16)))
    (prompt "n 스프링클러 상.하향식 68~105°C   = ")
    (prin1 (+ (length blst17) (length lst17)))
    (prompt "n 소화기                          = ")
    (prin1 (+ (length blst18) (length lst18)))
    (prompt "n 청정소화기                      = ")
    (prin1 (+ (length blst19) (length lst19)))
    (prompt "n 자동식소화기                    = ")
    (prin1 (+ (length blst20) (length lst20)))
    (princ)
);defun close
(defun c:ans()
    (prompt "n")
    (textscr)
    (prompt "n 연기 감지기           = ")
    (prin1 (+ (length blst1) (length lst1)))
    (prompt "n 차동식 감지기         = ")
    (prin1 (+ (length blst2) (length lst2)))
    (prompt "n 정온식 감지기         = ")
    (prin1 (+ (length blst3) (length lst3)))
    (prompt "n 연기식 감지기-SP      = ")
    (prin1 (+ (length blst3-1) (length lst3-1)))
    (prompt "n 차동식 감지기-SP      = ")
    (prin1 (+ (length blst3-2) (length lst3-2)))
    (prompt "n 정온식 감지기-SP      = ")
    (prin1 (+ (length blst3-3) (length lst3-3)))
    (prompt "n 피난구 유도등-벽부형  = ")
    (prin1 (+ (length blst4) (length lst4)))
    (prompt "n 피난구 유도등-천장형  = ")
    (prin1 (+ (length blst4-1) (length lst4-1)))
    (prompt "n 통로 유도등-복도      = ")
    (prin1 (+ (length blst5) (length lst5)))
    (prompt "n 통로 유도등-계단      = ")
    (prin1 (+ (length blst5-1) (length lst5-1)))
    (prompt "n 객석 유도등           = ")
    (prin1 (+ (length blst6) (length lst6)))
    (prompt "n 거실통로 유도등       = ")
    (prin1 (+ (length blst7) (length lst7)))
    (prompt "n 시각경보기            = ")
    (prin1 (+ (length blst8) (length lst8)))
    (prompt "n 발신기세트(옥내소화전)= ")
    (prin1 (+ (length blst9) (length lst9)))
    (prompt "n 단독발신기세트        = ")
    (prin1 (+ (length blst10) (length lst10)))
    (prompt "n 비상콘센트            = ")
    (prin1 (+ (length blst10-1) (length lst10-1)))
    (prompt "n 방화셔터 연동제어반   = ")
    (prin1 (+ (length blst11) (length lst11)))
    (prompt "n 소화가스 수신반       = ")
    (prin1 (+ (length blst11-1) (length lst11-1)))
    (prompt "n 팩키지 수신반         = ")
    (prin1 (+ (length blst11-2) (length lst11-2)))
    (prompt "n 모듈러 용기함         = ")
    (prin1 (+ (length blst11-3) (length lst11-3)))
    (prompt "n 소화가스수동조작함    = ")
    (prin1 (+ (length blst12) (length lst12)))
    (prompt "n 방출표시등            = ")
    (prin1 (+ (length blst13) (length lst13)))
    (prompt "n 거실제연수동조작함    = ")
    (prin1 (+ (length blst14) (length lst14)))
    (prompt "n 댐퍼                  = ")
    (prin1 (+ (length blst15) (length lst15)))
    (prompt "n 휴대용비상조명등      = ")
    (prin1 (+ (length blst16) (length lst16)))
    (princ)
);defun close





원래 전기장비개수세는 리습인데 저가 수정을했는데 소화기 자동소화장치가 수가 이상하더라구요,