리습좀 봐세세요
컨텐츠 정보
- 109 조회
- 1 댓글
- 0 추천
- 0 비추천
- 목록
본문
;******************************************************************************
;******************************************************************************
:*********** 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
원래 전기장비개수세는 리습인데 저가 수정을했는데 소화기 자동소화장치가 수가 이상하더라구요,