여기서 받은건되요 수정좀 부탁할게요

레이어 수정하는 리습인데요
이건 마우스로 드래그를 해줘야 변환이 되거든요
드래그 안하구 자동으로 전체선택은 안될까요?
(defun condition ( )
(cond
((= check_la”1110″) (setq new_la”철도”))
((= check_la”1111″) (setq new_la”철도”))
((= check_la”1112″) (setq new_la”철도”))
((= check_la”1113″) (setq new_la”철도”))
((= check_la”1114″) (setq new_la”철도”))
((= check_la”1115″) (setq new_la”지하철”))
((= check_la”1116″) (setq new_la”지하철”))
((= check_la”1117″) (setq new_la”철도”))
((= check_la”1121″) (setq new_la”철도”))
((= check_la”1122″) (setq new_la”철도”))
((= check_la”1211″) (setq new_la”철도”))
((= check_la”1212″) (setq new_la”철도”))
((= check_la”1221″) (setq new_la”철도”))
((= check_la”1222″) (setq new_la”철도”))
((= check_la”1223″) (setq new_la”철도”))
((= check_la”1224″) (setq new_la”철도”))
((= check_la”2111″) (setq new_la”하천”))
((= check_la”2112″) (setq new_la”세류”))
((= check_la”2113″) (setq new_la”하천”))
((= check_la”2114″) (setq new_la”하천”))
((= check_la”2115″) (setq new_la”하천”))
((= check_la”2121″) (setq new_la”하천”))
((= check_la”2122″) (setq new_la”하천”))
((= check_la”2211″) (setq new_la”둑”))
((= check_la”2212″) (setq new_la”둑”))
((= check_la”2213″) (setq new_la”둑”))
((= check_la”2214″) (setq new_la”둑”))
((= check_la”2215″) (setq new_la”둑”))
((= check_la”2216″) (setq new_la”둑”))
((= check_la”2221″) (setq new_la”둑”))
((= check_la”2222″) (setq new_la”둑”))
((= check_la”2223″) (setq new_la”둑”))
((= check_la”2224″) (setq new_la”둑”))
((= check_la”2225″) (setq new_la”둑”))
((= check_la”2231″) (setq new_la”둑”))
((= check_la”2232″) (setq new_la”둑”))
((= check_la”2233″) (setq new_la”둑”))
((= check_la”2234″) (setq new_la”둑”))
((= check_la”2241″) (setq new_la”수문”))
((= check_la”2242″) (setq new_la”수문”))
((= check_la”2243″) (setq new_la”수문”))
((= check_la”2251″) (setq new_la”교통”))
((= check_la”2252″) (setq new_la”교통”))
((= check_la”2253″) (setq new_la”교통”))
((= check_la”2254″) (setq new_la”교통”))
((= check_la”2255″) (setq new_la”교통”))
((= check_la”2256″) (setq new_la”교통”))
((= check_la”2257″) (setq new_la”교통”))
((= check_la”2258″) (setq new_la”교통”))
((= check_la”2261″) (setq new_la”레저”))
((= check_la”2262″) (setq new_la”레저”))
((= check_la”2263″) (setq new_la”레저”))
((= check_la”2271″) (setq new_la”수로”))
((= check_la”2272″) (setq new_la”수로”))
((= check_la”2273″) (setq new_la”수로”))
((= check_la”2274″) (setq new_la”수로”))
((= check_la”2275″) (setq new_la”수로”))
((= check_la”2311″) (setq new_la”경계”))
((= check_la”2312″) (setq new_la”경계”))
((= check_la”2313″) (setq new_la”경계”))
((= check_la”2314″) (setq new_la”경계”))
((= check_la”2315″) (setq new_la”경계”))
((= check_la”2316″) (setq new_la”경계”))
((= check_la”2317″) (setq new_la”경계”))
((= check_la”2318″) (setq new_la”경계”))
((= check_la”2321″) (setq new_la”포인트”))
((= check_la”2322″) (setq new_la”포인트”))
((= check_la”2323″) (setq new_la”포인트”))
((= check_la”2324″) (setq new_la”포인트”))
((= check_la”2325″) (setq new_la”포인트”))
((= check_la”2326″) (setq new_la”포인트”))
((= check_la”2327″) (setq new_la”포인트”))
((= check_la”3110″) (setq new_la”도로”))
((= check_la”3111″) (setq new_la”고속도로”))
((= check_la”3112″) (setq new_la”국도”))
((= check_la”3113″) (setq new_la”지방도”))
((= check_la”3114″) (setq new_la”주요도로”))
((= check_la”3115″) (setq new_la”주요도로”))
((= check_la”3116″) (setq new_la”주요도로”))
((= check_la”3117″) (setq new_la”기타도로”))
((= check_la”3118″) (setq new_la”기타도로”))
((= check_la”3119″) (setq new_la”기타도로”))
((= check_la”3121″) (setq new_la”도로시설”))
((= check_la”3122″) (setq new_la”도로시설”))
((= check_la”3130″) (setq new_la”건설중도로”))
((= check_la”3131″) (setq new_la”건설중도로”))
((= check_la”3132″) (setq new_la”건설중도로”))
((= check_la”3133″) (setq new_la”건설중도로”))
((= check_la”3134″) (setq new_la”건설중도로”))
((= check_la”3135″) (setq new_la”건설중도로”))
((= check_la”3136″) (setq new_la”건설중도로”))
((= check_la”3137″) (setq new_la”건설중도로”))
((= check_la”3140″) (setq new_la”건설중도로”))
((= check_la”3141″) (setq new_la”건설중도로”))
((= check_la”3142″) (setq new_la”건설중도로”))
((= check_la”3143″) (setq new_la”건설중도로”))
((= check_la”3144″) (setq new_la”건설중도로”))
((= check_la”3145″) (setq new_la”건설중도로”))
((= check_la”3146″) (setq new_la”건설중도로”))
((= check_la”3147″) (setq new_la”건설중도로”))
((= check_la”3210″) (setq new_la”중심선”))
((= check_la”3211″) (setq new_la”중심선”))
((= check_la”3212″) (setq new_la”중심선”))
((= check_la”3213″) (setq new_la”중심선”))
((= check_la”3214″) (setq new_la”중심선”))
((= check_la”3215″) (setq new_la”중심선”))
((= check_la”3216″) (setq new_la”중심선”))
((= check_la”3217″) (setq new_la”중심선”))
((= check_la”3310″) (setq new_la”도로시설”))
((= check_la”3321″) (setq new_la”도로시설”))
((= check_la”3322″) (setq new_la”도로시설”))
((= check_la”3323″) (setq new_la”도로시설”))
((= check_la”3324″) (setq new_la”도로시설”))
((= check_la”3325″) (setq new_la”도로시설”))
((= check_la”3326″) (setq new_la”도로시설”))
((= check_la”3340″) (setq new_la”도로시설”))
((= check_la”3341″) (setq new_la”도로시설”))
((= check_la”3342″) (setq new_la”도로시설”))
((= check_la”3343″) (setq new_la”도로시설”))
((= check_la”3351″) (setq new_la”도로시설”))
((= check_la”3352″) (setq new_la”도로시설”))
((= check_la”3363″) (setq new_la”편의시설”))
((= check_la”3364″) (setq new_la”편의시설”))
((= check_la”3365″) (setq new_la”편의시설”))
((= check_la”3366″) (setq new_la”편의시설”))
((= check_la”3367″) (setq new_la”편의시설”))
((= check_la”3368″) (setq new_la”편의시설”))
((= check_la”3369″) (setq new_la”편의시설”))
((= check_la”3371″) (setq new_la”편의시설”))
((= check_la”3372″) (setq new_la”편의시설”))
((= check_la”3373″) (setq new_la”편의시설”))
((= check_la”3374″) (setq new_la”편의시설”))
((= check_la”3375″) (setq new_la”편의시설”))
((= check_la”3376″) (setq new_la”편의시설”))
((= check_la”3431″) (setq new_la”번호”))
((= check_la”3432″) (setq new_la”번호”))
((= check_la”3433″) (setq new_la”번호”))
((= check_la”3434″) (setq new_la”번호”))
((= check_la”3435″) (setq new_la”번호”))
((= check_la”3436″) (setq new_la”번호”))
((= check_la”3441″) (setq new_la”번호”))
((= check_la”3442″) (setq new_la”번호”))
((= check_la”3443″) (setq new_la”번호”))
((= check_la”3444″) (setq new_la”번호”))
((= check_la”3445″) (setq new_la”번호”))
((= check_la”3446″) (setq new_la”번호”))
((= check_la”4110″) (setq new_la”건물”))
((= check_la”4111″) (setq new_la”기타건물”))
((= check_la”4112″) (setq new_la”주택”))
((= check_la”4113″) (setq new_la”빌라”))
((= check_la”4114″) (setq new_la”공사중건물”))
((= check_la”4115″) (setq new_la”아파트”))
((= check_la”4116″) (setq new_la”기타건물”))
((= check_la”4117″) (setq new_la”기타건물”))
((= check_la”4118″) (setq new_la”기타건물”))
((= check_la”4119″) (setq new_la”기타건물”))
((= check_la”4121″) (setq new_la”담장”))
((= check_la”4122″) (setq new_la”담장”))
((= check_la”4123″) (setq new_la”담장”))
((= check_la”4124″) (setq new_la”담장”))
((= check_la”4125″) (setq new_la”담장”))
((= check_la”4126″) (setq new_la”담장”))
((= check_la”4127″) (setq new_la”담장”))
((= check_la”4211″) (setq new_la”행정기관”))
((= check_la”4212″) (setq new_la”행정기관”))
((= check_la”4213″) (setq new_la”행정기관”))
((= check_la”4214″) (setq new_la”행정기관”))
((= check_la”4215″) (setq new_la”행정기관”))
((= check_la”4216″) (setq new_la”행정기관”))
((= check_la”4217″) (setq new_la”행정기관”))
((= check_la”4218″) (setq new_la”행정기관”))
((= check_la”4219″) (setq new_la”행정기관”))
((= check_la”4221″) (setq new_la”행정기관”))
((= check_la”4222″) (setq new_la”행정기관”))
((= check_la”4223″) (setq new_la”행정기관”))
((= check_la”4224″) (setq new_la”행정기관”))
((= check_la”4225″) (setq new_la”행정기관”))
((= check_la”4226″) (setq new_la”행정기관”))
((= check_la”4231″) (setq new_la”행정기관”))
((= check_la”4232″) (setq new_la”행정기관”))
((= check_la”4233″) (setq new_la”행정기관”))
((= check_la”4234″) (setq new_la”행정기관”))
((= check_la”4235″) (setq new_la”행정기관”))
((= check_la”4236″) (setq new_la”행정기관”))
((= check_la”4237″) (setq new_la”행정기관”))
((= check_la”4238″) (setq new_la”행정기관”))
((= check_la”4241″) (setq new_la”행정기관”))
((= check_la”4242″) (setq new_la”행정기관”))
((= check_la”4243″) (setq new_la”행정기관”))
((= check_la”4251″) (setq new_la”행정기관”))
((= check_la”4252″) (setq new_la”행정기관”))
((= check_la”4253″) (setq new_la”행정기관”))
((= check_la”4254″) (setq new_la”행정기관”))
((= check_la”4255″) (setq new_la”행정기관”))
((= check_la”4256″) (setq new_la”행정기관”))
((= check_la”4257″) (setq new_la”행정기관”))
((= check_la”4258″) (setq new_la”행정기관”))
((= check_la”4311″) (setq new_la”행정기관”))
((= check_la”4312″) (setq new_la”행정기관”))
((= check_la”4313″) (setq new_la”행정기관”))
((= check_la”4321″) (setq new_la”행정기관”))
((= check_la”4322″) (setq new_la”행정기관”))
((= check_la”4323″) (setq new_la”행정기관”))
((= check_la”4331″) (setq new_la”행정기관”))
((= check_la”4332″) (setq new_la”행정기관”))
((= check_la”4333″) (setq new_la”행정기관”))
((= check_la”4334″) (setq new_la”기타지형”))
((= check_la”4335″) (setq new_la”기타지형”))
((= check_la”4336″) (setq new_la”기타지형”))
((= check_la”4337″) (setq new_la”기타지형”))
((= check_la”4338″) (setq new_la”기타지형”))
((= check_la”4339″) (setq new_la”기타지형”))
((= check_la”4340″) (setq new_la”기타지형”))
((= check_la”4341″) (setq new_la”기타지형”))
((= check_la”4342″) (setq new_la”기타지형”))
((= check_la”4343″) (setq new_la”기타지형”))
((= check_la”4344″) (setq new_la”기타지형”))
((= check_la”4345″) (setq new_la”기타지형”))
((= check_la”4346″) (setq new_la”기타지형”))
((= check_la”4411″) (setq new_la”기타지형”))
((= check_la”4412″) (setq new_la”기타지형”))
((= check_la”4413″) (setq new_la”기타지형”))
((= check_la”4414″) (setq new_la”기타지형”))
((= check_la”4415″) (setq new_la”기타지형”))
((= check_la”4416″) (setq new_la”기타지형”))
((= check_la”4417″) (setq new_la”기타지형”))
((= check_la”4421″) (setq new_la”기타지형”))
((= check_la”4422″) (setq new_la”기타지형”))
((= check_la”4423″) (setq new_la”기타지형”))
((= check_la”4424″) (setq new_la”기타지형”))
((= check_la”4425″) (setq new_la”기타지형”))
((= check_la”4426″) (setq new_la”기타지형”))
((= check_la”4427″) (setq new_la”기타지형”))
((= check_la”4431″) (setq new_la”기타지형”))
((= check_la”4432″) (setq new_la”기타지형”))
((= check_la”4433″) (setq new_la”기타지형”))
((= check_la”4434″) (setq new_la”기타지형”))
((= check_la”4435″) (setq new_la”기타지형”))
((= check_la”4511″) (setq new_la”기타지형”))
((= check_la”4512″) (setq new_la”기타지형”))
((= check_la”4513″) (setq new_la”기타지형”))
((= check_la”4514″) (setq new_la”기타지형”))
((= check_la”4521″) (setq new_la”기타지형”))
((= check_la”4522″) (setq new_la”기타지형”))
((= check_la”4523″) (setq new_la”기타지형”))
((= check_la”4524″) (setq new_la”기타지형”))
((= check_la”4525″) (setq new_la”기타지형”))
((= check_la”4526″) (setq new_la”기타지형”))
((= check_la”4527″) (setq new_la”기타지형”))
((= check_la”4528″) (setq new_la”기타지형”))
((= check_la”4530″) (setq new_la”기타지형”))
((= check_la”4531″) (setq new_la”기타지형”))
((= check_la”4532″) (setq new_la”기타지형”))
((= check_la”4533″) (setq new_la”기타지형”))
((= check_la”4534″) (setq new_la”기타지형”))
((= check_la”4610″) (setq new_la”기타지형”))
((= check_la”4611″) (setq new_la”기타지형”))
((= check_la”4612″) (setq new_la”기타지형”))
((= check_la”4613″) (setq new_la”기타지형”))
((= check_la”4614″) (setq new_la”기타지형”))
((= check_la”4615″) (setq new_la”기타지형”))
((= check_la”4620″) (setq new_la”기타지형”))
((= check_la”4621″) (setq new_la”기타지형”))
((= check_la”4622″) (setq new_la”기타지형”))
((= check_la”4623″) (setq new_la”기타지형”))
((= check_la”4624″) (setq new_la”기타지형”))
((= check_la”4625″) (setq new_la”기타지형”))
((= check_la”4626″) (setq new_la”기타지형”))
((= check_la”4627″) (setq new_la”기타지형”))
((= check_la”4630″) (setq new_la”기타지형”))
((= check_la”4631″) (setq new_la”기타지형”))
((= check_la”4632″) (setq new_la”기타지형”))
((= check_la”4633″) (setq new_la”기타지형”))
((= check_la”4634″) (setq new_la”기타지형”))
((= check_la”4635″) (setq new_la”기타지형”))
((= check_la”4636″) (setq new_la”기타지형”))
((= check_la”4637″) (setq new_la”기타지형”))
((= check_la”5111″) (setq new_la”기타지형”))
((= check_la”5112″) (setq new_la”기타지형”))
((= check_la”5113″) (setq new_la”기타지형”))
((= check_la”5114″) (setq new_la”기타지형”))
((= check_la”5115″) (setq new_la”기타지형”))
((= check_la”5211″) (setq new_la”기타지형”))
((= check_la”5212″) (setq new_la”기타지형”))
((= check_la”5213″) (setq new_la”기타지형”))
((= check_la”5214″) (setq new_la”기타지형”))
((= check_la”5215″) (setq new_la”기타지형”))
((= check_la”5216″) (setq new_la”기타지형”))
((= check_la”5221″) (setq new_la”기타지형”))
((= check_la”5222″) (setq new_la”기타지형”))
((= check_la”5223″) (setq new_la”기타지형”))
((= check_la”5231″) (setq new_la”기타지형”))
((= check_la”5232″) (setq new_la”기타지형”))
((= check_la”5233″) (setq new_la”기타지형”))
((= check_la”5234″) (setq new_la”기타지형”))
((= check_la”5311″) (setq new_la”기타지형”))
((= check_la”5312″) (setq new_la”기타지형”))
((= check_la”5313″) (setq new_la”기타지형”))
((= check_la”5314″) (setq new_la”기타지형”))
((= check_la”5315″) (setq new_la”기타지형”))
((= check_la”5316″) (setq new_la”기타지형”))
((= check_la”5321″) (setq new_la”기타지형”))
((= check_la”5322″) (setq new_la”기타지형”))
((= check_la”5323″) (setq new_la”기타지형”))
((= check_la”5324″) (setq new_la”기타지형”))
((= check_la”5325″) (setq new_la”기타지형”))
((= check_la”5331″) (setq new_la”기타지형”))
((= check_la”5332″) (setq new_la”기타지형”))
((= check_la”5333″) (setq new_la”기타지형”))
((= check_la”5334″) (setq new_la”기타지형”))
((= check_la”5335″) (setq new_la”기타지형”))
((= check_la”5341″) (setq new_la”기타지형”))
((= check_la”5342″) (setq new_la”기타지형”))
((= check_la”5343″) (setq new_la”기타지형”))
((= check_la”5344″) (setq new_la”기타지형”))
((= check_la”5345″) (setq new_la”기타지형”))
((= check_la”6111″) (setq new_la”기타지형”))
((= check_la”6112″) (setq new_la”기타지형”))
((= check_la”6113″) (setq new_la”기타지형”))
((= check_la”6114″) (setq new_la”기타지형”))
((= check_la”6115″) (setq new_la”기타지형”))
((= check_la”6116″) (setq new_la”기타지형”))
((= check_la”6117″) (setq new_la”기타지형”))
((= check_la”6121″) (setq new_la”기타지형”))
((= check_la”6122″) (setq new_la”기타지형”))
((= check_la”6123″) (setq new_la”기타지형”))
((= check_la”6124″) (setq new_la”기타지형”))
((= check_la”6125″) (setq new_la”기타지형”))
((= check_la”6126″) (setq new_la”기타지형”))
((= check_la”6131″) (setq new_la”기타지형”))
((= check_la”6132″) (setq new_la”기타지형”))
((= check_la”6133″) (setq new_la”기타지형”))
((= check_la”6134″) (setq new_la”기타지형”))
((= check_la”6135″) (setq new_la”기타지형”))
((= check_la”6136″) (setq new_la”기타지형”))
((= check_la”6211″) (setq new_la”기타지형”))
((= check_la”6212″) (setq new_la”기타지형”))
((= check_la”6213″) (setq new_la”기타지형”))
((= check_la”6214″) (setq new_la”기타지형”))
((= check_la”6221″) (setq new_la”기타지형”))
((= check_la”6222″) (setq new_la”기타지형”))
((= check_la”6223″) (setq new_la”기타지형”))
((= check_la”6224″) (setq new_la”기타지형”))
((= check_la”6225″) (setq new_la”기타지형”))
((= check_la”6231″) (setq new_la”기타지형”))
((= check_la”6232″) (setq new_la”기타지형”))
((= check_la”6233″) (setq new_la”기타지형”))
((= check_la”6234″) (setq new_la”기타지형”))
((= check_la”6235″) (setq new_la”기타지형”))
((= check_la”6236″) (setq new_la”기타지형”))
((= check_la”6311″) (setq new_la”기타지형”))
((= check_la”6312″) (setq new_la”기타지형”))
((= check_la”6313″) (setq new_la”기타지형”))
((= check_la”6331″) (setq new_la”기타지형”))
((= check_la”6332″) (setq new_la”기타지형”))
((= check_la”6333″) (setq new_la”기타지형”))
((= check_la”6334″) (setq new_la”기타지형”))
((= check_la”6335″) (setq new_la”기타지형”))
((= check_la”6336″) (setq new_la”기타지형”))
((= check_la”6337″) (setq new_la”기타지형”))
((= check_la”6351″) (setq new_la”기타지형”))
((= check_la”6352″) (setq new_la”기타지형”))
((= check_la”6353″) (setq new_la”기타지형”))
((= check_la”6354″) (setq new_la”기타지형”))
((= check_la”6355″) (setq new_la”기타지형”))
((= check_la”6356″) (setq new_la”기타지형”))
((= check_la”6357″) (setq new_la”기타지형”))
((= check_la”7111″) (setq new_la”기타지형”))
((= check_la”7112″) (setq new_la”기타지형”))
((= check_la”7113″) (setq new_la”기타지형”))
((= check_la”7114″) (setq new_la”기타지형”))
((= check_la”7121″) (setq new_la”기타지형”))
((= check_la”7122″) (setq new_la”기타지형”))
((= check_la”7123″) (setq new_la”기타지형”))
((= check_la”7124″) (setq new_la”기타지형”))
((= check_la”7131″) (setq new_la”기타지형”))
((= check_la”7132″) (setq new_la”기타지형”))
((= check_la”7133″) (setq new_la”기타지형”))
((= check_la”7134″) (setq new_la”기타지형”))
((= check_la”7211″) (setq new_la”기타지형”))
((= check_la”7213″) (setq new_la”기타지형”))
((= check_la”7214″) (setq new_la”기타지형”))
((= check_la”7215″) (setq new_la”기타지형”))
((= check_la”7216″) (setq new_la”기타지형”))
((= check_la”7217″) (setq new_la”기타지형”))
((= check_la”7221″) (setq new_la”기타지형”))
((= check_la”7222″) (setq new_la”기타지형”))
((= check_la”7223″) (setq new_la”기타지형”))
((= check_la”7224″) (setq new_la”기타지형”))
((= check_la”7225″) (setq new_la”기타지형”))
((= check_la”7311″) (setq new_la”기타지형”))
((= check_la”7312″) (setq new_la”기타지형”))
((= check_la”7321″) (setq new_la”기타지형”))
((= check_la”7322″) (setq new_la”기타지형”))
((= check_la”7323″) (setq new_la”기타지형”))
((= check_la”7334″) (setq new_la”기타지형”))
((= check_la”7335″) (setq new_la”기타지형”))
((= check_la”8111″) (setq new_la”기타지형”))
((= check_la”8112″) (setq new_la”기타지형”))
((= check_la”8113″) (setq new_la”기타지형”))
((= check_la”8114″) (setq new_la”기타지형”))
((= check_la”8115″) (setq new_la”기타지형”))
((= check_la”8116″) (setq new_la”기타지형”))
((= check_la”8117″) (setq new_la”기타지형”))
((= check_la”8118″) (setq new_la”기타지형”))
((= check_la”8210″) (setq new_la”기타지형”))
((= check_la”8211″) (setq new_la”기타지형”))
((= check_la”8212″) (setq new_la”기타지형”))
((= check_la”8213″) (setq new_la”기타지형”))
((= check_la”8214″) (setq new_la”기타지형”))
((= check_la”8215″) (setq new_la”기타지형”))
((= check_la”8220″) (setq new_la”기타지형”))
((= check_la”8221″) (setq new_la”기타지형”))
((= check_la”8222″) (setq new_la”기타지형”))
((= check_la”8223″) (setq new_la”기타지형”))
((= check_la”8224″) (setq new_la”기타지형”))
((= check_la”8225″) (setq new_la”기타지형”))
((= check_la”8230″) (setq new_la”기타지형”))
((= check_la”8231″) (setq new_la”기타지형”))
((= check_la”8232″) (setq new_la”기타지형”))
((= check_la”8233″) (setq new_la”기타지형”))
((= check_la”9110″) (setq new_la”텍스트”))
((= check_la”9111″) (setq new_la”텍스트”))
((= check_la”9112″) (setq new_la”텍스트”))
((= check_la”9113″) (setq new_la”텍스트”))
((= check_la”9114″) (setq new_la”텍스트”))
((= check_la”9115″) (setq new_la”텍스트”))
((= check_la”9116″) (setq new_la”텍스트”))
((= check_la”9120″) (setq new_la”텍스트”))
((= check_la”9121″) (setq new_la”텍스트”))
((= check_la”9122″) (setq new_la”텍스트”))
((= check_la”9123″) (setq new_la”텍스트”))
((= check_la”9124″) (setq new_la”텍스트”))
((= check_la”9125″) (setq new_la”텍스트”))
((= check_la”9130″) (setq new_la”텍스트”))
((= check_la”9131″) (setq new_la”텍스트”))
((= check_la”9132″) (setq new_la”텍스트”))
((= check_la”9133″) (setq new_la”텍스트”))
((= check_la”9134″) (setq new_la”텍스트”))
((= check_la”9140″) (setq new_la”텍스트”))
((= check_la”9141″) (setq new_la”텍스트”))
((= check_la”9142″) (setq new_la”텍스트”))
((= check_la”9143″) (setq new_la”텍스트”))
((= check_la”9144″) (setq new_la”텍스트”))
((= check_la”9145″) (setq new_la”텍스트”))
((= check_la”9146″) (setq new_la”텍스트”))
((= check_la”9147″) (setq new_la”텍스트”))
((= check_la”9150″) (setq new_la”텍스트”))
((= check_la”9151″) (setq new_la”텍스트”))
((= check_la”9152″) (setq new_la”텍스트”))
((= check_la”9153″) (setq new_la”텍스트”))
((= check_la”9154″) (setq new_la”텍스트”))
((= check_la”9160″) (setq new_la”텍스트”))
((= check_la”9161″) (setq new_la”텍스트”))
((= check_la”9162″) (setq new_la”텍스트”))
((= check_la”9210″) (setq new_la”텍스트”))
((= check_la”9211″) (setq new_la”텍스트”))
((= check_la”9212″) (setq new_la”텍스트”))
((= check_la”9213″) (setq new_la”텍스트”))
((= check_la”9214″) (setq new_la”텍스트”))
((= check_la”9215″) (setq new_la”텍스트”))
((= check_la”9216″) (setq new_la”텍스트”))
((= check_la”9217″) (setq new_la”텍스트”))
((= check_la”9220″) (setq new_la”텍스트”))
((= check_la”9221″) (setq new_la”텍스트”))
((= check_la”9222″) (setq new_la”텍스트”))
((= check_la”9223″) (setq new_la”텍스트”))
((= check_la”9224″) (setq new_la”텍스트”))
((= check_la”9225″) (setq new_la”텍스트”))
((= check_la”9226″) (setq new_la”텍스트”))
((= check_la”9230″) (setq new_la”텍스트”))
((= check_la”9231″) (setq new_la”텍스트”))
((= check_la”9232″) (setq new_la”텍스트”))
((= check_la”9233″) (setq new_la”텍스트”))
(t (setq new_la nil))
)
)
(defun c:ch_la1 ( )
(setq pt1 (getpoint”Pick the first corner for select ::”))(terpri)
(setq pt2 (getcorner pt1″Pick the second corner for select ::”))(terpri)
(setq a (ssget”c” pt1 pt2))
(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 a1 (ssget”c” pt1 pt2))
(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))
)
)