Cách xuất tọa độ từ Cad sang Excel với Lisp

Xuất tọa độ từ CAD sang Excel là gì?

Xuất tọa độ là quá trình lấy vị trí của các đối tượng trong bản vẽ AutoCAD và chuyển thành bảng dữ liệu. Bảng thường có số thứ tự, mã điểm, tọa độ X, Y, Z, loại đối tượng, layer và các thuộc tính bổ sung.

Dữ liệu sau khi xuất có thể được dùng để kiểm tra điểm đo, lập bảng tọa độ, chuyển sang phần mềm trắc địa, tạo hồ sơ cắm mốc, tính diện tích hoặc đối chiếu bản vẽ với dữ liệu ngoài thực địa.

Không nên chọn toàn bộ đối tượng rồi xuất mà chưa xác định loại dữ liệu. Điểm chèn của một dòng chữ, tâm block và tọa độ điểm đo có thể nằm ở ba vị trí khác nhau.

Ba phương án xuất tọa độ nên dùng

Excel không cần được điều khiển trực tiếp để nhận tọa độ. Xuất CSV hoặc TXT thường ổn định hơn so với mở Excel qua ActiveX, đặc biệt khi chia sẻ routine giữa nhiều máy hoặc sử dụng AutoCAD LT.

Cách 1: Xuất tọa độ bằng DATAEXTRACTION

DATAEXTRACTION là công cụ có sẵn trong AutoCAD để lấy thuộc tính đối tượng và xuất thành bảng trong bản vẽ hoặc tệp ngoài. Đây là lựa chọn phù hợp khi người dùng không muốn chạy AutoLISP của bên thứ ba.

1. Chuẩn bị bản vẽ: kiểm tra các điểm cần xuất là POINT, BLOCK hoặc loại đối tượng nào.
2. Gõ DATAEXTRACTION: khởi động trình hướng dẫn trích xuất dữ liệu.
3. Tạo cấu hình mới: lưu tệp cấu hình DXE hoặc DXEX để tái sử dụng.
4. Chọn nguồn dữ liệu: bản vẽ hiện tại, nhiều bản vẽ hoặc tập đối tượng đã chọn.
5. Lọc loại đối tượng: giữ POINT, BLOCK hoặc đối tượng thực sự cần lấy.
6. Chọn thuộc tính: Position X, Position Y, Position Z, Layer, tên block và thuộc tính block.
7. Sắp xếp dữ liệu: đổi tên cột, lọc dòng trùng và chọn thứ tự.
8. Chọn đầu ra: bảng trong CAD, CSV, TXT hoặc XLSX tùy cấu hình.
9. Lưu tệp: đặt tên dễ nhận diện và kiểm tra thư mục đầu ra.
10. Kiểm tra: so sánh một số điểm với lệnh ID hoặc Properties trong CAD.

DATAEXTRACTION có lợi thế là không cần nạp mã thực thi. Khi block có thuộc tính như số hiệu điểm, cao độ và mô tả, người dùng có thể xuất các trường đó cùng tọa độ điểm chèn.

AutoLISP xuất tọa độ trong CAD là gì?

AutoLISP là ngôn ngữ tùy biến của AutoCAD. Routine thường được lưu ở định dạng LSP; chương trình đã biên dịch có thể dùng FAS hoặc VLX. AutoCAD 2026 cũng hỗ trợ quy trình viết và gỡ lỗi AutoLISP bằng Visual Studio Code với extension của Autodesk.

AutoLISP có thể làm gì?

• Chọn và lọc đối tượng theo loại hoặc layer.
• Đọc điểm chèn, tọa độ đỉnh, tên block và thuộc tính.
• Đánh số điểm theo thứ tự lựa chọn hoặc quy tắc riêng.
• Xuất CSV, TXT hoặc tạo bảng ngay trong bản vẽ.
• Chuyển đổi cách trình bày X–Y–Z hoặc E–N–H.
• Kiểm tra điểm trùng và thiếu dữ liệu.
• Tạo lệnh tắt để dùng lặp lại trong nhiều dự án.

