오푼부위 표시 X자 리습인대 실행이 안되는군요?…왜 그런지,,

(defun C:X (/ p1 p2 p3 p4)
(setq qss(getvar”osmode”))
(setvar”cmdecho”0)
(setvar”blipmode”1)
(setvar”osmode”32)
(setq p1(getpoint”nPick First Corner: “))
(setq p2(getcorner p1″Pick Other Corner: “))
(setvar”osmode”0)
(setq p3(list(car p2)(cadr p1)))
(setq p4(list(car p1)(cadr p2)))
(setq cel(getvar”CELTYPE”))
(setq cec(getvar”CECOLOR”))
(setvar”blipmode”0)
(setlay”0″)
(command”linetype””S””dashdot”””)
(command”color””m”)
(command”line”p1 p2″”)
(command”line”p3 p4″”)
(command”linetype””S”cel””)
(command”color”cec)
(setvar”cmdecho”1)
(setvar”blipmode”1)
(setvar”osmode”qss)
(rtnlay)
(princ))