심볼간 지선을 연결해 주는 리습입니다.
오스냅이 기본적으로 미드, 교차, 쿼등이 잡혀요.ㅠㅠ
안잡히게 수정하려면 어떻게 해야하는지좀 알려주세요.
1)ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ
(DEFUN C:FF()
(PROMPT “n###———-글자 색변경CHANGE TEXT COLOR-BY SANG HOON———###”)
(SETQ AS (SSGET ‘((0 . “TEXT”))))
(SETQ FG (GETINT “CHANGE COLOR NUMBER;”))
(COMMAND “CHPROP” “P” “” “C” FG “”)
)
2)ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ
;——– 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:EE()
(if (= nil l:1) (c:insting))
(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” “tb1”)
;(command “vslide” “tb1”)
(setq cp (getvar “viewctr”))
(setq h (/ (getvar “viewsize”) 2))
(setq base1x (car cp))
(setq base1y (cadr cp))
(setq basex (- base1x (* h 1)))
(setq basey (- base1y h))
;(setq ghky1 (- y h))
(if (< (atoi l:1) 5) (setq dsc “1”) (setq dsc “100”))
(setq scale1(/ 20.2337 (* h 2)))
;(setq scale1(- ghky h))
(setq jhg 7)
(while jhg
(initget 1)
(setq pt (getpoint “nSelect Working BOX : “)
ptx (car pt)
pty (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 19.0)))
(progn
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 1))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 2))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 3))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 4))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 5))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 6))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 7))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 8))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 9))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 10))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 11))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 12))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 13))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 14))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 15))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 16))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 17))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 18))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 19))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 20))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 21))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 22))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 23))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 24))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 25))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 26))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 27))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 28))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 29))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 30))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 31))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 32))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 33))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 34))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 35))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 36))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 37))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 38))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 39))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 40))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 41))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 42))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 43))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 44))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 45))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 46))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 47))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 48))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 49))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 50))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 51))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 52))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 53))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 54))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 55))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 56))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 57))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 58))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 59))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 60))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 61))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 62))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 63))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 64))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 65))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 66))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 67))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 68))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 69))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 70))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 71))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 72))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 73))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 74))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 75))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 76))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 77))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 78))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 79))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 80))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 81))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 82))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 83))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 84))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 85))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 86))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 87))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 88))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 89))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 90))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 91))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 92))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 93))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 94))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 95))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 96))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 97))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 98))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 99))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 100))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 101))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 102))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 103))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 104))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 105))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 106))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 107))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 108))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 109))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 110))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 111))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 112))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 113))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 114))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 115))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 116))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 117))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 118))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 119))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 120))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 121))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 122))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 123))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 124))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 125))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 126))
(setq jhg nil)
)
(progn
(prompt “Select again in BOX”)
)
)
)
(command “‘zoom” “p”)
(command “‘redraw”)
(cond
((= work 1) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-01” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-01” ip))))
((= work 2) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-05” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-05” ip))))
((= work 3) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-09” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-09” ip))))
((= work 4) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-13” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-13” ip))))
((= work 5) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-17” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-17” ip))))
((= work 6) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-21” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-21” ip))))
((= work 7) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-25” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-25” ip))))
((= work 8) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-29” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-29” ip))))
((= work 9) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-33” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-33” ip))))
((= work 10) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-37” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-37” ip))))
((= work 11) (command “redraw”))
((= work 12) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-01” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-01” ip))))
((= work 13) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-02” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-02” ip))))
((= work 14) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-03” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-03” ip))))
((= work 15) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-02” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-02” ip))))
((= work 16) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-06” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-06” ip))))
((= work 17) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-10” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-10” ip))))
((= work 18) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-14” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-14” ip))))
((= work 19) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-18” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-18” ip))))
((= work 20) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-22” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-22” ip))))
((= work 21) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-26” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-26” ip))))
((= work 22) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-30” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-30” ip))))
((= work 23) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-34” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-34” ip))))
((= work 24) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-38” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-38” ip))))
((= work 25) (command “redraw”))
((= work 26) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-04” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-04” ip))))
((= work 27) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-09” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-09” ip))))
((= work 28) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-07” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-07” ip))))
((= work 29) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-03” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-03” ip))))
((= work 30) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-07” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-07” ip))))
((= work 31) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-11” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-11” ip))))
((= work 32) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-15” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-15” ip))))
((= work 33) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-19” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-19” ip))))
((= work 34) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-23” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-23” ip))))
((= work 35) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-27” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-27” ip))))
((= work 36) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-31” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-31” ip))))
((= work 37) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-35” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-35” ip))))
((= work 38) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-39” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-39” ip))))
((= work 39) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-11” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-11” ip))))
((= work 40) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-08” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-08” ip))))
((= work 41) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-13” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-13” ip))))
((= work 42) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-14” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-14” ip))))
((= work 43) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-04” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-04” ip))))
((= work 44) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-08” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-08” ip))))
((= work 45) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-12” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-12” ip))))
((= work 46) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-16” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-16” ip))))
((= work 47) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-20” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-20” ip))))
((= work 48) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-24” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-24” ip))))
((= work 49) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-28” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-28” ip))))
((= work 50) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-32” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-32” ip))))
((= work 51) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-36” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-36” ip))))
((= work 52) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pa-40” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pa-40” ip))))
((= work 53) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-06” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-06” ip))))
((= work 54) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-17” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-17” ip))))
((= work 55) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-10” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-10” ip))))
((= work 56) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-23” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-23” ip))))
((= work 57) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-01” ip dsc dsc “0”)))
((= work 58) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-05” ip dsc dsc “0”)))
((= work 59) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-07” ip dsc dsc “0”)))
((= work 60) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-11” ip dsc dsc “0”)))
((= work 61) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-21” ip dsc dsc “0”)))
((= work 62) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-15” ip dsc dsc “0”)))
((= work 63) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-17” ip dsc dsc “0”)))
((= work 64) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-23” ip dsc dsc “0”)))
((= work 65) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-31” ip dsc dsc “0”)))
((= work 66) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-38” ip dsc dsc “0”)))
((= work 67) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-29” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-29” ip))))
((= work 68) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-24” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-24” ip))))
((= work 69) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-21” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-21” ip))))
((= work 70) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-27” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-27” ip))))
((= work 71) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-02” ip dsc dsc “0”)))
((= work 72) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-06” ip dsc dsc “0”)))
((= work 73) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-08” ip dsc dsc “0”)))
((= work 74) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-12” ip dsc dsc “0”)))
((= work 75) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-22” ip dsc dsc “0”)))
((= work 76) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-16” ip dsc dsc “0”)))
((= work 77) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-F07” ip dsc dsc “0”)))
((= work 78) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-29” ip dsc dsc “0”)))
((= work 79) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-32” ip dsc dsc “0”)))
((= work 80) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-39” ip dsc dsc “0”)))
((= work 81) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-19” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-19” ip))))
((= work 82) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-25” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-25” ip))))
((= work 83) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-28” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-28” ip))))
((= work 84) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-22” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-22” ip))))
((= work 85) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-03” ip dsc dsc “0”)))
((= work 86) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-27” ip dsc dsc “0”)))
((= work 87) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-09” ip dsc dsc “0”)))
((= work 88) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-13” ip dsc dsc “0”)))
((= work 89) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-24” ip dsc dsc “0”)))
((= work 90) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-20” ip dsc dsc “0”)))
((= work 91) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-19” ip dsc dsc “0”)))
((= work 92) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-35” ip dsc dsc “0”)))
((= work 93) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-33” ip dsc dsc “0”)))
((= work 94) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-40” ip dsc dsc “0”)))
((= work 95) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-16” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-16” ip))))
((= work 96) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-20” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-20” ip))))
((= work 97) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-26” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-26” ip))))
((= work 98) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-05” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-05” ip))))
((= work 99) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-04” ip dsc dsc “0”)))
((= work 100) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-28” ip dsc dsc “0”)))
((= work 101) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-10” ip dsc dsc “0”)))
((= work 102) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-14” ip dsc dsc “0”)))
((= work 103) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-25” ip dsc dsc “0”)))
((= work 104) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-26” ip dsc dsc “0”)))
((= work 105) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-30” ip dsc dsc “0”)))
((= work 106) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-36” ip dsc dsc “0”)))
((= work 107) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-34” ip dsc dsc “0”)))
((= work 108) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/a-41” ip dsc dsc “0”)))
((= work 109) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-12” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-12” ip))))
((= work 110) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-18” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-18” ip))))
((= work 111) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-15” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-15” ip))))
((= work 112) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/p-30” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/p-30” ip))))
((= work 113) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/a-42” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/a-42” ip))))
((= work 114) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/co211” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/co211” ip))))
((= work 115) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pid-gas” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pid-gas” ip))))
((= work 116) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/damper” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/damper” ip))))
((= work 117) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/indoor” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/indoor” ip))))
((= work 118) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/outdoor” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/outdoor” ip))))
((= work 119) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/sprin” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/sprin” ip))))
((= work 120) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pump” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pump” ip))))
((= work 121) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/foam” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/foam” ip))))
((= work 122) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/gas” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/gas” ip))))
((= work 123) (command “redraw”))
((= work 124) (command “redraw”))
((= work 125) (command “redraw”))
((= work 126) (command “redraw”))
)
(setvar “snapmode” sna1)
(setvar “cmdecho” jod-cm)
(setq *error* oderr oderr nil jod-cm nil)
(princ)
)
(defun c:scr2()
(if (= nil l:1) (c:insting))
(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” “tb2”)
(command “vslide” “tb2”)
(setq cp (getvar “viewctr”))
(setq h (/ (getvar “viewsize”) 2))
(setq base1x (car cp))
(setq base1y (cadr cp))
(setq basex (- base1x (* h 1.448)))
(setq basey (- base1y h))
;(setq ghky1 (- y h))
(if (< (atoi l:1) 5) (setq dsc “1”) (setq dsc “100”))
(setq scale1(/ 20.45455 (* h 2)))
;(setq scale1(- ghky h))
(setq jhg 7)
(while jhg
(initget 1)
(setq pt (getpoint “nSelect Working BOX : “)
ptx (car pt)
pty (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 19.0)))
(progn
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 1))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 2))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 3))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 4))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 5))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 6))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 7))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 8))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 9))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 10))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 11))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 12))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 13))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 17.0) (<= pty 19.0))) (setq work 14))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 15))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 16))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 17))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 18))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 19))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 20))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 21))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 22))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 23))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 24))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 25))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 26))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 27))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 15.0) (<= pty 17.0))) (setq work 28))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 29))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 30))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 31))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 32))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 33))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 34))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 35))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 36))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 37))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 38))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 39))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 40))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 41))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 13.0) (<= pty 15.0))) (setq work 42))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 43))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 44))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 45))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 46))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 47))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 48))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 49))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 50))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 51))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 52))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 53))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 54))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 55))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 11.0) (<= pty 13.0))) (setq work 56))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 57))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 58))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 59))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 60))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 61))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 62))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 63))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 64))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 65))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 66))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 67))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 68))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 69))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 9.0) (<= pty 11.0))) (setq work 70))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 71))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 72))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 73))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 74))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 75))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 76))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 77))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 78))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 79))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 80))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 81))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 82))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 83))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 7.0) (<= pty 9.0))) (setq work 84))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 85))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 86))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 87))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 88))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 89))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 90))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 91))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 92))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 93))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 94))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 95))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 96))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 97))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 5.0) (<= pty 7.0))) (setq work 98))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 99))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 100))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 101))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 102))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 103))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 104))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 105))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 106))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 107))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 108))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 109))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 110))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 111))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 3.0) (<= pty 5.0))) (setq work 112))
(if (and (and (>= ptx 1.0) (<= ptx 3.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 113))
(if (and (and (>= ptx 3.0) (<= ptx 5.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 114))
(if (and (and (>= ptx 5.0) (<= ptx 7.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 115))
(if (and (and (>= ptx 7.0) (<= ptx 9.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 116))
(if (and (and (>= ptx 9.0) (<= ptx 11.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 117))
(if (and (and (>= ptx 11.0) (<= ptx 13.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 118))
(if (and (and (>= ptx 13.0) (<= ptx 15.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 119))
(if (and (and (>= ptx 15.0) (<= ptx 17.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 120))
(if (and (and (>= ptx 17.0) (<= ptx 19.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 121))
(if (and (and (>= ptx 19.0) (<= ptx 21.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 122))
(if (and (and (>= ptx 21.0) (<= ptx 23.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 123))
(if (and (and (>= ptx 23.0) (<= ptx 25.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 124))
(if (and (and (>= ptx 25.0) (<= ptx 27.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 125))
(if (and (and (>= ptx 27.0) (<= ptx 29.0)) (and (>= pty 1.0) (<= pty 3.0))) (setq work 126))
(setq jhg nil)
)
(progn
(prompt “Select again in BOX”)
)
)
)
(command “‘zoom” “p”)
(command “‘redraw”)
(cond
((= work 1) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-01” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-01” ip))))
((= work 2) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-04” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-04” ip))))
((= work 3) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-07” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-07” ip))))
((= work 4) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-10” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-10” ip))))
((= work 5) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-13” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-13” ip))))
((= work 6) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-16” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-16” ip))))
((= work 7) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-20” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-20” ip))))
((= work 8) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-24” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-24” ip))))
((= work 9) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/pb-28” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 10) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/pb-33” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 11) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/ar-01” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 12) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/ar-05” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 13) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/ar-09” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 14) (command “redraw”))
((= work 15) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-02” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-02” ip))))
((= work 16) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-05” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-05” ip))))
((= work 17) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-08” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-08” ip))))
((= work 18) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-11” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-11” ip))))
((= work 19) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-14” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-14” ip))))
((= work 20) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-17” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-17” ip))))
((= work 21) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-21” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-21” ip))))
((= work 22) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-25” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-25” ip))))
((= work 23) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/pb-29” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 24) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/pb-34” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 25) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/ar-02” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 26) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/ar-06” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 27) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/ar-10” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 28) (command “redraw”))
((= work 29) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-03” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-03” ip))))
((= work 30) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-06” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-06” ip))))
((= work 31) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-09” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-09” ip))))
((= work 32) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-12” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-12” ip))))
((= work 33) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-15” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-15” ip))))
((= work 34) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-18” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-18” ip))))
((= work 35) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-22” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-22” ip))))
((= work 36) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-26” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-26” ip))))
((= work 37) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/pb-30” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 38) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/pb-35” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 39) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/ar-03” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 40) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/ar-07” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 41) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/ar-11” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 42) (command “redraw”))
((= work 43) (command “redraw”))
((= work 44) (command “redraw”))
((= work 45) (command “redraw”))
((= work 46) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-50” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-50” ip))))
((= work 47) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-D16” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-D16” ip))))
((= work 48) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-19” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-19” ip))))
((= work 49) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-23” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-23” ip))))
((= work 50) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-27” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-27” ip))))
((= work 51) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/pb-31” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 52) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/pb-36” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 53) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/ar-04” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 54) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/ar-08” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 55) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/ar-12” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 56) (command “redraw”))
((= work 57) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-E12” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-E12” ip))))
((= work 58) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-E13” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-E13” ip))))
((= work 59) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-E14” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-E14” ip))))
((= work 60) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-E15” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-E15” ip))))
((= work 61) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-E16” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-E16” ip))))
((= work 62) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-E17” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-E17” ip))))
((= work 63) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-E18” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-E18” ip))))
((= work 64) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-E19” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-E19” ip))))
((= work 65) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/pb-32” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 66) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/pb-37” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 67) (command “redraw”))
((= work 68) (command “redraw”))
((= work 69) (command “redraw”))
((= work 70) (command “redraw”))
((= work 71) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-F12” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-F12” ip))))
((= work 72) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-F13” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-F13” ip))))
((= work 73) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-F14” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-F14” ip))))
((= work 74) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-F15” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-F15” ip))))
((= work 75) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-F16” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-F16” ip))))
((= work 76) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-F17” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-F17” ip))))
((= work 77) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-F18” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-F18” ip))))
((= work 78) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/pb-F19” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/pb-F19” ip))))
((= work 79) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/pb-38” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 80) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/pb-38” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 81) (command “redraw”))
((= work 82) (command “redraw”))
((= work 83) (command “redraw”))
((= work 84) (command “redraw”))
((= work 85) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-01” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 86) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-03” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 87) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-05” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 88) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-07” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 89) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-09” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 90) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-11” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 91) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-13” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 92) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-15” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 93) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-17” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 94) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/pb-g21” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 95) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/sf-01” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/sf-01” ip))))
((= work 96) (progn (setq ip (getpoint “n Insert Point: “)) (if (/= l:3 nil) (command “insert” “c:/symbol/sym/sf-02” ip l:1 l:2 l:3) (command “insert” “c:/symbol/sym/sf-02” ip))))
((= work 97) (c:hd))
((= work 98) (c:du))
((= work 99) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-02” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 100) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-04” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 101) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-06” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 102) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-08” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 103) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-10” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 104) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-12” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 105) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-14” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 106) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/t-16” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 107) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/pb-h20” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 108) (progn (setq ip (getpoint “n Insert Point: “)) (command “insert” “c:/symbol/sym/pb-h21” ip dsc dsc “0”) (command “explode” “l” “”)))
((= work 109) (c:gaji2))
((= work 110) (c:rh))
((= work 111) (c:hd))
((= work 112) (c:du))
((= work 113) (command “redraw”))
((= work 114) (command “redraw”))
((= work 115) (command “redraw”))
((= work 116) (command “redraw”))
((= work 117) (command “redraw”))
((= work 118) (command “redraw”))
((= work 119) (command “redraw”))
((= work 120) (command “redraw”))
((= work 121) (command “redraw”))
((= work 122) (command “redraw”))
((= work 123) (command “redraw”))
((= work 124) (command “redraw”))
((= work 125) (command “redraw”))
((= work 126) (command “redraw”))
)
(setvar “snapmode” sna1)
(setvar “cmdecho” jod-cm)
(setq *error* oderr oderr nil jod-cm nil)
(princ)
)
;———– MAIN PART END ————
3)ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ
;;===============================================
; 개체 선택하여 브레이크 하기- 2 POINT BREAK (95cho_i)
;;———————————————–
(defun c:bb (/ cdw ss sno pt1 pt2 no x)
(setq cdw (getvar “osmode”)) (setvar “osmode” 0)
(prompt “nCommand: 2곳정해서 Break 하기…”)(terpri)
(setq ss (ssget))
(setq sno (sslength ss))
(setq pt1 (getpoint “nFirst Point->”))
(setq pt2 (getpoint pt1 “nSecond Point->”))
(setq no 0)
(repeat sno
(setq x (ssname ss no))
(command “break” x pt1 pt2)
(setq no (1+ no)) )
(setvar “osmode” cdw)
(prin1)
)
이상 3가지 입니다. 도와주세요.ㅠㅠ
설명 해주시면 감사드리겠습니다.
설명이 어렵다면 수정이라도.ㅠㅠ
(setvar “osmode” cdw) => (setvar “osmode” 0)
(setvar “snapmode” sna1) =>(setvar “snapmode” 0)
이런 구문 찾아서 0 로바꾸세요./