Xin hỏi về lệnh dimtoh

[ttmt_jses 2]

MÌnh có 1 đoạn lisp về lệnh dimtoh, không hiểu sao bên cad 2002 xài được , còn bên cad 2008 thì nó không hiểu, các bạn ai biết giúp mình với, đây là đoạn lisp:

 

;Horizontal dimension (21 April '00)

 

(defun C:HO(/ oldtoh)

(setq oldtoh (getvar "dimtoh"))

(cond

((= oldtoh 0) (setvar "dimtoh" 1))

((= oldtoh 1) (setvar "dimtoh" 0))

)

(command "select" pause)

(command "dim" "update" "p" "" "e" )

(setvar "dimtoh" oldtoh)

)

 

Mỗi lần mình đánh chữ HO thì nó lại hiện lên cái bảng đen nhưng lại tắt đi ngay lập tức nên mình cũng chả biết nó báo cái gì nữa.Xin mọi người giúp mình với!

[ttmt_jses 2]

Sao không thấy ai hồi âm cho mình vậy?????Bạn nào biết xin giúp mình với!!!