Code dạo theo yêu cầu - Kỳ 1 (Lisp Code)

Code 1: Chèn text cao độ tại các tâm hình tròn (circle) sẵn có. 

Nội dung text là giá trị cao độ của tâm hình tròn. Ứng dụng code thường dùng cho các trường hợp bạn phân rã cao độ khảo sát ra đối tượng hình tròn cao độ là tâm. Sử dụng: Load code rồi nhập lệnh "btip01" chọn các hình tròn là xong.

(defun c:btip01() (setq o (ssget) i 0)
(repeat (sslength o) (setq a (entget (ssname o i)) p (cdr (assoc 10 a)) b (nth 2 p) i(1+ i))
(command ".text" "j" "r" p 0.8 0 (rtos b 2 3))))

Keyword: Insert elevation text at existing circle centers, Lisp code.