Routine tốt phải ghi rõ đối tượng được hỗ trợ, hệ tọa độ đầu ra, số chữ số thập phân và cách xử lý lỗi. Không nên tải một file VLX rồi sử dụng chỉ vì có hướng dẫn “gõ lệnh C2F” nhưng không biết chương trình làm gì với bản vẽ và máy tính.

AutoLISP có dùng được trên AutoCAD LT 2026 không?

AutoCAD LT trên Windows hiện hỗ trợ AutoLISP. Tuy nhiên, một số routine cũ phụ thuộc ActiveX, COM, VBA hoặc thư viện ngoài có thể không hoạt động đầy đủ như trên AutoCAD bản đầy đủ.

Đối với máy Mac, khả năng hỗ trợ cũng khác Windows; định dạng VLX và các routine điều khiển Microsoft Excel bằng ActiveX không phải lựa chọn có tính di động cao. Cách ghi dữ liệu trực tiếp ra CSV bằng hàm file của AutoLISP thường dễ triển khai hơn.

Bảo mật khi nạp file LSP, FAS và VLX

AutoCAD sử dụng SECURELOAD để kiểm soát việc nạp mã thực thi. Giá trị mặc định của AutoCAD 2026 là 1; khi bảo mật ở mức 1 hoặc 2, file chỉ nên được chạy từ thư mục được khai báo trong TRUSTEDPATHS.

Thay vì đặt SECURELOAD bằng 0, hãy thực hiện:

1. Kiểm tra nguồn: ưu tiên mã LSP có thể đọc được.
2. Quét file: dùng phần mềm bảo mật trước khi nạp.
3. Tạo thư mục riêng: ví dụ thư mục routine nội bộ của công ty.
4. Mở OPTIONS: vào thẻ Files và mục Trusted Locations.
5. Thêm đúng thư mục: không thêm toàn bộ ổ đĩa hoặc thư mục tải xuống.
6. Nạp bằng APPLOAD: kiểm tra thông báo và tên lệnh sau khi load.
7. Thử trên bản sao: không thử routine lạ trên bản vẽ gốc.

AutoCAD 2026 còn siết bảo mật đối với dự án kết nối Autodesk Docs khi PROJECTAWARE được bật. Vì vậy, việc routine cũ bị chặn không phải lỗi để xử lý bằng cách tắt toàn bộ bảo mật.

Mẫu AutoLISP xuất POINT và BLOCK sang CSV

Đoạn mã dưới đây xuất đối tượng POINT và điểm chèn BLOCK. Kết quả gồm STT, POINT_ID, X, Y, Z, loại đối tượng và layer. Tọa độ được chuyển về WCS trước khi ghi tệp.

Tên lệnh sau khi nạp: DVNCSV

(defun dvn-escape-quotes (text / pos start result)
  (setq start 0
        result "")

  (while (setq pos (vl-string-position 34 text start))
    (setq result
      (strcat
        result
        (substr text (1+ start) (- pos start))
        "\"\""
      )
    )
    (setq start (1+ pos))
  )

  (strcat result (substr text (1+ start)))
)

(defun dvn-csv-cell (value)
  (strcat
    "\""
    (dvn-escape-quotes (if value value ""))
    "\""
  )
)

