Đến nội dung


Hình ảnh
- - - - -

Xin hỏi về lệnh dimtoh


  • Please log in to reply
1 reply to this topic

#1 ttmt_jses

ttmt_jses

    biết vẽ circle

  • Members
  • PipPip
  • 31 Bài viết
Điểm đánh giá: 2 (bình thường)

Đã gửi 10 December 2008 - 05:25 PM

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!
  • 0

#2 ttmt_jses

ttmt_jses

    biết vẽ circle

  • Members
  • PipPip
  • 31 Bài viết
Điểm đánh giá: 2 (bình thường)

Đã gửi 11 December 2008 - 01:05 PM

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!!!
  • 0