I think you can store more datas of your tees in list. For example store some datas of DN80 and DN100 tees (of corse I don'n know right datas):
Then extract datas for DN100 tee:
Command: (setq parLst '((80 99 136 84 25 16)(100 122 184 97 32 18)))
Then you can extract separate datas for tee draw:
Command: (setq a(cdr(assoc 100 parLst)))
(122 184 97 32 18)
I don't use 'car' and 'cadr' functions becorse there is mach datas and 'nth' more convinient to control right number.
Command: (nth 0 a)
Command: (nth 1 a)
Command: (nth 2 a)
Command: (nth 3 a)
Command: (nth 4 a)
I can write special functions (subfunctions) to draw fittings for each standard and transfer datas as uniform list. For example:
and call it from main program.
(defun Draw_ANSI_Equal_Tee(paramList / ....)