아래의 리습을 실행하면 osnap가 꺼져요..
꺼지지 않게 수정 좀 부탁드립니다.
(DEFUN C:LIG()
(SETVAR “OSMODE” 1)
(SETQ PNT1 (GETPOINT ” First corner : “)) (TERPRI)
(SETQ PNT2 (GETPOINT ” Second corner : “)) (TERPRI)
(SETQ N2 (GETINT ” Number of colum (||| , X , SIDE ) : “)) (TERPRI)
(SETQ N1 (GETINT ” Number of row (— , Y , UP ) : “)) (TERPRI)
(IF (= SCALE_ NIL) (SETQ SCALE_ 3))
(PRINC ” Scale 1 = ? : < NO = ")
(PRINC SCALE_)
(PRINC ” >”) (TERPRI)
(SETQ SCALE (GETINT “[1] 1/50, [2] 1/60, [3] 1/100, [4] 1/150, [5] 1/200 : “))
(IF (= SCALE NIL) (SETQ SCALE_A SCALE_) (SETQ SCALE_A SCALE))
(IF (= NAME_S NIL) (SETQ NAME_S 1))
(PRINC ” LIGHTING TYPE or BLOCK < NO = ")
(PRINC NAME_S)
(PRINC ” >”) (TERPRI)
(SETQ NAME_A (GETINT “[1] FL2/40, [2] FL1/40, [3] FL2/20, [4] IL, [5] DN, [6] DNN, [7] MHL, [8] USER : “))
(IF (= NAME_A 8) (SETQ NAME_5 (GETSTRING “Block name :”)))
(IF (= NAME_A NIL) (SETQ NAME NAME_S) (SETQ NAME NAME_A))
(IF (= NAME_5 NIL) (SETQ NAME_5 NAME_2))
(IF (= HV_ NIL) (SETQ HV_ 0))
(PRINC “Horizontal ‘0’ or Vertical ’90’ or Angle < Angle = ")
(PRINC HV_)
(SETQ HV_A (GETINT ” > : “)) (TERPRI)
(IF (= HV_A NIL) (SETQ HV HV_) (SETQ HV HV_A))
(COND ((= SCALE_A 1) (SETQ NAME_ 5))
((= SCALE_A 2) (SETQ NAME_ 6))
((= SCALE_A 3) (SETQ NAME_ 1))
((= SCALE_A 4) (SETQ NAME_ 15))
((= SCALE_A 5) (SETQ NAME_ 2))
(T (SETQ NAME_ 1))
)
(COND ((= NAME_ 5) (SETQ NAME_3 ‘(“F524” “F514” “F522”) NAME_4 ‘(“IL5IL” “IL5DN” “IL5DNN” “IL5MHL”)))
((= NAME_ 6) (SETQ NAME_3 ‘(“F624” “F614” “F622”) NAME_4 ‘(“IL6IL” “IL6DN” “IL6DNN” “IL6MHL”)))
((= NAME_ 1) (SETQ NAME_3 ‘(“F124” “F114” “F122”) NAME_4 ‘(“IL1IL” “IL1DN” “IL1DNN” “IL1MHL”)))
((= NAME_ 15) (SETQ NAME_3 ‘(“F1524” “F1514” “F1522”) NAME_4 ‘(“IL15IL” “IL15DN” “IL15DNN” “IL15MHL”)))
((= NAME_ 2) (SETQ NAME_3 ‘(“F224” “F214” “F222”) NAME_4 ‘(“IL2IL” “I2DN” “IL2DNN” “IL2MHL”)))
(T (SETQ NAME_3 ‘(“F124” “F114” “F122”) NAME_4 ‘(“IL1IL” “IL1DN” “IL1DNN” “IL1MHL”)))
)
(SETQ X1 (CAR PNT1))
(SETQ Y1 (CADR PNT1))
(SETQ X2 (CAR PNT2))
(SETQ Y2 (CADR PNT2))
(SETQ XN (- X2 X1))
(SETQ YN (- Y2 Y1))
(SETQ PNT3 (/ XN (* N2 2)))
(SETQ PNT4 (/ YN (* N1 2)))
(SETQ PNT5 (+ X1 PNT3))
(SETQ PNT6 (+ Y1 PNT4))
(COND ((= NAME 1) (SETQ NAME_2 (CAR NAME_3)))
((= NAME 2) (SETQ NAME_2 (CADR NAME_3)))
((= NAME 3) (SETQ NAME_2 (CADDR NAME_3)))
((= NAME 4) (SETQ NAME_2 (CAR NAME_4)))
((= NAME 5) (SETQ NAME_2 (CADR NAME_4)))
((= NAME 6) (SETQ NAME_2 (CADDR NAME_4)))
((= NAME 7) (SETQ NAME_2 (CADDR (CDR NAME_4))))
((= NAME 8) (SETQ NAME_2 NAME_5))
(T (SETQ NAME_2 (CAR NAME_3)))
)
(COMMAND “INSERT” NAME_2 (LIST PNT5 PNT6) “” “” HV)
(IF (= N1 1)
(COMMAND “ARRAY” “L” “” “R” N1 N2 (* PNT3 2))
(COMMAND “ARRAY” “L” “” “R” N1 N2 (* PNT4 2) (* PNT3 2))
)
(PRINC ” X – DISTANCE = “) (PRINC (* PNT3 2))
(PRINC ” Y – DISTANCE = “)
(PRINC (* PNT4 2))
(SETQ SCALE_ SCALE_A)
(SETQ NAME_S NAME)
(SETQ HV_ HV)
)