작동이 안되내요
한번 만 봐주세용
(defun c:er ( / po tx tx2 lll ll nnu num aa aaa bbc kkbb bb a1 a2 a3 a4 a5 a6 a7 a8 qqqt llq)
(setvar “cmdecho” 0)
;(pobase)
(setq po (getpoint “npoint select ———>”))
(prompt “n현재지번===>[ “)(princ kkpp)
(setq ttt (getstring ” ]지번을 써주세요 : “))
(setq txt (getstring “n부지번을 써주세요 : “))
(prompt “n현재지목===>[ “)(princ kkp)
(setq iio (getstring ” ] 1:전 2:답 3:도 4:대 5:제 6:천 7:구 8:묘 9:임 0:장n 11:잡 12:철 13:유 14:학 15:천 16:종 17:사 18:과 19:체n=== o^^*o ===>: “))
(if (eq ttt “”) (setq ttt iiut) (setq ttt ttt))
(if (eq ttt “”) (prompt”– Wow! you good —“) (setq iiut ttt))
(setq jji (strlen txt))
(if (eq 0 jji) (setq tx ttt) (setq tx (strcat ttt “-” txt)))
(if (eq iio “”) (setq tx2 iiu) (setq tx2 iio))
(if (eq iio “”) (prompt”– Wow! you good —“) (setq iiu iio))
(if (or (eq iio “X”) (eq iio “x”) (eq iio “1”)) (setq kkp “전”) ;
(if (or (eq iio “C”) (eq iio “c”) (eq iio “2”)) (setq kkp “답”);
(if (or (eq iio “V”) (eq iio “v”) (eq iio “3”)) (setq kkp “도”);
(if (or (eq iio “S”) (eq iio “s”) (eq iio “4”)) (setq kkp “대”);
(if (or (eq iio “D”) (eq iio “d”) (eq iio “5”)) (setq kkp “제”);
(if (or (eq iio “F”) (eq iio “f”) (eq iio “6”)) (setq kkp “천”);
(if (or (eq iio “W”) (eq iio “w”) (eq iio “7”)) (setq kkp “구”); 자동입력부분
(if (or (eq iio “E”) (eq iio “e”) (eq iio “8”)) (setq kkp “묘”);
(if (or (eq iio “R”) (eq iio “r”) (eq iio “9”)) (setq kkp “임”);
(if (or (eq iio “Z”) (eq iio “z”) (eq iio “0”)) (setq kkp “장”);
(if (or (eq iio “XX”) (eq iio “xx”) (eq iio “11”)) (setq kkp “잡”);
(if (or (eq iio “XC”) (eq iio “xc”) (eq iio “12”)) (setq kkp “철”);
(if (or (eq iio “XV”) (eq iio “xv”) (eq iio “13”)) (setq kkp “유”);
(if (or (eq iio “XS”) (eq iio “xs”) (eq iio “14”)) (setq kkp “학”);
(if (or (eq iio “XD”) (eq iio “xd”) (eq iio “15”)) (setq kkp “천”);
(if (or (eq iio “XF”) (eq iio “xf”) (eq iio “16”)) (setq kkp “종”);
(if (or (eq iio “XW”) (eq iio “xw”) (eq iio “17”)) (setq kkp “사”);
(if (or (eq iio “XE”) (eq iio “xe”) (eq iio “18”)) (setq kkp “과”);
(if (or (eq iio “XR”) (eq iio “xr”) (eq iio “19”)) (setq kkp “체”);
(progn (setq lll “입력오류”))
)))))))))))))))))))
(setq aa (strlen tx))
(setq nnu 1)
(repeat aa
(setq bb (substr tx nnu 1))
(if (or (eq bb “X”) (eq bb “x”) (eq bb “1”)) (setq bbc “1”)
(if (or (eq bb “C”) (eq bb “c”) (eq bb “2”)) (setq bbc “2”)
(if (or (eq bb “V”) (eq bb “v”) (eq bb “3”)) (setq bbc “3”)
(if (or (eq bb “S”) (eq bb “s”) (eq bb “4”)) (setq bbc “4”)
(if (or (eq bb “D”) (eq bb “d”) (eq bb “5”)) (setq bbc “5”)
(if (or (eq bb “F”) (eq bb “f”) (eq bb “6”)) (setq bbc “6”)
(if (or (eq bb “W”) (eq bb “w”) (eq bb “7”)) (setq bbc “7”)
(if (or (eq bb “E”) (eq bb “e”) (eq bb “8”)) (setq bbc “8”)
(if (or (eq bb “R”) (eq bb “r”) (eq bb “9”)) (setq bbc “9”)
(if (or (eq bb “Z”) (eq bb “z”) (eq bb “0”)) (setq bbc “0”)
(if (or (eq bb “T”) (eq bb “t”) (eq bb “-“)) (setq bbc “-“)
(progn (setq bbc “입력오류”) (alert “지번 입력 오류 입니다.”))
)))))))))))
(setq nnu (+ 1 nnu))
(setq llq (append (list bbc) llq))
(setq ll (reverse llq))
)
(setq a1 (nth 0 ll))
(setq a2 (nth 1 ll))
(setq a3 (nth 2 ll))
(setq a4 (nth 3 ll))
(setq a5 (nth 4 ll))
(setq a6 (nth 5 ll))
(setq a7 (nth 6 ll))
(setq a8 (nth 7 ll))
(setq a9 (nth 8 ll))
(setq a10 (nth 9 ll))
(setq a11 (nth 10 ll))
(setq a12 (nth 11 ll))
(setq a13 (nth 12 ll))
(setq a14 (nth 13 ll))
(setq a15 (nth 14 ll))
(if (or (eq tx2 “X”) (eq tx2 “x”) (eq tx2 “1”)) (setq lll “전”) ;;; 지목추가할수 있는부분
(if (or (eq tx2 “C”) (eq tx2 “c”) (eq tx2 “2”)) (setq lll “답”)
(if (or (eq tx2 “V”) (eq tx2 “v”) (eq tx2 “3”)) (setq lll “도”)
(if (or (eq tx2 “S”) (eq tx2 “s”) (eq tx2 “4”)) (setq lll “대”)
(if (or (eq tx2 “D”) (eq tx2 “d”) (eq tx2 “5”)) (setq lll “제”)
(if (or (eq tx2 “F”) (eq tx2 “f”) (eq tx2 “6”)) (setq lll “천”)
(if (or (eq tx2 “W”) (eq tx2 “w”) (eq tx2 “7”)) (setq lll “구”)
(if (or (eq tx2 “E”) (eq tx2 “e”) (eq tx2 “8”)) (setq lll “묘”)
(if (or (eq tx2 “R”) (eq tx2 “r”) (eq tx2 “9”)) (setq lll “임”)
(if (or (eq tx2 “Z”) (eq tx2 “z”) (eq tx2 “0”)) (setq lll “장”)
(if (or (eq tx2 “XX”) (eq tx2 “xx”) (eq tx2 “11”)) (setq lll “잡”)
(if (or (eq tx2 “XC”) (eq tx2 “xc”) (eq tx2 “12”)) (setq lll “철”)
(if (or (eq tx2 “XV”) (eq tx2 “xv”) (eq tx2 “13”)) (setq lll “유”)
(if (or (eq tx2 “XS”) (eq tx2 “xs”) (eq tx2 “14”)) (setq lll “학”)
(if (or (eq tx2 “XD”) (eq tx2 “xd”) (eq tx2 “15”)) (setq lll “천”)
(if (or (eq tx2 “XF”) (eq tx2 “xf”) (eq tx2 “16”)) (setq lll “종”)
(if (or (eq tx2 “XW”) (eq iio “xw”) (eq iio “17”)) (setq lll “사”);
(if (or (eq tx2 “XE”) (eq iio “xe”) (eq iio “18”)) (setq lll “과”);
(if (or (eq tx2 “XR”) (eq iio “xr”) (eq iio “19”)) (setq lll “체”);
(progn (setq lll “입력오류”) (alert “지목 입력 오류 입니다.”))
)))))))))))))))))))
(if ( = aa 1 ) (setq qqqt (strcat a1 ” ” lll))
(if ( = aa 2 ) (setq qqqt (strcat a1 a2 ” ” lll))
(if ( = aa 3 ) (setq qqqt (strcat a1 a2 a3 ” ” lll))
(if ( = aa 4 ) (setq qqqt (strcat a1 a2 a3 a4″ ” lll))
(if ( = aa 5 ) (setq qqqt (strcat a1 a2 a3 a4 a5 ” ” lll))
(if ( = aa 6 ) (setq qqqt (strcat a1 a2 a3 a4 a5 a6 ” ” lll))
(if ( = aa 7 ) (setq qqqt (strcat a1 a2 a3 a4 a5 a6 a7 ” ” lll))
(if ( = aa 8 ) (setq qqqt (strcat a1 a2 a3 a4 a5 a6 a7 a8 ” ” lll))
(if ( = aa 9 ) (setq qqqt (strcat a1 a2 a3 a4 a5 a6 a7 a8 a9 ” ” lll))
(if ( = aa 10 ) (setq qqqt (strcat a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 ” ” lll))
(if ( = aa 11 ) (setq qqqt (strcat a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 ” ” lll))
(if ( = aa 12 ) (setq qqqt (strcat a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 ” ” lll))
(if ( = aa 13 ) (setq qqqt (strcat a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 ” ” lll))
)))))))))))))
(setq kkpp qqqt)
(command “-layer” “s” “8412-1” “”)
;(command “erase” obsname “”)
(command “text” “j” “m” po “2” “0” qqqt )
;(command “change” “l” “” “p” “c” “6” “”)
(princ)
)
(defun pobase ()
(setq obs (entsel “nTEXT를 선택하세요”))
(setq obsname (car obs))
(setq obsent (entget obsname))
(setq oldbsha (assoc 11 obsent))
(setq po (list (nth 1 oldbsha) (nth 2 oldbsha) 0))
)
(prompt “n BY HWI CHEN >> 지번을 쉽게 넣을수 있습니다. 명령 ER <<")
(princ)
(defun c:err ()
(setq ppo (getpoint “npoint select ———>”))
(command “-layer” “s” “8412-1” “”)
(command “text” “j” “m” ppo “1” “0” “무지번” )
)
;;;;;BY HWI CHEN;;;;;
;;;;;WHGNLCJS@HANMAIL.NET;;;;;;;
;———————————— 임야 지번입력 ——————————————
(defun c:eer ( / po tx tx2 lll ll nnu num aa aaa bbc kkbb bb a1 a2 a3 a4 a5 a6 a7 a8 qqqt llq)
(setvar “cmdecho” 0)
;(pobase)
(setq po (getpoint “npoint select ———>”))
(prompt “n현재지번===>[ “)(princ kkpp)
(setq ttt (getstring ” ]지번을 써주세요 : “))
(setq txt (getstring “n부지번을 써주세요 : “))
(prompt “n현재지목===>[ “)(princ kkp)
(setq iio (getstring ” ] 1:전 2:답 3:도 4:대 5:제 6:천 7:구 8:묘 9:임 0:장n 11:잡 12:철 13:유 14:학 15:천 16:종 17:사 18:과 19:체n=== o^^*o ===>: “))
(if (eq ttt “”) (setq ttt iiut) (setq ttt ttt))
(if (eq ttt “”) (prompt”– Wow! you good —“) (setq iiut ttt))
(setq jji (strlen txt))
(if (eq 0 jji) (setq tx ttt) (setq tx (strcat ttt “-” txt)))
(if (eq iio “”) (setq tx2 iiu) (setq tx2 iio))
(if (eq iio “”) (prompt”– Wow! you good —“) (setq iiu iio))
(if (or (eq iio “X”) (eq iio “x”) (eq iio “1”)) (setq kkp “전”) ;
(if (or (eq iio “C”) (eq iio “c”) (eq iio “2”)) (setq kkp “답”);
(if (or (eq iio “V”) (eq iio “v”) (eq iio “3”)) (setq kkp “도”);
(if (or (eq iio “S”) (eq iio “s”) (eq iio “4”)) (setq kkp “대”);
(if (or (eq iio “D”) (eq iio “d”) (eq iio “5”)) (setq kkp “제”);
(if (or (eq iio “F”) (eq iio “f”) (eq iio “6”)) (setq kkp “천”);
(if (or (eq iio “W”) (eq iio “w”) (eq iio “7”)) (setq kkp “구”); 자동입력부분
(if (or (eq iio “E”) (eq iio “e”) (eq iio “8”)) (setq kkp “묘”);
(if (or (eq iio “R”) (eq iio “r”) (eq iio “9”)) (setq kkp “임”);
(if (or (eq iio “Z”) (eq iio “z”) (eq iio “0”)) (setq kkp “장”);
(if (or (eq iio “XX”) (eq iio “xx”) (eq iio “11”)) (setq kkp “잡”);
(if (or (eq iio “XC”) (eq iio “xc”) (eq iio “12”)) (setq kkp “철”);
(if (or (eq iio “XV”) (eq iio “xv”) (eq iio “13”)) (setq kkp “유”);
(if (or (eq iio “XS”) (eq iio “xs”) (eq iio “14”)) (setq kkp “학”);
(if (or (eq iio “XD”) (eq iio “xd”) (eq iio “15”)) (setq kkp “천”);
(if (or (eq iio “XF”) (eq iio “xf”) (eq iio “16”)) (setq kkp “종”);
(if (or (eq iio “XW”) (eq iio “xw”) (eq iio “17”)) (setq kkp “사”);
(if (or (eq iio “XE”) (eq iio “xe”) (eq iio “18”)) (setq kkp “과”);
(if (or (eq iio “XR”) (eq iio “xr”) (eq iio “19”)) (setq kkp “체”);
(progn (setq lll “입력오류”))
)))))))))))))))))))
(setq aa (strlen tx))
(setq nnu 1)
(repeat aa
(setq bb (substr tx nnu 1))
(if (or (eq bb “X”) (eq bb “x”) (eq bb “1”)) (setq bbc “1”)
(if (or (eq bb “C”) (eq bb “c”) (eq bb “2”)) (setq bbc “2”)
(if (or (eq bb “V”) (eq bb “v”) (eq bb “3”)) (setq bbc “3”)
(if (or (eq bb “S”) (eq bb “s”) (eq bb “4”)) (setq bbc “4”)
(if (or (eq bb “D”) (eq bb “d”) (eq bb “5”)) (setq bbc “5”)
(if (or (eq bb “F”) (eq bb “f”) (eq bb “6”)) (setq bbc “6”)
(if (or (eq bb “W”) (eq bb “w”) (eq bb “7”)) (setq bbc “7”)
(if (or (eq bb “E”) (eq bb “e”) (eq bb “8”)) (setq bbc “8”)
(if (or (eq bb “R”) (eq bb “r”) (eq bb “9”)) (setq bbc “9”)
(if (or (eq bb “Z”) (eq bb “z”) (eq bb “0”)) (setq bbc “0”)
(if (or (eq bb “T”) (eq bb “t”) (eq bb “-“)) (setq bbc “-“)
(progn (setq bbc “입력오류”) (alert “지번 입력 오류 입니다.”))
)))))))))))
(setq nnu (+ 1 nnu))
(setq llq (append (list bbc) llq))
(setq ll (reverse llq))
)
(setq a1 (nth 0 ll))
(setq a2 (nth 1 ll))
(setq a3 (nth 2 ll))
(setq a4 (nth 3 ll))
(setq a5 (nth 4 ll))
(setq a6 (nth 5 ll))
(setq a7 (nth 6 ll))
(setq a8 (nth 7 ll))
(setq a9 (nth 8 ll))
(setq a10 (nth 9 ll))
(setq a11 (nth 10 ll))
(setq a12 (nth 11 ll))
(setq a13 (nth 12 ll))
(setq a14 (nth 13 ll))
(setq a15 (nth 14 ll))
(if (or (eq tx2 “X”) (eq tx2 “x”) (eq tx2 “1”)) (setq lll “전”) ;;; 지목추가할수 있는부분
(if (or (eq tx2 “C”) (eq tx2 “c”) (eq tx2 “2”)) (setq lll “답”)
(if (or (eq tx2 “V”) (eq tx2 “v”) (eq tx2 “3”)) (setq lll “도”)
(if (or (eq tx2 “S”) (eq tx2 “s”) (eq tx2 “4”)) (setq lll “대”)
(if (or (eq tx2 “D”) (eq tx2 “d”) (eq tx2 “5”)) (setq lll “제”)
(if (or (eq tx2 “F”) (eq tx2 “f”) (eq tx2 “6”)) (setq lll “천”)
(if (or (eq tx2 “W”) (eq tx2 “w”) (eq tx2 “7”)) (setq lll “구”)
(if (or (eq tx2 “E”) (eq tx2 “e”) (eq tx2 “8”)) (setq lll “묘”)
(if (or (eq tx2 “R”) (eq tx2 “r”) (eq tx2 “9”)) (setq lll “임”)
(if (or (eq tx2 “Z”) (eq tx2 “z”) (eq tx2 “0”)) (setq lll “장”)
(if (or (eq tx2 “XX”) (eq tx2 “xx”) (eq tx2 “11”)) (setq lll “잡”)
(if (or (eq tx2 “XC”) (eq tx2 “xc”) (eq tx2 “12”)) (setq lll “철”)
(if (or (eq tx2 “XV”) (eq tx2 “xv”) (eq tx2 “13”)) (setq lll “유”)
(if (or (eq tx2 “XS”) (eq tx2 “xs”) (eq tx2 “14”)) (setq lll “학”)
(if (or (eq tx2 “XD”) (eq tx2 “xd”) (eq tx2 “15”)) (setq lll “천”)
(if (or (eq tx2 “XF”) (eq tx2 “xf”) (eq tx2 “16”)) (setq lll “종”)
(if (or (eq tx2 “XW”) (eq iio “xw”) (eq iio “17”)) (setq lll “사”);
(if (or (eq tx2 “XE”) (eq iio “xe”) (eq iio “18”)) (setq lll “과”);
(if (or (eq tx2 “XR”) (eq iio “xr”) (eq iio “19”)) (setq lll “체”);
(progn (setq lll “입력오류”) (alert “지목 입력 오류 입니다.”))
)))))))))))))))))))
(if ( = aa 1 ) (setq qqqt (strcat “산” a1 ” ” lll))
(if ( = aa 2 ) (setq qqqt (strcat “산” a1 a2 ” ” lll))
(if ( = aa 3 ) (setq qqqt (strcat “산” a1 a2 a3 ” ” lll))
(if ( = aa 4 ) (setq qqqt (strcat “산” a1 a2 a3 a4″ ” lll))
(if ( = aa 5 ) (setq qqqt (strcat “산” a1 a2 a3 a4 a5 ” ” lll))
(if ( = aa 6 ) (setq qqqt (strcat “산” a1 a2 a3 a4 a5 a6 ” ” lll))
(if ( = aa 7 ) (setq qqqt (strcat “산” a1 a2 a3 a4 a5 a6 a7 ” ” lll))
(if ( = aa 8 ) (setq qqqt (strcat “산” a1 a2 a3 a4 a5 a6 a7 a8 ” ” lll))
(if ( = aa 9 ) (setq qqqt (strcat “산” a1 a2 a3 a4 a5 a6 a7 a8 a9 ” ” lll))
(if ( = aa 10 ) (setq qqqt (strcat “산” a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 ” ” lll))
(if ( = aa 11 ) (setq qqqt (strcat “산” a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 ” ” lll))
(if ( = aa 12 ) (setq qqqt (strcat “산” a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 ” ” lll))
(if ( = aa 13 ) (setq qqqt (strcat “산” a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 ” ” lll))
)))))))))))))
(setq kkpp qqqt)
(command “-layer” “s” “8412” “”)
;(command “erase” obsname “”)
(command “text” “j” “m” po “6” “0” qqqt )
(command “change” “l” “” “p” “c” “6” “”)
(princ)
)
(defun pobase ()
(setq obs (entsel “nTEXT를 선택하세요”))
(setq obsname (car obs))
(setq obsent (entget obsname))
(setq oldbsha (assoc 11 obsent))
(setq po (list (nth 1 oldbsha) (nth 2 oldbsha) 0))
)