[Yêu Cầu] Nhờ Chỉnh Lại Lisp Trích Toạ Độ

[lvchien.xd 1]

Mình tìm được lisp của một bác xuất tọa độ ra màn hình nhìn rất ok nhưng bị sai giá trị trục X chuyển thành giá trị trục Y và ngược lại. Mình không biết gì về lisp nên nhờ bác nào biết chỉnh về giùm mình đúng giá trị X và Y. ( nếu có thể chỉnh thêm chiều cao chữ nữa thì tuyệt vời). 

P/S: trong hình là tọa độ trích ra từ Lisp và tọa độ trích ra từ lệnh "DOR"

Xin cảm ơn các bác!.

.

Lisp đính kèm

http://www.cadviet.com/upfiles/7/118762_lisp_lay_toa_do_2.rar

[Danh Cong 422]

Lisp được gói trong file .VLX nên việc sửa lisp là bất khả thi bạn ạ :(

Còn tọa độ như bạn thắc mắc thì chắc người viết là dần cầu đường như mình đây.

Trong bản vẽ cầu đường thì trục tọa độ X trong cad là trục Y ngoài đời, và ngược lại.

[cuongtk2 345]

Tọa độ đó là tọa độ địa chính theo VN2000 được quy đổi từ kinh độ và vĩ độ, X từ kinh độ; Y từ vĩ độ. 1 unit = 1 mét. Bản vẽ của bạn không dùng tọa độ địa chính nên dùng lệnh đó không có ý nghĩa gì. Bạn nên dùng lệnh ID để lấy tọa độ rồi dán vào X,Y cho trường hợp định vị của bạn.

[lvchien.xd 1]

Lisp được gói trong file .VLX nên việc sửa lisp là bất khả thi bạn ạ :(

Còn tọa độ như bạn thắc mắc thì chắc người viết là dần cầu đường như mình đây.

Trong bản vẽ cầu đường thì trục tọa độ X trong cad là trục Y ngoài đời, và ngược lại.

Đúng là lisp này mình lấy bên diễn đàn cầu đường. Ok bác, chúc bác sức khỏe

[lvchien.xd 1]

Tọa độ đó là tọa độ địa chính theo VN2000 được quy đổi từ kinh độ và vĩ độ, X từ kinh độ; Y từ vĩ độ. 1 unit = 1 mét. Bản vẽ của bạn không dùng tọa độ địa chính nên dùng lệnh đó không có ý nghĩa gì. Bạn nên dùng lệnh ID để lấy tọa độ rồi dán vào X,Y cho trường hợp định vị của bạn.

Thanks bạn. Mình cũng tìm được mấy lisp xuất tọa độ theo trục x,y trong cad nhưng nó không được ưng ý như lisp này. chứ  lấy bình thường chắc lệnh "DOR" cũng ổn rồi b nhỉ

[quocmanh04tt 635]

Thanks bạn. Mình cũng tìm được mấy lisp xuất tọa độ theo trục x,y trong cad nhưng nó không được ưng ý như lisp này. chứ  lấy bình thường chắc lệnh "DOR" cũng ổn rồi b nhỉ

Nếu đã ưng ý thì cứ dùng!

Mình hỗ trợ thêm:

- Bạn có thể chỉnh sửa Block "VTD_TD", theo ý mình (Hệ đơn vị, về chiều cao chữ ...)

- Dùng lisp trên (tất nhiên sẽ ra kết quả theo hệ tọa độ VN-2000).

- Sau khi đã chèn được các block, dùng lisp kèm theo của mình ở dưới (Lệnh ATD: tất cả Block sẽ chuyển sang hệ tọa độ của CAD. Lệnh VTD sẽ chuyển về VN-2000)

 

*** Trong file đính kèm, có Block mình đã sửa, nếu không phù hợp với bạn, thì có thể điều chỉnh tiếp. Bạn chỉ cần thay thế Block cũ thành block mới này. Link: http://www.cadviet.com/upfiles/7/141736_atdvtd.rar

 

P/s: Có thêm lệnh TSC-COORDINATE để toggle qua lại giữa 2 hệ tọa độ (cho vui thôi...!)