LISP DTD – PICK TỌA ĐỘ TỰ ĐỘNG

Bạn đang cần một công cụ hỗ trợ thống kê tọa độ điểm trong AutoCAD nhanh chóng, chính xác và tiện lợi?

LISP DTD – Đo Tọa Độ chính là giải pháp hoàn hảo cho dân trắc địa, kỹ sư thiết kế và bất kỳ ai thường xuyên làm việc với tọa độ trong bản vẽ kỹ thuật.

TÍNH NĂNG NỔI BẬT CỦA LISP DTD

Tự động liệt kê tọa độ điểm:
LISP DTD giúp người dùng chọn nhanh các điểm trong bản vẽ (điểm rời rạc hoặc Polyline), sau đó tự động thống kê thành danh sách tọa độ.
Xuất bảng ngay trong bản vẽ:
Hệ tọa độ được trình bày dưới dạng bảng ngay trong không gian làm việc AutoCAD, giúp dễ dàng quản lý và kiểm tra.
Linh hoạt định dạng:
Hỗ trợ cả định dạng XY và XYZ, phù hợp với đa dạng nhu cầu từ đo đạc địa hình, lập bản đồ đến thiết kế kỹ thuật.
Tùy chọn kiểu bảng:
Người dùng có thể xuất dữ liệu ra dạng Table (bảng AutoCAD) hoặc dạng Text truyền thống, dễ dàng copy hoặc xử lý tiếp.
Giao diện đơn giản, dễ sử dụng:
Không cần cài đặt phức tạp, chỉ cần load file LISP và thực hiện lệnh là có thể sử dụng ngay.

Ứng dụng HSTD thương mại 800k/1 máy. Liên hệ 0382.77.44.57

TẠI SAO NÊN DÙNG LISP DTD?

Tiết kiệm thời gian xử lý số liệu tọa độ
Giảm sai sót khi ghi chép thủ công
Tăng năng suất làm việc cho kỹ sư và kỹ thuật viên
Phù hợp với mọi phiên bản AutoCAD hỗ trợ LISP

TẢI VỀ LISP DTD HOÀN TOÀN MIỄN PHÍ

LISP DTD hiện đang được chia sẻ miễn phí tại:
🔗 Website: https://lisp.vn
📌 Nhóm Facebook AutoLISP Trắc địa: http://tdz.lisp.vn

Chỉ cần vài phút là bạn đã có thể sở hữu và sử dụng một công cụ mạnh mẽ, tiện lợi giúp quản lý tọa độ chuyên nghiệp hơn.

KẾT LUẬN

LISP DTD – Đo Tọa Độ là công cụ không thể thiếu dành cho dân AutoCAD chuyên làm việc với bản vẽ địa hình, khảo sát và trắc địa. Với khả năng liệt kê, thống kê và xuất bảng tọa độ cực kỳ linh hoạt, DTD giúp tối ưu hóa quy trình làm việc, mang lại hiệu quả vượt trội – hoàn toàn miễn phí.

Hãy tải ngay và trải nghiệm sự tiện lợi mà DTD mang lại cho công việc của bạn!

Video hướng dẫn

Bản mới nhất đã khép tọa độ

Hướng dẫn fix lỗi Text = 0

Một số bản vẽ AutoCAD sẽ phát sinh lỗi sau:

Vào Text Style (lệnh ST), điều chỉnh chiều cao Height của TextStyle hiện hành = 0

Mã nguồn mở

Mã nguồn mở hoàn toàn miễn phí. Người dùng có thể lưu mã nguồn thành tệp tin .lsp

1 Thêm tệp tin DTD from lisp.vn.lsp

Lưu mã sau dưới dạng tệp tin DTD from lisp.vn.lsp

Code:

