여기서 리습받아서 레이어 변경부분만 수정을해서 사용도중에 갑자기 안되거든요
뭐가 잘못되었는지 잘모르겠어요
가르쳐주세요
리습을 appload 하면 이런메세지가 나옵니다.
error: malformed string on input
(defun condition ( )
(cond
((= check_la”철도”) (setq new_la”rail_l”))
((= check_la”기차역”) (setq new_la”rail_p”))
((= check_la”기차역명”) (setq new_la”rail_t”))
((= check_la”지하철노선”) (setq new_la”subway_l”))
((= check_la”전철역”) (setq new_la”subway_p”))
((= check_la”지하철명”) (setq new_la”subway_t”))
((= check_la”지하철출구번호”) (setq new_la”subwayno”))
((= check_la”세류”) (setq new_la”riv_l”))
((= check_la”하천”) (setq new_la”riv_p”))
((= check_la”하천명”) (setq new_la”riv_t”))
((= check_la”고속도로”) (setq new_la”newhighwaycenter_l”))
((= check_la”고속도로NO”) (setq new_la”newhigyNO_t”))
((= check_la”고속도로명”) (setq new_la”newhighname_t”))
((= check_la”고속국도명”) (setq new_la”newhighname_t”))
((= check_la”일반국도”) (setq new_la”highwaycenter_l”))
((= check_la”국도NO”) (setq new_la”highNO_t”))
((= check_la”지방도”) (setq new_la”localwaycenter_l”))
((= check_la”지방도NO”) (setq new_la”localNO_t”))
((= check_la”기타도로”) (setq new_la”etcroad_l”))
((= check_la”도로블록”) (setq new_la”block”))
((= check_la”고가차도”) (setq new_la”uproad_l”))
((= check_la”도로폭_고가도로”) (setq new_la”uproad_p”))
((= check_la”지하차도”) (setq new_la”down_l”))
((= check_la”도로폭_지하차도”) (setq new_la”down_p”))
((= check_la”터널”) (setq new_la”tunnel_l”))
((= check_la”도로폭_터널”) (setq new_la”tunnel_p”))
((= check_la”터널명”) (setq new_la”tunnel_t”))
((= check_la”다리”) (setq new_la”bigbridge_l”))
((= check_la”도로폭_교량”) (setq new_la”bigbridge_p”))
((= check_la”교량명”) (setq new_la”bigbridge_t”))
((= check_la”연결로”) (setq new_la”join_l”))
((= check_la”톨게이트”) (setq new_la”tollgate_t”))
((= check_la”교차로”) (setq new_la”intersection_t”))
((= check_la”인터체인지”) (setq new_la”ic_t”))
((= check_la”분기점”) (setq new_la”branchpoint_t”))
((= check_la”주택”) (setq new_la”house_p”))
((= check_la”아파트”) (setq new_la”apt_p”))
((= check_la”아파트명”) (setq new_la”apt_t”))
((= check_la”아파트동명”) (setq new_la”aptdong_t”))
((= check_la”아파트부지”) (setq new_la”apt_b”))
((= check_la”빌라_p”) (setq new_la”villa_p”))
((= check_la”빌라명”) (setq new_la”villa_t”))
((= check_la”도청”) (setq new_la”provincial_t”))
((= check_la”도청_p”) (setq new_la”provincial_p”))
((= check_la”시청”) (setq new_la”cityhall_t”))
((= check_la”시청_p”) (setq new_la”cityhall_p”))
((= check_la”구청”) (setq new_la”wo_t”))
((= check_la”구청_p”) (setq new_la”wo_p”))
((= check_la”군청”) (setq new_la”co_t”))
((= check_la”군청_p”) (setq new_la”co_p”))
((= check_la”읍사무소”) (setq new_la”guildhall_t”))
((= check_la”읍사무소_p”) (setq new_la”guildhall_p”))
((= check_la”면사무소”) (setq new_la”village_t”))
((= check_la”면사무소_p”) (setq new_la”village_p”))
((= check_la”동사무소”) (setq new_la”anoffice_t”))
((= check_la”동사무소_p”) (setq new_la”anoffice_p”))
((= check_la”검찰청”) (setq new_la”ppo_t”))
((= check_la”경찰서”) (setq new_la”police_t”))
((= check_la”경찰청”) (setq new_la”nap_t”))
((= check_la”교육청”) (setq new_la”edu_t”))
((= check_la”파출소”) (setq new_la”branch_t”))
((= check_la”치안_p”) (setq new_la”chi_p”))
((= check_la”소방서”) (setq new_la”sobangso_t”))
((= check_la”법원”) (setq new_la”court_t”))
((= check_la”보건소”) (setq new_la”healthcenter_t”))
((= check_la”세무서”) (setq new_la”ta_t”))
((= check_la”등기소”) (setq new_la”re_t”))
((= check_la”우체국”) (setq new_la”post_t”))
((= check_la”우체국_p”) (setq new_la”post_p”))
((= check_la”병무청”) (setq new_la”mma_t”))
((= check_la”영사관”) (setq new_la”consulate_t”))
((= check_la”특허청”) (setq new_la”kipo_t”))
((= check_la”대사관”) (setq new_la”embassy_t”))
((= check_la”마을회관”) (setq new_la”hall_t”))
((= check_la”관공서기타”) (setq new_la”popo_t”))
((= check_la”국민연금”) (setq new_la”np_t”))
((= check_la”공공기관_p”) (setq new_la”popo _p”))
((= check_la”KT”) (setq new_la”kt_t”))
((= check_la”전화국”) (setq new_la”kt_t”))
((= check_la”전화국_p”) (setq new_la”kt_p”))
((= check_la”도시가스공사”) (setq new_la”gas_t”))
((= check_la”농업기반공사”) (setq new_la”nong_t”))
((= check_la”지적공사”) (setq new_la”gis_t”))
((= check_la”한국전력공사”) (setq new_la”sp_t”))
((= check_la”한국수자원공사”) (setq new_la”we_t”))
((= check_la”한국도로공사”) (setq new_la”road_t”))
((= check_la”한국토지공사”) (setq new_la”bo_t”))
((= check_la”도시개발공사”) (setq new_la”dosi_t”))
((= check_la”토지공사”) (setq new_la”bo_t”))
((= check_la”KT&G”) (setq new_la”kt&g_t”))
((= check_la”공사_p”) (setq new_la”pub_p”))
((= check_la”초등학교”) (setq new_la”elementaryschool_t”))
((= check_la”중학교”) (setq new_la”js_t”))
((= check_la”고등학교”) (setq new_la”highschool_t”))
((= check_la”대학교”) (setq new_la”university_t”))
((= check_la”특수학교”) (setq new_la”spe_t”))
((= check_la”학교_p”) (setq new_la”school_p”))
((= check_la”school_b”) (setq new_la”school_b”))
((= check_la”학교_b”) (setq new_la”school_b”))
((= check_la”유치원어린이집”) (setq new_la”eorinljip_t”))
((= check_la”도서관”) (setq new_la”library_t”))
((= check_la”독서실”) (setq new_la”rea_t”))
((= check_la”교회”) (setq new_la”chur_t”))
((= check_la”불교”) (setq new_la”budd_t”))
((= check_la”미술관”) (setq new_la”gallery_t”))
((= check_la”박물관”) (setq new_la”museum_t”))
((= check_la”연극극장”) (setq new_la”playtheater_t”))
((= check_la”영화관”) (setq new_la”movie_t”))
((= check_la”유적지”) (setq new_la”historic_t”))
((= check_la”전시관”) (setq new_la”exhibition_t”))
((= check_la”종합공연장”) (setq new_la”ipc_t”))
((= check_la”명승지유적지”) (setq new_la”myeongseungji_t”))
((= check_la”명승유적지”) (setq new_la”myeongseungji_t”))
((= check_la”계곡”) (setq new_la”valley_t”))
((= check_la”사찰”) (setq new_la”temple_t”))
((= check_la”문화관광기타”) (setq new_la”cso_t”))
((= check_la”공원”) (setq new_la”green_t”))
((= check_la”공원부지”) (setq new_la”green_p”))
((= check_la”공원_b”) (setq new_la”green_p”))
((= check_la”운동장”) (setq new_la”playground_t”))
((= check_la”월드컵경기장”) (setq new_la”wor_t”))
((= check_la”경기장”) (setq new_la”spo_t”))
((= check_la”경마경륜”) (setq new_la”race_t”))
((= check_la”골프장”) (setq new_la”conuntry_t”))
((= check_la”볼링장”) (setq new_la”bowling_t”))
((= check_la”수영장”) (setq new_la”swi_t”))
((= check_la”스포츠센터”) (setq new_la”sc_t”))
((= check_la”야구장”) (setq new_la”bf_t”))
((= check_la”체육관”) (setq new_la”gym_t”))
((= check_la”축구장”) (setq new_la”foot_t”))
((= check_la”스포츠_p”) (setq new_la”sp_p”))
((= check_la”스포츠_P”) (setq new_la”sp_p”))
((= check_la”헬스클럽”) (setq new_la”healthclub_t”))
((= check_la”해수욕장”) (setq new_la”beach_t”))
((= check_la”스키눈썰매”) (setq new_la”ski_t”))
((= check_la”여가레저기타”) (setq new_la”llo_t”))
((= check_la”종합위락시설”) (setq new_la”froi”))
((= check_la”국립공원”) (setq new_la”npark_t”))
((= check_la”군립공원”) (setq new_la”kpark_t”))
((= check_la”도립공원”) (setq new_la”ppark_t”))
((= check_la”산명칭”) (setq new_la”mouname_t”))
((= check_la”낚시터”) (setq new_la”fish_t”))
((= check_la”bank_t”) (setq new_la”bank_t”))
((= check_la”신용금고”) (setq new_la”bank_t”))
((= check_la”보험”) (setq new_la”guar_t”))
((= check_la”은행_p”) (setq new_la”bank_p”))
((= check_la”종합병원”) (setq new_la”ghospital_t”))
((= check_la”hospital_t”) (setq new_la”hospital_t”))
((= check_la”hospital_t”) (setq new_la”hospital_t”))
((= check_la”animal_t”) (setq new_la”animal_t”))
((= check_la”hospital_t”) (setq new_la”hospital_t”))
((= check_la”병원_p”) (setq new_la”hospital_p”))
((= check_la”병원_P”) (setq new_la”hospital_p”))
((= check_la”약국”) (setq new_la”drugstore_t”))
((= check_la”온천”) (setq new_la”hotspring_t”))
((= check_la”목욕사우나”) (setq new_la”bathsauna_t”))
((= check_la”콘도”) (setq new_la”cocon_t”))
((= check_la”호텔”) (setq new_la”hotel_t”))
((= check_la”펜션”) (setq new_la”penpen_t”))
((= check_la”쇼핑센터”) (setq new_la”shopping_t”))
((= check_la”슈퍼마켓”) (setq new_la”super_t”))
((= check_la”시장”) (setq new_la”market_t”))
((= check_la”종합상가”) (setq new_la”ibs_t”))
((= check_la”편의점”) (setq new_la”con_t”))
((= check_la”할인점”) (setq new_la”discount_t”))
((= check_la”백화점”) (setq new_la”depa_t”))
((= check_la”라디오방송사”) (setq new_la”radio_t”))
((= check_la”방송제작”) (setq new_la”bc_t”))
((= check_la”방송사”) (setq new_la”bc_t”))
((= check_la”신문사”) (setq new_la”newspaper_t”))
((= check_la”유선방송”) (setq new_la”cable_t”))
((= check_la”휴게소”) (setq new_la”play_t”))
((= check_la”충전소”) (setq new_la”chung_t”))
((= check_la”주유소”) (setq new_la”oiling_t”))
((= check_la”주차장”) (setq new_la”parking_t”))
((= check_la”터미널”) (setq new_la”terminal_t”))
((= check_la”항공사”) (setq new_la”airline_t”))
((= check_la”사회복지시설”) (setq new_la”swf_t”))
((= check_la”세탁소”) (setq new_la”laundry_t”))
((= check_la”운전면허시험장”) (setq new_la”driving_t”))
((= check_la”자동차정비대행”) (setq new_la”afmvm”))
((= check_la”공항”) (setq new_la”airport_t”))
((= check_la”도경계”) (setq new_la”do_p”))
((= check_la”시경계”) (setq new_la”si_p”))
((= check_la”구경계”) (setq new_la”ku_p”))
((= check_la”군경계”) (setq new_la”kun_p”))
((= check_la”읍경계”) (setq new_la”town_p”))
((= check_la”면경계”) (setq new_la”mieon_p”))
((= check_la”리경계”) (setq new_la”ri_p”))
((= check_la”동경계”) (setq new_la”dong_p”))
((= check_la”마을명”) (setq new_la”ham_t”))
((= check_la”big_t”) (setq new_la”biz_t”))
((= check_la”m_t”) (setq new_la”biz_t”))
((= check_la”biz_t”) (setq new_la”biz_t”))
((= check_la”단체기타”) (setq new_la”biz_t”))
((= check_la”무역금융기타”) (setq new_la”biz_t”))
((= check_la”방송언론기타”) (setq new_la”biz_t”))
((= check_la”증권거래업”) (setq new_la”biz_t”))
((= check_la”무역중개”) (setq new_la”biz_t”))
((= check_la”s_t”) (setq new_la”biz_t”))
((= check_la”기업_p”) (setq new_la”biz_p”))
((= check_la”기업_P) (setq new_la”biz_p”))
((= check_la”빌딩”) (setq new_la”buill_t”))
((= check_la”주요건물”) (setq new_la”majorbuild_p”))
((= check_la”섬명칭”) (setq new_la”duk_t”))
((= check_la”섬문자”) (setq new_la”duk_t”))
((= check_la”항구명”) (setq new_la”sea_t”))
(t (setq new_la nil))
)
)
(defun c:rch_la1 ( )
(setq a (ssget”x”))
(setq b (sslength a) no 0)
(repeat b
(setq ss (ssname a no))
(setq pl (entget ss))
(setq check_la (cdr (assoc 8 pl)))
(condition)
(if (/= new_la nil) (progn
(setq c (assoc 8 pl))
(setq d (cons (car c) new_la))
(setq d1 (subst d c pl))
(entmod d1)
))
(setq no (+ no 1))
)
(setq a (ssget”x”))
(setq b1 (sslength a1) no1 0)
(repeat b1
(setq ss1 (ssname a1 no1))
(setq pl1 (entget ss1))
(if (= (cdr (assoc 0 pl1)) “INSERT”)(PROGN
(setq code (cdr (assoc 8 pl1)))
(if (/= (cdr (assoc 2 pl1)) code) (progn
(setq c1 (assoc 2 pl1))
(setq d2 (cons (car c1) code))
(setq d3 (subst d2 c1 pl1))
(entmod d3)
))
))
(setq no1 (+ no1 1))
)
)