Following on from this post
viewtopic.php?t=3294&p=10927&sid=03c35e ... 2d0#p10927
I'm trying to chage the dimensions in the blue highlighted box from mm to inches
.
Here is the code for the 90deg elbow dimensions
Code: Select all
(defun EL90_SETDIM ()
;
(setvar 'dimzin 0)
(setq
N1 (nth 3 SIZE_DIMS)
N2 (nth 4 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_EL90)) ;_ end of if
; (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" "")
(set_tile "n4" "")
(set_tile "n5" "")
(set_tile "n6" (rtos N6 2 2))
(set_tile "n7" (rtos N7 2 2))
(set_tile "n8" "")
(set_tile "n9" (rtos N9 2 2))
(set_tile "n10" "")
(setvar 'dimzin 8)
;
(princ "\n------ EL90_SETDIM ---------")
(princ "\n O/D N6 = ")
(princ N6)
(princ "\n sca = ")
(princ sca)
(princ "\n scal = ")
(princ scal)
(princ "\n------ EL90_SETDIM ---------")
;
) ;end of EL90_SETDIM
Here is the code for both:
Code: Select all
(defun SCA_TO_IMP ()
(cond ((= SCA "1")(setq scal "0.039370"))
(T (setq scal "25.40000"))
) ;end of cond
;
(cond ((= SCAL "1")(setq insertscal "0.039370"))
(T (setq insertscal "1.000000"))
) ;end of cond
) ;End SCA_TO_IMP
;-----------------------------------------------------------------------;
(defun SCA_TO_IMP_EL90 ()
(cond ((= SCA "1")(setq scal "0.039370"))
(T (setq scal "25.40000"))
) ;end of cond
(cond ((= SCAL "1")(setq insertscal "0.039370"))
(T (setq insertscal "1.000000"))
) ;end of cond
;
(setq
N1 (* N1 (atof scal))
N2 (* N2 (atof scal))
; N3 (* N3 (atof scal))
; N4 (* N4 (atof scal))
; N5 (* N5 (atof scal))
N6 (* N6 (atof scal))
N7 (* N7 (atof scal))
; N8 (* N8 (atof scal))
N9 (* N9 (atof scal))
; N10 (* N10 (atof scal))
);end of setq
;
(set_tile "n1" (rtos N1 2 2))
(set_tile "n2" (rtos N2 2 2))
(set_tile "n3" "")
(set_tile "n4" "")
(set_tile "n5" "")
(set_tile "n6" (rtos N6 2 2))
(set_tile "n7" (rtos N7 2 2))
(set_tile "n8" "")
(set_tile "n9" (rtos N9 2 2))
(set_tile "n10" "")
(setvar 'dimzin 8)
;
(princ "\n------ SCA_TO_IMP_EL90 ---------")
(princ "\n O/D N6 = ")
(princ N6)
(princ "\n sca = ")
(princ sca)
(princ "\n scal = ")
(princ scal)
;(princ "\n INTERSCAL =")
;(princ interscal)
(princ "\n------ SCA_TO_IMP_EL90 ---------")
) ;End SCA_TO_IMP_EL90
as only the princs only show EL90 setdims.
However if I remove sca_to_imp, and rename sca_to_imp_90 as sca_to_imp.
swap the ';' in the setdim code to reflect the same change the code works.
this:
Code: Select all
; (if (= sca "1")(SCA_TO_IMP_EL90)) ;_ end of if
(if (= SCA "1")(SCA_TO_IMP)) ;_ end of if
Code: Select all
(defun SCA_TO_IMP();_EL90 ()
(cond ((= SCA "1")(setq scal "0.039370"))
(T (setq scal "25.40000"))
) ;end of cond
(cond ((= SCAL "1")(setq insertscal "0.039370"))
(T (setq insertscal "1.000000"))
) ;end of cond
;
(setq
N1 (* N1 (atof scal))
N2 (* N2 (atof scal))
; N3 (* N3 (atof scal))
; N4 (* N4 (atof scal))
; N5 (* N5 (atof scal))
N6 (* N6 (atof scal))
N7 (* N7 (atof scal))
; N8 (* N8 (atof scal))
N9 (* N9 (atof scal))
; N10 (* N10 (atof scal))
);end of setq
;
(set_tile "n1" (rtos N1 2 2))
(set_tile "n2" (rtos N2 2 2))
(set_tile "n3" "")
(set_tile "n4" "")
(set_tile "n5" "")
(set_tile "n6" (rtos N6 2 2))
(set_tile "n7" (rtos N7 2 2))
(set_tile "n8" "")
(set_tile "n9" (rtos N9 2 2))
(set_tile "n10" "")
(setvar 'dimzin 8)
;
(princ "\n------ SCA_TO_IMP_EL90 ---------")
(princ "\n O/D N6 = ")
(princ N6)
(princ "\n sca = ")
(princ sca)
(princ "\n scal = ")
(princ scal)
;(princ "\n INTERSCAL =")
;(princ interscal)
(princ "\n------ SCA_TO_IMP_EL90 ---------")
) ;End SCA_TO_IMP
Where am I going wrong, what have I missed/forgotten?
Any help appreciated.
SteveN