lisp tạo thước đo góc

Thực ra cái này thì bạn có thể hoàn toàn tạo được bằng lệnh ARRAYPOLAR nhưng việc đánh số khá mất thì giờ; vậy nên bạn có thể tham khảo lisp này.

(defun c:nosine_tdg360 ( / pt r ang p x y txt)
(setq pt (getpoint "\nChọn tâm đường tròn: ")) ; Tâm đường tròn
(setq r (getreal "\nNhập bán kính đặt số: "))  ; Khoảng cách ra ngoài
(setq ang 0) ; Bắt đầu từ góc 0 độ

(repeat 36
  (setq p (* pi (/ ang 180.0))) ; Chuyển độ sang radian
  (setq x (+ (car pt) (* r (cos p))))
  (setq y (+ (cadr pt) (* r (sin p))))
  (setq txt (strcat "GOC=" (itoa ang)))
  (command "TEXT" (list x y) "0" "5" "0" txt)
  (setq ang (+ ang 10)) ; Tăng lên 10 độ mỗi bước
)
(princ "\nĐã đánh số đủ số góc quanh đường tròn.")
(princ)
)

Để sử dụng lisp này, bạn cần tạo thêm 1 file txt ngang hàng với file này có nội dung dạng:

GOC=0
GOC=10
GOC=20
GOC=30
GOC=40
GOC=50
GOC=60
...
GOC=350