(DEFUN C:SLANT()(SETQ Qj(GETVAR"REGENMODE"))(SETVAR"REGENMODE"1)(SETQ Q@(GETVAR"CMDECHO"))(SETVAR"CMDECHO"0)(SETQ QQ(GETPOINT"\nEnter First Point :"))(SETQ Ql(GETPOINT QQ"\nEnter Second Point :"))(COMMAND"DVIEW""""TW"(/(* -180(ANGLE QQ Ql))PI)"")(SETVAR"REGENMODE"Qj)(SETVAR"CMDECHO"Q@))