(defun c:DVNCSV (/ ss path file index ent data objtype point pointid layer)
  (setq ss (ssget '((0 . "POINT,INSERT"))))

  (if ss
    (progn
      (setq path
        (getfiled
          "Luu bang toa do CSV"
          (getvar "DWGPREFIX")
          "csv"
          1
        )
      )

      (if path
        (progn
          (setq file (open path "w"))
          (write-line
            "STT,POINT_ID,X,Y,Z,OBJECT_TYPE,LAYER"
            file
          )

          (setq index 0)

          (repeat (sslength ss)
            (setq ent     (ssname ss index)
                  data    (entget ent)
                  objtype (cdr (assoc 0 data))
                  point   (trans (cdr (assoc 10 data)) ent 0)
                  layer   (cdr (assoc 8 data))
                  pointid
                    (if (= objtype "INSERT")
                      (cdr (assoc 2 data))
                      (itoa (1+ index))
                    )
            )

            (write-line
              (strcat
                (itoa (1+ index)) ","
                (dvn-csv-cell pointid) ","
                (rtos (car point) 2 3) ","
                (rtos (cadr point) 2 3) ","
                (rtos
                  (if (caddr point) (caddr point) 0.0)
                  2
                  3
                ) ","
                (dvn-csv-cell objtype) ","
                (dvn-csv-cell layer)
              )
              file
            )

            (setq index (1+ index))
          )

          (close file)
          (princ (strcat "\nDa xuat file: " path))
        )
      )
    )
    (princ "\nKhong co POINT hoac BLOCK duoc chon.")
  )

  (princ)
)

Mã sử dụng các hàm mở, ghi và đóng tệp của AutoLISP. Không cần mở Microsoft Excel trong lúc chạy. Sau khi xuất xong, người dùng nhập CSV vào Excel để chọn đúng dấu phân cách và kiểu số.

Cách tạo file LSP từ đoạn mã mẫu

1. Sao chép mã: lấy toàn bộ đoạn từ hàm dvn-replace-all đến cuối lệnh DVNCSV.
2. Mở trình soạn thảo: dùng Visual Studio Code, Notepad hoặc trình soạn thảo văn bản thuần.
3. Lưu file: đặt tên dvn_xuat_toa_do_csv.lsp.
4. Chọn mã hóa: ưu tiên UTF-8 hoặc ASCII nếu chỉ dùng ký tự không dấu.
5. Đặt vào thư mục tin cậy: không chạy trực tiếp từ Downloads.
6. Sao lưu bản vẽ: tạo một bản DWG thử nghiệm trước khi chạy.

Quy tắc tên file “không quá 8 ký tự và không có khoảng trắng” là giới hạn lỗi thời. Hệ điều hành và AutoCAD hiện đại hỗ trợ tên dài. Tuy vậy, tên không dấu, không ký tự đặc biệt vẫn giúp giảm lỗi khi chuyển file giữa nhiều máy.

Cách nạp AutoLISP vào AutoCAD 2026

1. Mở bản vẽ thử: không dùng ngay trên tệp đang sản xuất.
2. Gõ APPLOAD: dùng tên lệnh đầy đủ thay vì phụ thuộc alias AP.
3. Chọn file LSP: tìm đến thư mục tin cậy đã chuẩn bị.
4. Nhấn Load: kiểm tra thông báo nạp thành công.
5. Đóng hộp thoại: quay lại Command Line.
6. Gõ DVNCSV: bắt đầu routine.
7. Chọn POINT hoặc BLOCK: có thể quét vùng hoặc chọn từng đối tượng.
8. Nhấn Enter: kết thúc tập chọn.
9. Chọn nơi lưu CSV: đặt tên tệp và nhấn Save.
10. Mở CSV: nhập vào Excel và đối chiếu vài điểm.

Nếu routine chỉ cần dùng trong một phiên làm việc, APPLOAD là đủ. Nếu muốn tự động nạp mỗi khi mở bản vẽ, có thể sử dụng Startup Suite hoặc file acad.lsp, acaddoc.lsp phù hợp. Việc tự động nạp nên do quản trị CAD kiểm soát để tránh chạy mã không mong muốn.

Kiểm tra hệ tọa độ trước khi xuất

Đây là bước quan trọng nhất trong công việc trắc địa. AutoCAD chỉ xuất các con số đang có trong bản vẽ; phần mềm không tự biết chúng là VN-2000, WGS84, UTM hay hệ tọa độ giả định.

Mã mẫu xuất tọa độ WCS. Nếu người dùng đang nhìn tọa độ theo UCS đã xoay, giá trị trong bảng có thể khác số hiển thị theo UCS. Sự khác nhau này không đồng nghĩa routine bị sai.

Đổi tên cột X thành Northing hoặc Y thành Easting không phải là chuyển hệ tọa độ. Việc chuyển UTM sang VN-2000 cần tham số datum, múi chiếu, kinh tuyến trục và phép biến đổi phù hợp. Có thể tham khảo thêm quy trình chuyển hệ tọa độ UTM sang VN-2000.

“Xuất đúng các con số đang có trong CAD chưa chắc đã tạo ra bảng tọa độ đúng. Kỹ sư phải chứng minh được các con số thuộc hệ nào, lấy từ đối tượng nào và có khớp với điểm kiểm tra ngoài thực địa hay không.”

Kỹ sư Phan Việt Tuyên

Cách nhập CSV vào Excel không bị dồn một cột

Máy tính tại Việt Nam có thể dùng dấu phẩy làm ký hiệu thập phân và dấu chấm phẩy làm dấu phân cách danh sách. Vì vậy, khi nhấp đúp tệp CSV, toàn bộ dữ liệu có thể dồn vào một cột.

1. Mở Excel mới: không nhấp đúp CSV.
2. Chọn Data: vào Get Data hoặc From Text/CSV.
3. Chọn tệp: tìm file CSV vừa xuất.
4. Chọn encoding: UTF-8 nếu tệp có tiếng Việt.
5. Chọn delimiter: Comma.
6. Kiểm tra decimal: bảo đảm dấu chấm trong X, Y, Z được hiểu là thập phân.
7. Định dạng POINT_ID: chọn Text nếu mã điểm có số 0 ở đầu.
8. Load: nhập bảng vào worksheet.
9. Lưu XLSX: giữ lại CSV gốc để đối chiếu.

Nếu quy trình nội bộ bắt buộc dùng dấu chấm phẩy, có thể sửa routine để thay dấu phân cách. Không nên dùng Find & Replace trên toàn tệp vì thao tác đó có thể làm thay đổi dấu thập phân.

Xuất mã điểm trong thuộc tính block

Nhiều bản vẽ trắc địa dùng block điểm có các attribute như POINT_NO, ELEVATION và DESCRIPTION. Mã mẫu chỉ lấy tên block, vì không thể biết trước tag thuộc tính của từng doanh nghiệp.

Để xuất đúng thuộc tính, cần:

• Xác định tên block điểm.
• Mở Block Editor hoặc Properties để xem tag attribute.
• Quy định tag nào là số hiệu điểm.
• Quy định tag nào là cao độ và mô tả.
• Xử lý block không có thuộc tính hoặc thuộc tính trống.
• Kiểm tra dynamic block và anonymous block.
• Xác định tọa độ lấy từ điểm chèn hay một điểm hình học khác.
• Thử trên vài block trước khi xuất toàn bộ.

DATAEXTRACTION thường là cách nhanh hơn nếu chỉ cần lấy sẵn thuộc tính block. AutoLISP phù hợp khi cần chuẩn hóa tên cột, sắp xếp, lọc layer hoặc xử lý quy tắc riêng.

Xuất tọa độ các đỉnh polyline

Polyline không phải một điểm đơn. Mỗi đường có nhiều vertex, có thể là polyline 2D, 3D, có cung tròn hoặc elevation riêng. Routine POINT/BLOCK không xử lý trường hợp này.

Một chương trình xuất vertex cần xác định:

Không nên biến mọi vertex thành “mốc ranh” khi chưa đối chiếu hồ sơ. Polyline có thể chỉ là đường trình bày hoặc đã bị làm trơn, offset và chỉnh sửa sau đo.

Lỗi thường gặp khi xuất tọa độ từ CAD

• Xuất nhầm TEXT: điểm chèn chữ không phải vị trí điểm đo.
• Nhầm UCS với WCS: bảng khác số đang thấy trên màn hình.
• Đổi tên cột thành VN-2000: không thực hiện phép chuyển hệ thật.
• Block có base point sai: tọa độ điểm chèn lệch ký hiệu hiển thị.
• Đơn vị bản vẽ là mm: số xuất lớn gấp 1.000 lần giá trị mét.
• Z luôn bằng 0: bản vẽ 2D không chứa cao độ thật.
• Mã điểm bị mất số 0 đầu: Excel tự chuyển sang kiểu Number.
• CSV dồn một cột: delimiter không phù hợp thiết lập vùng.
• Routine không đóng file: dữ liệu chưa được ghi đầy đủ.
• Nạp VLX lạ: không kiểm tra mã hoặc nguồn phát hành.
• Tắt SECURELOAD: làm giảm bảo mật toàn bộ AutoCAD.
• Không kiểm tra điểm mẫu: xuất hàng nghìn dòng nhưng sai hệ hoặc sai đối tượng.
• Chọn điểm trùng: bảng có nhiều dòng cùng tọa độ.
• Rounding quá sớm: mất độ chính xác trước khi tính toán.

Checklist kiểm tra bảng tọa độ

• Số dòng bằng số đối tượng đã chọn.
• Không có dòng trống hoặc tọa độ bằng nil.
• STT và POINT_ID không bị trùng ngoài dự kiến.
• X, Y, Z có đúng số chữ số thập phân.
• Thứ tự X–Y hoặc E–N đúng quy ước dự án.
• Đơn vị đã được ghi trong tiêu đề hoặc thuyết minh.
• Hệ tọa độ được mô tả rõ.
• Tọa độ vài điểm khớp lệnh ID hoặc Properties.
• Điểm khống chế khớp hồ sơ nguồn.
• Layer và loại đối tượng đúng tập dữ liệu.
• CSV gốc được lưu riêng, không ghi đè.
• Phiên bản DWG và routine được ghi nhận.

Người dùng làm việc với UCS đã xoay có thể tham khảo cách xoay trục tọa độ trong CAD để hiểu sự khác nhau giữa hệ hiển thị và hệ tọa độ thế giới.

Khi nào nên thuê đơn vị xử lý dữ liệu?

AutoLISP mẫu phù hợp tác vụ phổ thông. Dự án nên có kỹ sư kiểm tra khi dữ liệu liên quan đến hồ sơ pháp lý, cắm mốc, khối lượng thi công hoặc bàn giao cho cơ quan quản lý.

• Bản vẽ không rõ hệ tọa độ.
• Dữ liệu được ghép từ nhiều nguồn.
• Điểm nằm trong block có attribute phức tạp.
• Cần chuyển VN-2000, UTM hoặc hệ cục bộ.
• Polyline có cung và cần xuất theo lý trình.
• Cần kiểm tra topology và diện tích thửa.
• Cần xuất hàng loạt nhiều bản vẽ.
• Kết quả dùng để cắm mốc hoặc thi công.
• Cần truy vết dữ liệu từ hiện trường đến bảng bàn giao.

Khách hàng cần kiểm tra thực địa có thể tham khảo dịch vụ đo đạc đất đai và xử lý bản vẽ.

Câu hỏi thường gặp

Liên hệ xử lý tọa độ và bản vẽ CAD

Đo Vẽ Nhanh hỗ trợ kiểm tra hệ tọa độ, chuyển đổi dữ liệu, xuất bảng điểm, xử lý block, polyline, bản vẽ hiện trạng và đối chiếu số liệu với kết quả đo thực địa. Phạm vi và định dạng bàn giao được xác định trước khi thực hiện.

Kết luận

Xuất tọa độ từ CAD sang Excel có thể thực hiện bằng DATAEXTRACTION hoặc AutoLISP. DATAEXTRACTION phù hợp người dùng không muốn lập trình; AutoLISP phù hợp công việc lặp lại và cần cấu trúc dữ liệu riêng.

Đối với AutoCAD 2026, người dùng nên nạp routine bằng APPLOAD từ Trusted Locations và giữ SECURELOAD hoạt động. Routine tự ghi CSV an toàn, dễ chia sẻ hơn phương án điều khiển Excel bằng ActiveX.

Trước khi sử dụng bảng tọa độ cho đo đạc, thi công hoặc cắm mốc, phải kiểm tra WCS, UCS, hệ quy chiếu, đơn vị, thứ tự cột và điểm khống chế. Đừng đánh đồng việc xuất thành công với việc dữ liệu đã đúng pháp lý hoặc đúng ngoài thực địa.

Liên hệ Đo Vẽ Nhanh qua hotline 0907 621 115 khi cần hỗ trợ xử lý tọa độ, chuyển hệ, kiểm tra bản vẽ hoặc đo đạc hiện trường.

Tài liệu tham khảo

1. Autodesk. (2026). AutoCAD 2026 Help: Loading AutoLISP applications, APPLOAD and secure mode.
2. Autodesk. (2026). AutoCAD 2026 Help: DATAEXTRACTION command and external data output.
3. Autodesk. (2026). AutoLISP Reference: open, write-line and close file functions.