((and(<=dimt 180)( dimt 120))(setq stl 117 st2 124)) ((and(<= dimt 250)( dimt 180))(setq stl 131 st2 138)) ((and(< dimt 315)( dimt 250)(setq stl 145 st2 152) ((and(=dimt 400)( dimt 3 15))(setq st1 159 st2 166)) ((and(<=dimt 500)( dimt 400)(setq stl 173 st2 180)) ((and(<= dimt 630)( dimt 500))(setq stl 187 st2 194)) setq tolels (substr tolss stl 6)tole2S(substr tolss st2 6)) setq xl(+(cadr posi)(*(cos angr)(*(-In 12)txth)))) setq yl(+(caddr posi)(*(sin angr)(*(In 1.2)txth)))) (setq x2 (+Xl((cos(+ angr 1. 5708)(*0.85 toth))) ( setq y2(+yl(*(sin (+ angr 1.5708))(0.85 toth))) setq xyl (list xl yD)) (if(or(=n10)(=nl1)(=n12)(=n13)(=n27)(=n28) (progn(setq toles(strcat"%%p"tolel$)(command"text"xy l txth angd toles)) (progn(if (=n 40)(setq tolel$"+.01"tole2$"0")) (if(=n 41)(setq tolel$"+0.02 tole$"0")) (if(=n 42)(setq tolel$"+0.05"tole2$"0")) (if (=n 43)(setq tolel$" +0. 10"tole2$"0")) (if(=n 48)(setq tolel$"0"tole2$"-0.10")) (if(=n 47)(setq tolls "O"tole2$"-005")) (if(=n 46)(setq tolls"O"tole2$"-002")) (if(=n 45)(setq tolls"0"tole2$"-001")) (command"text"xy2 toleh angd tolel$"text"xy l toleh angd tole2) )(princ)((and (<= dimt 180) (> dimt 120)) (setq st1 117 st2 124)) ((and (<= dimt 250) (> dimt 180)) (setq st1 131 st2 138)) ((and (<= dimt 315) (> dimt 250)) (setq st1 145 st2 152)) ((and (<= dimt 400) (> dimt 315)) (setq st1 159 st2 166)) ((and (<= dimt 500) (> dimt 400)) (setq st1 173 st2 180)) ((and (<= dimt 630) (> dimt 500)) (setq st1 187 st2 194)) ) (setq tole1$ (substr tols$ st1 6) tole2$ (substr tols$ st2 6)) (setq x1 (+ (cadr posi) (* (cos angr) (* (- ln 1.2) txth)))) (setq y1 (+ (caddr posi) (* (sin angr) (* (- ln 1.2) txth)))) (setq x2 (+ x1 (* (cos (+ angr 1.5708)) (* 0.85 txth)))) (setq y2 (+ y1 (* (sin (+ angr 1.5708)) (* 0.85 txth)))) (setq xy1 (list x1 y1)) (setq xy2 (list x2 y2)) (if (or (= n 10) (= n 11) (= n 12) (= n 13) (= n 27) (= n 28)) (progn (setq tole$ (strcat "%%p" tole1$))(command "text" xy1 txth angd tole$)) (progn (if (= n 40) (setq tole1$ "+0.01" tole2$ " 0")) (if (= n 41) (setq tole1$ "+0.02" tole2$ " 0")) (if (= n 42) (setq tole1$ "+0.05" tole2$ " 0")) (if (= n 43) (setq tole1$ "+0.10" tole2$ " 0")) (if (= n 48) (setq tole1$ " 0" tole2$ "-0.10")) (if (= n 47) (setq tole1$ " 0" tole2$ "-0.05")) (if (= n 46) (setq tole1$ " 0" tole2$ "-0.02")) (if (= n 45) (setq tole1$ " 0" tole2$ "-0.01")) (command "text" xy2 toleh angd tole1$ "text" xy1 toleh angd tole2$)) ) ) )(princ)