So sánh tọa độ 2 điểm trong cad lisp năm 2024

Với 2 cách xuất tọa độ trong Cad nêu trên, chắc chắn sẽ giúp cho việc thiết kế bản vẽ trên Cad cũng như nâng cao kiến thức của mình được nhanh chóng và dễ dàng hơn.

Bạn đọc quan tâm muốn biết thêm nhiều kiến thức cũng như công cụ hỗ trợ trong việc thiết kế ra những bản vẽ kỹ thuật chuẩn nhất hãy nhanh tay đăng ký và theo dõi khoá học Solidworks trên Unica, các chuyên gia sẽ hướng dẫn chi tiết bài bản giúp bạn có thể áp dụng vào trong bản thiết kế của mình ngay lập tức.

Việc xuất tọa độ trong AutoCAD từ hệ tọa độ CAD sang hệ tọa độ quốc gia VN-2000 tương đối thuận tiện. Trong AutoCAD thì lấy tọa độ bằng lệnh ID của một vài điểm hoặc List để lấy tọa độ của các điểm gãy khúc của Polyline rất tốt. Tuy nhiên, làm việc với số lượng nhiều vẫn là vấn để cần giải quyết.

So sánh tọa độ 2 điểm trong cad lisp năm 2024

Với việc xuất tọa độ của ranh đất khoảng 200-300 điểm là chuyện bình thường và rất thường xuyên gặp phải. Những ai chưa tiếp xúc nhiều với AutoLISP thì quả thật là một công việc nhàm chán và mất thời gian.

Dưới đây là LISP xuất tọa độ theo hệ tọa độ VN-2000 để cho người dùng đỡ vất vả hơn trong việc xuất tọa độ ra bản vẽ. Chỉ cần cầm chuột click, click và … click. Xem Video bên dưới hoặc xem trực tiếp trên Youtube

Yêu cầu và chuẩn bị

  • Bản vẽ đúng tọa độ ranh mốc đo vẽ theo hệ tọa độ VN-2000 để đảm bảo xuất tọa độ ra đúng theo yêu cầu công việc.
  • Bộ LISP xuất tọa độ (download bên dưới)
  • Trong LISP này có sử dụng hàm có sẵn của thư viện trong bộ Express của AutoCAD nên nếu bạn chưa cài bộ Express thì sẽ báo lỗi.

Download

Hướng dẫn Download từ link rút gọn OuoBước 1Chọn vào ô Tôi không phải là người máy (I’m not a robot) và xác nhận hình ảnh theo yêu cầu (nếu có)

So sánh tọa độ 2 điểm trong cad lisp năm 2024
Bước 2Đợi hết 3s, chữ GET LINK sẽ sáng lên. Bấm vào nút GET LINK để tải về

Các bước thực hiện

  1. Copy file “VTD_TD.dwg” vào thư mục Support của phiên bản AutoCAD đang sử dụng.
  1. Load AutoLISP bằng lệnh AP, sẽ có thông báo hiện lên các lệnh cho bạn thực hiện; Nếu chỉ đơn thuần là lấy tọa độ tại các điểm cần chọn trên màn hình thì sử dụng lệnh TDD, còn nếu muốn xuất tọa độ của ranh bản đồ ra bản vẽ thì sử dụng lệnh TDP.
  1. Lệnh TDD – Xuất tọa độ bằng cách chọn điểm trên màn hình
  • Gõ lệnh TDD
  • Chọn số thập phân mà bạn muốn hiển thị. Ví dụ bạn muốn xuất tọa độ sau dấu thập phân là 3 chữ số (123456,789) thì bạn nhập là 3
  • Click chọn điểm muốn xuất tọa độ, vậy là xong. Nếu muốn xuất tọa độ các điểm còn lại thì chỉ việc chọn điểm cần xuất tọa độ. Nếu muốn dừng thì chỉ cần bấm phím Esc
  1. Lệnh TDP – Xuất tọa độ tại các điểm gãy khúc của đường Polyline (Thường dùng để xuất tọa độ của ranh đất)
  • Gõ lệnh TDP
  • Chọn số thập phân mà bạn muốn hiển thị.
  • Chọn đường Pline (LWPolyline) muốn xuất tọa độ ra bản vẽ.
    Lưu ý: Sau khi xuất tọa độ ra bản vẽ,nếu bạn muốn lấy danh sách tọa độ điểm thì nhấn phím F2, bảng AutoCAD Text Window sẽ hiện lên, danh sách tọa độ điểm sẽ nằm bên dưới dòng lệnh Command.

So sánh tọa độ 2 điểm trong cad lisp năm 2024

Thể hiện bản vẽ

Block sử dụng là Dynamic Block nên việc chỉnh sửa lại cách thể hiện bản vẽ tương đối nhẹ nhàng. Ví dụ muốn kéo dài hàng loat các Block ra để các text tọa độ không bị che bởi Leader, chỉ cần chọn các block và thay đổi tăng hoặc giảm chiều dài đường gióng (Distance).

So sánh tọa độ 2 điểm trong cad lisp năm 2024

Tăng giảm kích thước đường gióng (Mục Distance trong tab Custom)

So sánh tọa độ 2 điểm trong cad lisp năm 2024

Trường hợp khi dùng LISP thì chỉ hiện lên bảng Enter Attributes với Tên cọc (1), Tọa độ X (X=), tọa độ Y (Y=) còn lại trắng tinh, và khi bấm OK thì chỉ hiện Block tọa độ nhưng X và Y không có giá trị gì thì fix lỗi như sau – ATTDIA, đưa về 0 – ATTMODE, đưa về 1 – ATTREQ, đưa về 1. Hoặc tải LISP sau về và dùng lệnh FIX để sửa lỗi. Download

UPDATE 04/7/2018. – Bổ sung thêm lệnh TDDX: Xuất tọa độ điểm và xuất dữ liệu qua file Excel. – Bổ sung thêm lệnh TDPX: Xuất tọa độ của Polyline và xuất dữ liệu qua file Excel. – Sửa lỗi không xuất được được tọa độ ra AutoCAD do các phiên bản CAD đời mới thay đổi biến hệ thống liên quan đến Block attributes. Download

Lập bảng thống kê tọa độ góc ranh

Bạn chỉ cần xuất tọa độ trực tiếp trên bản vẽ hay lập bảng thống kê tọa độ góc ranh?

Nếu bạn cần lập bảng thống kê tọa độ góc ranh thì xem thêm: Xuất tọa độ và lập bảng thống kê tọa độ góc ranh theo hệ VN-2000

E sưu tầm được file lisp như sau để lấy tọa độ XYZ của các điểm thay cho lệnh ID. Nhưng sau khi e xuất ra file txt, thì chỉ lấy được 3 số thập phân, trong khi e muốn lấy 4 số, và không làm tròn. Mong ae có thể sửa code trong lisp này dùm e.

Và cho e hỏi luôn là sau khi mình xuất ra file txt rồi, thì e muốn xuất ngược bảng tọa độ đó vào Cad có được không???Mong ae chỉ dạy.

Cảm ơn ae rất nhiều và nội dung file lisp e có như sau :

;; free lisp from cadviet.com;;; this lisp was downloaded from http://www.cadviet.com/forum/topic/5852-lisp-xuat-toa-do/

(defun c:tff ( / tmp dlst p1 file opw msg id)

(setq tmp t)

(setq dlst (list(strcat "X" "\t" "Y" "\t" "Z")))

(setq id 0)

(setq file (strcat (getvar "DWGPREFIX") (substr (getvar "DWGNAME") 1 (- (strlen (getvar "DWGNAME")) 4)) ".txt"))