yêu cầu viết lisp rải tọa độ từ text vào CAD

[xethoigian85 1]

Chào anh em tui sưu tầm đc 2 cái lisp này dùng để import tọa độ và cao độ từ file text vào cad. Cái tôi cần là cao độ sau khi import là lấy đúng 3 số lẻ, nhưng đối với lisp RFT thì các số chẵn như 3 thì nó vẫn là 3 chứ ko phải là 3.000 theo ý muốn, do đó phải layiso nó 1 lần nữa rồi dùng lệnh LTT để chỉnh lại phần lẻ này theo ý muốn. Tôi loay hoay mãi ko cách nào ghép 2 lisp này thành 1. Nhờ ae giúp đỡ nhé. 

RFT-chuyen toa do text vao cad.lsp

LTT.lsp

[Hoanghung97 10]

24 phút trước, xethoigian85 đã nói:

Chào anh em tui sưu tầm đc 2 cái lisp này dùng để import tọa độ và cao độ từ file text vào cad. Cái tôi cần là cao độ sau khi import là lấy đúng 3 số lẻ, nhưng đối với lisp RFT thì các số chẵn như 3 thì nó vẫn là 3 chứ ko phải là 3.000 theo ý muốn, do đó phải layiso nó 1 lần nữa rồi dùng lệnh LTT để chỉnh lại phần lẻ này theo ý muốn. Tôi loay hoay mãi ko cách nào ghép 2 lisp này thành 1. Nhờ ae giúp đỡ nhé. 

RFT-chuyen toa do text vao cad.lsp

LTT.lsp

RFT.lsp

Mặc định lấy theo UNITS, Muốn lấy sau dấu phẩy bao nhiêu thì thiết lập trong UNITS

[xethoigian85 1]

tôi đã thử nhưng ko đc, file test.txt là ví dụ. Nó xuất ra ko có phần lẻ, mặc dù đã chỉnh UNITS lấy 4 số lẻ

test.txt

[Doan Van Ha 3202]

Soft đã set 3 số lẻ (thể hiện bằng số 3 trong lisp). Nếu chưa được thì bạn thử dùng lệnh DIMZIN, nếu nó khác 0 thì nhập 0 rồi chạy lisp.

[xethoigian85 1]

Cảm ơn anh nhé, lỗi do biến Dimzin, vậy là khắc phục được rồi