;;;
;;;  System variable save
;;;
(defun modes (a)
  (setq mlst '())
  (repeat (length a)
    (setq mlst (append mlst (list (list (car a) (getvar (car a))))))
    (setq a (cdr a)))
)
;;;
;;;  System variable restore
;;;
(defun moder ()
  (repeat (length mlst)
    (setvar (caar mlst) (cadar mlst))
    (setq mlst (cdr mlst))
  )
)
;;;


(defun at_err (st)
  (if (and (/= st "Function cancelled") 
           (/= st "quit / exit abort")
       )
    (princ (strcat "\nError: " st))
  ) 
  (moder)
  (setq *error* olderr)
  (princ)
) 
(defun SetClipText (str / html result)
	(if (= 'STR (type str))
		(progn
			(setq html (vlax-create-object "htmlfile")
				result (vlax-invoke (vlax-get (vlax-get html 'ParentWindow) 'ClipBoardData) 'setData "Text" str))
			(vlax-release-object html)
		   str
		)
	)
)
;;;
;;; -------------------------- MAIN PROGRAM ----------------------------------
;;;

(defun c:dtd ( / pt1 xpt1 xpt2 xpt3 xpt4 ypt1 slx1 slx2 nlx1 nlx2 pt spt dist)
	(setq olderr *error* *error* at_err)
	(modes '("CMDECHO" "HIGHLIGHT" "osmode"))
	(mapcar 'setvar '("CMDECHO" "HIGHLIGHT" "osmode") '(0 0 0))
	(command "._undo" "_g")
	(if (not (tblsearch "style" "vntime"))
	(command "_.style" "vntime" ".vntime" "" "" "" "" ""))
	(if (not (tblsearch "layer" "ghichu"))
	(command "_.layer" "m" "ghichu" "c" "4" "ghichu" "" ""))
	(setq pt1 (getpoint "\nChon diem ghi khung toa do: "))
	(setq xpt1 (car pt1) ypt1 (cadr pt1))
	(setq xpt2 (+ xpt1 12) xpt3 (+ xpt1 23) xpt4 (+ xpt1 31))
	(setq slx1 (list (- xpt1 4) (+ ypt1 8))
		slx2 (list (+ xpt4 2) (+ ypt1 8)))
	(command "_.line" slx1 slx2 "")
	(command "_.line" (list (+ xpt1 2) (+ ypt1 5)) (list (+ xpt3 2) (+ ypt1 5)) "")
	(command "_.line" (list (- xpt1 4) (+ ypt1 2)) (list (+ xpt4 2) (+ ypt1 2)) "")
	(command "_.text" "_J" "_C" (list (- xpt1 1) (+ ypt1 4.5)) "1.2" "0" "STT")
	(command "_.text" "_J" "_C" (list (+ xpt2 2) (+ ypt1 6.0)) "1.2" "0" "To¹ ®é")
	(command "_.text" "_J" "_C" (list (- xpt2 4.0) (+ ypt1 3.0)) "1.2" "0" "X (m)")
	(command "_.text" "_J" "_C" (list (- xpt3 3.5) (+ ypt1 3.0)) "1.2" "0" "Y (m)")
	(command "_.text" "_J" "_C" (list (- xpt4 2.0) (+ ypt1 5.5)) "1.2" "0" "K/c¸ch")
	(command "_.text" "_J" "_C" (list (- xpt4 2.0) (+ ypt1 3.5)) "1.2" "0" "(m)")
	(setq str "")
	(setq j 1)
	(prompt "\nDiem thu nhat: ")
	(setvar "osmode" 1)
	(setq p1 (list))
	(while (setq pt (getpoint))
		(if pt
			(progn
				(if (not p1) (setq p1 pt))
				(setvar "osmode" 0)
				(setq xpt (rtos (car pt) 2 3) ypt (rtos (cadr pt) 2 3))
				(command "_.text" "_J" "_R" (list xpt1 ypt1) "1" "0" (itoa j))
				(command "_.text" "_J" "_R" (list xpt2 ypt1) "1" "0" ypt)
				(command "_.text" "_J" "_R" (list xpt3 ypt1) "1" "0" xpt)
				(if spt
					(progn
						(setq dist (rtos (distance spt pt) 2 2))
						(command "_.text" "_J" "_R" (list xpt4 (+ ypt1 1.5)) "1" "0" dist)
						(setq str (strcat str dist))
					)
				)
				(setq str (strcat (if (eq str "") str (strcat str "\n")) (itoa j) "\t" ypt "\t" xpt "\t"))
				(command "_.donut" "0" "0.7" pt "")
				(command "_.TEXT" (list (+ (car pt) 1.0) (cadr pt)) "1.5" "0" (itoa j))
				(setq nlx1 (list (- xpt1 4) (- ypt1 1))
					nlx2 (list (+ xpt3 2) (- ypt1 1)))
				(command "_.line" nlx1 nlx2 "")
				(setq spt pt ypt1 (- ypt1 3))
				(princ "\nDiem thu ") (princ (setq j (1+ j))) (prompt " : ")
				(setvar "osmode" 1)
			)
		) ; end if pt
	)
	
	(if p1
		(progn
			(setq pt p1)
			(setvar "osmode" 0)
			(setq xpt (rtos (car pt) 2 3) ypt (rtos (cadr pt) 2 3))
			(command "_.text" "_J" "_R" (list xpt1 ypt1) "1" "0" (itoa 1))
			(command "_.text" "_J" "_R" (list xpt2 ypt1) "1" "0" ypt)
			(command "_.text" "_J" "_R" (list xpt3 ypt1) "1" "0" xpt)
			(if spt
				(progn
					(setq dist (rtos (distance spt pt) 2 2))
					(command "_.text" "_J" "_R" (list xpt4 (+ ypt1 1.5)) "1" "0" dist)
					(setq str (strcat str dist))
				)
			)
			(setq str (strcat (if (eq str "") str (strcat str "\n")) (itoa 1) "\t" ypt "\t" xpt "\t"))
			
			(setq nlx1 (list (- xpt1 4) (- ypt1 1))
				nlx2 (list (+ xpt3 2) (- ypt1 1)))
			(command "_.line" nlx1 nlx2 "")
			(setq spt pt ypt1 (- ypt1 3))
			(princ "\nDiem thu ")
			(princ (setq j (1+ j)))
			(prompt " : ")
			(setvar "osmode" 1)
		)
	)
	
	(setvar "osmode" 0)
	(command "_.line" slx1 nlx1 "")
	(command "_.line" slx2 (list (+ xpt4 2) (+ ypt1 2)) nlx2
	(list (+ xpt3 2) (cadr slx1)) "")
	(command "_.line" (list (+ xpt2 2) (- (cadr slx1) 3)) (list (+ xpt2 2) (cadr nlx1)) "")
	(command "_.line" (list (+ xpt1 2) (cadr slx1)) (list (+ xpt1 2) (cadr nlx1)) "")
	(command "._undo" "_e")
	(moder)
	(setq *error* olderr)
	(princ "\nData was copied to the Clipboard\n")
	(princ str)
	(SetClipText str)
	(princ "\nEdited by lisp.vn")
	(princ "\nFree share on lisp.vn")
	(princ)
)

hoặc tải từ link bên dưới