CAd và Vba!Ghi tọa độ điểm trong Cad (1 người xem)

[aduc]

Cho mình hỏi có cách nào mà khi mình tích vào một điểm bất kì trong Cad sẽ tự động tạo ra một block có tọa độ của điểm đó không?
x=...
y= ...
z=...

 

[hienld]

Sử dụng phương thức GetPoint của đối tượng Utility để lấy tọa độ của điểm bạn click chuột. Điểm này có kiểu
Sau đó tạo Block thông qua tập đối tượng Blocks với các thông số tọa độ trên!
Bạn thử làm theo cách trên xem sao. Bạn nên xem lại mô hình đối tượng trong ACAD nhé!

 

[tulap]

Cho mình hỏi có cách nào mà khi mình tích vào một điểm bất kì trong Cad sẽ tự động tạo ra một block có tọa độ của điểm đó không?
x=...
y= ...
z=...

Bạn xem thu file nay xem

 

[Trojan]

Gửi bạn cái tọa lisp tọa độ này được viết bằng VBA. Bạn hãy copy cái bock đó vào tất cả các vị trí bạn muốn biết tọa độ, sau đó load file VBA kia và chạy nó bằng alt+f8 là ok. Chúc vui.

 

[hoangkhaiton]

No database

Khi minh chay no bao No database la sao ha ban?

 

[lsxinh]

Gửi bạn cái tọa lisp tọa độ này được viết bằng VBA. Bạn hãy copy cái bock đó vào tất cả các vị trí bạn muốn biết tọa độ, sau đó load file VBA kia và chạy nó bằng alt+f8 là ok. Chúc vui.

Tớ tải về rồi, Alt + F8, bấm run rồi làm gì nữa để chạy bác trojan ơi.

 

[namkhuestar]

hay quá! cám ơn mọi người

 

[hoangchungckct]

Minh vẫn chưa thể ghi tòa độ được, Các bác có thể chỉ rõ hơn được không, Mà cái file VBA là file nào vậy

Các bác ơi cho em biết làm thế nào để xác định tòa độ gốc cho nó được.

 

[kisixanh]

có ai biết làm thế nào để xác định trọng tâm của 1 hình bằng lệnh Cad không? mà không cần dùng đến công thức.Nếu có ai biết xin trả lời cho mình hoặc gửi wa mail mình là: do_dinh_thy@yahoo.com
Chân thành cám ơn và hi vọng được trau đổi cùng các bạn

 

[ThuValentino]

tuyệt quá :-X cảm ơn Trojan

 

[quocpchcm]

Bạn xem thu file nay xem

TULAP ơi, cái này dùng sao vậy?
Mình chưa tiếp xúc với cái này bao giờ.
Tulap làm ơn hướng dẫn giúp ha!
Cảm ơn nhiều lắm..!

 

[tulap]

TULAP ơi, cái này dùng sao vậy?
Mình chưa tiếp xúc với cái này bao giờ.
Tulap làm ơn hướng dẫn giúp ha!
Cảm ơn nhiều lắm..!

Xin lỗi nhé lâu quá không vào trabng nhà
Ban chép vào máy:
mở autocad vào tool -> load application browse đến file toadoxy.lsp chon load
ra autocad gõ lênh xy sẽ thấy ngay tác dụbng

 

[Trojan]

Tớ tải về rồi, Alt + F8, bấm run rồi làm gì nữa để chạy bác trojan ơi.

Chạy cái này thì mọi người copy cái block trong file đính kèm vào vị trí trong file của mình định xác định toạ độ. Dùng lệnh ap để load file project, sau đó bấm alt+F8 rồi run là xong. Khi đó các vị trí cần xác định toạ độ sẽ gán đúng toạ độ x, y vào block. Không làm được thì pm tôi qua YM nhé.

 

[lethanhtinhlxag]

Hướng dẫn kỹ hơn dùm chút đi ban

Gửi bạn cái tọa lisp tọa độ này được viết bằng VBA. Bạn hãy copy cái bock đó vào tất cả các vị trí bạn muốn biết tọa độ, sau đó load file VBA kia và chạy nó bằng alt+f8 là ok. Chúc vui.[/QUOTE
BẠN CÓ THỂ HƯỚNG DẪN KỸ HƠN CHÚT ĐƯỢC KHÔNG, SAO MÌNH LÀM KHÔNG ĐƯỢC BẠN ƠI. GIÚP DÙM MINH NHA. THANKS
MÌNH KHÔNG THẤY CÁI BLOCK ĐÍNH KÈM NÀO ĐÂU.

 

[khachchinhphu]

hỏi lệnh tắt trong lis toạ độ

bác cho mình hỏi lệnh tắt trong lis toạ độ của bác là gì vậy?

 

[Trojan]

Tôi đã hướng dẫn như ở trên rồi. Đơn giản chỉ có vậy, nếu ai vẫn không làm được và có nhu cầu dùng thì pm tôi quan YM: excel2050 nhé.

 

[Eleco]

K/g bạn Trojan: lisp của bạn rất hay, cám ơn bạn. Mình có vấn đề này mong bạn giúp đỡ: lisp này chỉ nhập được tọa độ theo hệ trục wold OXY, mình hay làm bản vẽ Tổng mặt bằng có lập thêm hệ trục tọa độ giả định OAB bất kỳ thì lisp không định vị được theo gốc tọa độ mới. Bạn viết giúp mình lisp đánh tọa độ theo hệ trục tọa độ bất kỳ nhé. Thanks! (loveofkts_2003@yahoo.com)

 

[dinhtiensy]

Bạn mở file coordinate.Dwg đính kèm đó sau đó copy cái block có trong hình vẽ đó dán vào các điểm bạn cần biết tọa độ

 

[leviethungtoht]

Gửi bạn cái tọa lisp tọa độ này được viết bằng VBA. Bạn hãy copy cái bock đó vào tất cả các vị trí bạn muốn biết tọa độ, sau đó load file VBA kia và chạy nó bằng alt+f8 là ok. Chúc vui.

Mình xin phép hướng dẫn kỹ hơn cho các bạn khác vì mình cũng mò mẫm mãi mới thực hiện được:
01. Cài đặt VBA autocad enable tùy theo các phiên bản: autocad_2020_acvbainstaller_win_64bit_dlm.sfx.exe
02. Load file VBA: lệnh tắt AP
03. Copy Block tới những vị trí muốn lấy tọa độ
04. Chạy Macro VBA update tọa độ: Lệnh gọi bảng chạy Macro: Alt + F8 hoặc vào: Tools/Macro/Macros → Chọn Macro → Run