(DEFUN Qj(Q@)(* PI(/ Q@ 180.0)))(DEFUN QQ(Q@)(* Q@(/ 180.0 PI)))(DEFUN Ql(Q@)(/(SIN Q@)(COS Q@)))(DEFUN C:CYLFLAT()(GRAPHSCR)(SETVAR"CMDECHO"0)(SETQ Q&(GETDIST"\n ENTER OUTSIDE DIA. OF CYLINDER: "))(SETQ Q1(GETDIST"\n ENTER PLATE THICKNESS OF CYLINDER: "))(SETQ Q#(GETDIST"\n ENTER LENGTH OF CYLINDER: "))(SETQ Q0(GETANGLE"\n ENTER ANGLE BETWEEN CYLINDER AND PLATE: "))(SETQ Q$(GETANGLE"\n ENTER ANGLE INCREMENT IN DEG. FOR 360 DEGREES: "))(SETQ QO(GETSTRING"\n DO YOU WANT DIMENSIONS ENTER Y/N:-"))(SETQ Q|(STRCASE QO))(SETQ Q% 0 Q?j 0 Qjj 0)(SETQ Q@j(- Q& Q1))(SETQ QQj(/ Q@j 2))(SETQ Qlj 0)(COMMAND"POINT"(LIST 0 0))(SETQ Q&j(LIST 0 0))(SETQ Q1j(-(/ PI 2)Q0))(SETQ Q#j(* QQj(Ql Q1j)))(SETQ Q0j(- Q# Q#j))(COMMAND"LAYER""MAKE""CCTO""C""1""CCTO""")(WHILE(<= Qlj(* 2.01 PI))(SETQ Q%(* QQj(COS Qlj)))(SETQ Q?j(- QQj Q%))(SETQ Qjj(* Q?j(Ql Q1j)))(SETQ Q$j(+ Q0j Qjj))(SETQ QOj(* QQj Qlj))(SETQ Q|j QOj)(SETQ Q%j(LIST Q|j Q$j))(COMMAND"LINE""@"Q%j"")(SETQ Qlj(+ Qlj Q$)))(SETQ Q?@(LIST Q|j 0))(COMMAND"LINE"Q%j Q?@ Q&j"")(IF(= Q|"Y")(PROGN(SETQ Qj@ 0 Q@@ 0 QQ@ 0 Ql@ 0)(SETQ Q&@(/ Q& 3))(SETQ Q1@(* 0.5 Q&@))(SETQ Q#@(* 0.5 Q&@))(SETVAR"DIMSCALE"Q&@)(SETQ Qlj 0)(SETQ Q1j(-(/ PI 2)Q0))(SETQ Q#j(* QQj(Ql Q1j)))(SETQ Q0j(- Q# Q#j))(SETVAR"DIMTOH"0)(SETVAR"DIMTIH"0)(COMMAND"LAYER""MAKE""CCTD""C""2""CCTD""")(WHILE(<= Qlj(* 1.01 PI))(SETQ Q%(* QQj(COS Qlj)))(SETQ Q?j(- QQj Q%))(SETQ Qjj(* Q?j(Ql Q1j)))(SETQ Q$j(+ Q0j Qjj))(SETQ QOj(* QQj Qlj))(SETQ Q|j QOj)(SETQ Q%j(LIST Q|j Q$j))(SETQ Q@@(- Q@@ Q1@))(SETQ QQ@(- QQ@ Q#@))(SETQ Q0@(LIST QQ@ 0))(SETQ Q$@(LIST 0 Q@@))(COMMAND"DIM""VER"Q&j Q%j Q0@"""EXIT")(COMMAND"DIM""HOR"Q%j Q&j Q$@"""EXIT")(SETQ Qlj(+ Qlj Q$)))))(SETVAR"CMDECHO"1)(SETVAR"DIMTOH"1)(SETVAR"DIMTIH"1)(SETVAR"DIMSCALE"1)(PRINC))