.
.
I have tried this code:
Code: Select all
(defun SET_DIM ()
(setvar 'dimzin 0)
;
; (if (and (= NEWTILE "s7") (/= SIZE NIL))
; (PIPE_SETDIM)
; ) ;_ end of if
;
(cond ((= NEWTILE "s7")(PIPE_SETDIM))
(T
(setq
N1 (nth 3 SIZE_DIMS)
N2 (nth 4 SIZE_DIMS)
N3 (nth 5 SIZE_DIMS)
N4 (nth 6 SIZE_DIMS)
N5 (nth 7 SIZE_DIMS)
N6 (nth 8 SIZE_DIMS)
N7 (nth 9 SIZE_DIMS)
N8 (nth 10 SIZE_DIMS)
N9 (nth 11 SIZE_DIMS)
N10 (nth 12 SIZE_DIMS)
) ;end setq
)
) ;end of cond
;
(if (= SCA "1")(SCA_TO_IMP)) ;_ end of if
;
(set_tile "n1" (rtos N1 2 2))
(set_tile "n2" (rtos N2 2 2))
(set_tile "n3" (rtos N3 2 2))
(set_tile "n4" (rtos N4 2 2))
(set_tile "n5" (rtos N5 2 2))
(set_tile "n6" (rtos N6 2 2))
(set_tile "n7" (rtos N7 2 2))
(set_tile "n8" (rtos N8 2 1))
(set_tile "n9" (rtos N9 2 2))
(set_tile "n10" (rtos N10 2 2))
(setvar 'dimzin 8)
;
) ;End SET_DIM
;------------------------------------------------------------------------;
;------------------------------------------------------------------------;
(defun PIPE_SETDIM ()
(setq
N1 (nth 3 SIZE_DIMS)
N6 (nth 8 SIZE_DIMS)
N7 (nth 9 SIZE_DIMS)
N9 (nth 11 SIZE_DIMS)
) ;end setq
;
; (if (= SCA "1")(SCA_TO_IMP)) ;_ end of if
;
(set_tile "n1" (rtos N1 2 2))
(set_tile "n6" (rtos N6 2 2))
(set_tile "n7" (rtos N7 2 2))
(set_tile "n9" (rtos N9 2 2))
) ;end of PIPE_SETDIM
Anyone able to offer suggestions/pointers?
full code attached.
S