[Lisp]Ghi con số cần nhớ lên thanh status bar của Autocad
Tác giả
Thông điệp
Admin Thượng úy
Tổng số bài gửi : 103 Điểm : 291 Reputation : 34 Join date : 15/01/2011
Tiêu đề: [Lisp]Ghi con số cần nhớ lên thanh status bar của Autocad Mon Oct 17, 2011 9:33 pm
Đôi khi trong quá trình thao tác bản vẽ, zoom qua zoom lại, tính tính toán toán và bạn cần nhớ 1 con số nào đó đã ghi trên bản vẽ. Số dễ nhớ thì có thể nhẩm và nhớ. Nhưng số dài loằng ngoằng thì chắc là bạn phải ghi ra giấy. Lệnh tự tạo sau đây giúp bạn ghi con số cần nhớ lên thanh status bar của Autocad.
Code:
[/color][color=blue][font=Courier New](defun c:ltext () (setq entity (entget (car (entsel "\nPick Text to Display: "))))[/font] (if (= "TEXT" (cdr (assoc 0 entity))) (progn (setq info (CDR (assoc 1 entity))) (grtext -1 info) ) (prompt "\nEntity was not text ") ) (princ) )
Sau khi đánh lệnh ltext bạn chọn text cần ghi nhớ.
[Lisp]Ghi con số cần nhớ lên thanh status bar của Autocad