;——– ERROR PART START ————-
(defun jerr (jj)
(if (/= jj “nFunction cancelled”)
(princ (strcat “nError : ” jj))
)
(setvar “cmdecho” jod-cm)
(setq *error* oderr oderr nil jodcm nil)
(princ)
)
;——– ERROR PART END —————
;——– MAIN PART START ————–
(defun c:scr()
(graphscr)
(setq oderr *error* *error* jerr
jod-cm (getvar “cmdecho”)
)
(setq sna1(getvar “snapmode”))
(setvar “snapmode” 0)
(princ “n”)(command “cmdecho” 1)
;;;;;;(command “zoom” “w” “0,0” “30,20” “vslide” “pipi_ico”)
(command “vslide” “pipi_ico”)
(setq cp (getvar “viewctr”))
(setq h (/ (getvar “viewsize”) 2))
(setq base1x (car cp))
(setq base1y (cadr cp))
(setq basex (- base1x (* h (/ 15 9.0))))
(setq basey (- base1y h))
;(setq ghky1 (- y h))
(setq scale1(/ 18.2 (* h 2)))
;(setq scale1(- ghky h))
(setq jhg 7)
(while jhg
(initget 1)
(setq pt (getpoint “nSelect Working BOX : “)
ghkptx (car pt)
ghkpty (cadr pt)
)
(setq tagetx (- ghkptx basex))
(setq tagety (- ghkpty basey))
(setq ptx (* tagetx scale1))
(setq pty (* tagety scale1))
(if (and (and (>= ptx 1.0) (<= ptx 29.0)) (and (>= pty 1.0)(<= pty 17.0)))
(progn
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 1))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 2))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 3))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 4))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 5))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 6))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 7))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 8))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 9))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 10))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 11))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 12))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 13))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 14))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 15))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 16))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 17))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 18))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 19))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 20))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 21))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 22))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 23))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 24))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 25))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 26))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 27))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 28))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 29))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 30))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 31))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 32))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 33))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 34))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 35))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 36))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 37))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 38))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 39))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 40))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 41))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 42))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 43))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 44))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 45))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 46))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 47))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 48))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 49))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 50))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 51))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 52))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 53))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 54))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 55))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 56))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 57))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 58))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 59))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 60))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 61))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 62))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 63))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 64))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 65))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 66))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 67))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 68))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 69))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 70))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 71))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 72))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 73))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 74))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 75))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 76))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 77))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 78))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 79))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 80))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 81))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 82))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 83))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 84))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 85))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 86))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 87))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 88))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 89))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 90))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 91))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 92))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 93))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 94))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 95))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 96))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 97))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 98))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 99))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 100))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 101))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 102))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 103))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 104))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 105))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 106))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 107))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 108))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 109))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 110))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 111))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 112))
(setq jhg nil)
)
(progn
(prompt “Select again in BOX”)
)
)
)
(command “‘redraw”)
(cond
((= work 1) (load “e-01”) (c:e-01))
((= work 2) (load “e-02”) (c:e-02))
((= work 3) (load “e-03”) (c:e-03))
((= work 4) (load “e-04”) (c:e-04))
((= work 5) (load “e-05”) (c:e-05))
((= work 6) (load “e-06”) (c:e-06))
((= work 7) (load “e-07”) (c:e-07))
((= work 8) (load “e-08”) (c:e-08))
((= work 9) (load “e-09”) (c:e-09))
((= work 10) (load “e-57”) (c:e-57))
((= work 11) (load “01”) (c:01))
((= work 12) (load “02”) (c:02))
((= work 13) (load “03”) (c:03))
((= work 14) (load “04”) (c:04))
((= work 15) (load “e-10”) (c:e-10))
((= work 16) (load “e-11”) (c:e-11))
((= work 17) (load “e-12”) (c:e-12))
((= work 18) (load “e-12-1”) (c:e-12-1))
((= work 19) (load “e-13”) (c:e-13))
((= work 20) (load “e-13-1”) (c:e-13-1))
((= work 21) (load “e-14”) (c:e-14))
((= work 22) (load “e-15”) (c:e-15))
((= work 23) (load “e-16”) (c:e-16))
((= work 24) (load “e-58”) (c:e-58))
((= work 25) (load “05”) (c:05))
((= work 26) (load “06”) (c:06))
((= work 27) (load “07”) (c:07))
((= work 28) (load “08”) (c:08))
((= work 29) (load “e-17”) (c:e-17))
((= work 30) (load “e-17-1”) (c:e-17-1))
((= work 31) (load “e-18”) (c:e-18))
((= work 32) (load “e-19”) (c:e-19))
((= work 33) (load “e-19-1”) (c:e-19-1))
((= work 34) (load “e-20”) (c:e-20))
((= work 35) (load “e-21”) (c:e-21))
((= work 36) (load “e-22”) (c:e-22))
((= work 37) (load “e-22-1”) (c:e-22-1))
((= work 38) (load “e-59”) (c:e-59))
((= work 39) (load “09”) (c:09))
((= work 40) (load “10”) (c:10))
((= work 41) (load “11”) (c:11))
((= work 42) (load “12”) (c:12))
((= work 43) (load “e-23”) (c:e-23))
((= work 44) (load “e-23-1”) (c:e-23-1))
((= work 45) (load “e-24”) (c:e-24))
((= work 46) (load “e-25”) (c:e-25))
((= work 47) (load “e-25-1”) (c:e-25-1))
((= work 48) (load “e-26”) (c:e-26))
((= work 49) (load “e-27”) (c:e-27))
((= work 50) (load “e-27-1”) (c:e-27-1))
((= work 51) (load “e-28”) (c:e-28))
((= work 52) (load “e-60”) (c:e-60))
((= work 53) (load “13”) (c:13))
((= work 54) (load “14”) (c:14))
((= work 55) (load “15”) (c:15))
((= work 56) (load “16”) (c:16))
((= work 57) (load “e-29”) (c:e-29))
((= work 58) (load “e-29-1”) (c:e-29-1))
((= work 59) (load “e-30”) (c:e-30))
((= work 60) (load “e-31”) (c:e-31))
((= work 61) (load “e-31-1”) (c:e-31-1))
((= work 62) (load “e-32”) (c:e-32))
((= work 63) (load “e-33”) (c:e-33))
((= work 64) (load “e-34”) (c:e-34))
((= work 65) (load “e-34-1”) (c:e-34-1))
((= work 66) (load “000”) (c:000))
((= work 67) (load “17”) (c:17))
((= work 68) (load “18”) (c:18))
((= work 69) (load “19”) (c:19))
((= work 70) (load “20”) (c:20))
((= work 71) (load “e-35”) (c:e-35))
((= work 72) (load “e-35-1”) (c:e-35-1))
((= work 73) (load “e-35-2”) (c:e-35-2))
((= work 74) (load “e-35-3”) (c:e-35-3))
((= work 75) (load “e-35-4”) (c:e-35-4))
((= work 76) (load “e-35-5”) (c:e-35-5))
((= work 77) (load “e-36”) (c:e-36))
((= work 78) (load “e-37”) (c:e-37))
((= work 79) (load “e-38”) (c:e-38))
((= work 80) (load “000”) (c:000))
((= work 81) (load “21”) (c:21))
((= work 82) (load “22”) (c:22))
((= work 83) (load “23”) (c:23))
((= work 84) (load “24”) (c:24))
((= work 85) (load “e-39”) (c:e-39))
((= work 86) (load “e-40”) (c:e-40))
((= work 87) (load “e-41”) (c:e-41))
((= work 88) (load “e-42”) (c:e-42))
((= work 89) (load “e-43”) (c:e-43))
((= work 90) (load “e-44”) (c:e-44))
((= work 91) (load “e-45”) (c:e-45))
((= work 92) (load “e-46”) (c:e-46))
((= work 93) (load “e-47”) (c:e-47))
((= work 94) (load “000”) (c:000))
((= work 95) (load “25”) (c:25))
((= work 96) (load “26”) (c:26))
((= work 97) (load “27”) (c:27))
((= work 98) (load “28”) (c:28))
((= work 99) (load “e-48”) (c:e-48))
((= work 100) (load “e-49”) (c:e-49))
((= work 101) (load “e-50”) (c:e-50))
((= work 102) (load “e-51”) (c:e-51))
((= work 103) (load “e-52”) (c:e-52))
((= work 104) (load “e-53”) (c:e-53))
((= work 105) (load “e-54”) (c:e-54))
((= work 106) (load “e-55”) (c:e-55))
((= work 107) (load “e-56”) (c:e-56))
((= work 108) (load “000”) (c:000))
((= work 109) (load “29”) (c:29))
((= work 110) (load “30”) (c:30))
((= work 111) (load “31”) (c:31))
((= work 112) (load “32”) (c:32))
)
(setvar “snapmode” sna1)
(setvar “cmdecho” jod-cm)
(setq *error* oderr oderr nil jod-cm nil)
(princ)
)
;———– MAIN PART END ————
표내에있는 블럭을 찍어서 가져오는 리습입니다.
근데 가져올때 x 1~3 y 1~3 쪽을 찍어서 가져왔는데 엉뚱한 그림이 튀어나옵니다.
어떤게 문제인지 알려주시면 감사하겠습니다.
아 그리고 위에 색칠부분에 9.0하고 18.2가 어떻게 나온 값인지도 알고싶습니다..
닉까지 바꿔가면서 계속 올리시는걸 보니, 정말 수정하고 싶어하시는 것 같긴 한데요,
앞으로 주의하겠습니다. 답변 감사합니다.