Chuyển đến nội dung
Diễn đàn CADViet
NGUYENVANHIEUGTVT

Nhờ mọi người sửa dùm cho lỗi pick tọa độ điểm trong cad bằng lập trình VBA

Các bài được khuyến nghị

Mình có bản lập trình xuất tọa độ Cad sang Excel và xuất trực tiếp sang Cad bằng chương trình VBA. Trong đó chức năng Excel thì bị như lỗi trên ảnh còn trực tiếp sang cad thì vẫn bình thường. Mọi người có biết thì xử lý dùm mình với ạ !, mình đính kèm file VBA bên dưới mong mọi người trên diễn đàn biết và giúp đỡ ạ, mình dùng Autocad 2020 và Excel 2010

 

image.thumb.png.3fa5b43adf1a92d59694d12feb211c37.png

Xac dinh toa do cac diem trong Acad.rar

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Trả lời bạn:

1. Đôi tượng Excel nếu bạn dùng liên kết sớm thì code trên ko sao cả.

2. Code của bạn đang dùng Liên Kết Muộn (Đối tượng ExcelObj đang khai báo dạng Object) nên nó sẽ không hiểu các giá trị xlCenter này.

Nên bạn tham khảo link sau để sửa nhé.

https://docs.microsoft.com/en-us/dotnet/api/microsoft.office.interop.excel.constants?view=excel-pia

 

Cụ thể bạn khai báo như sau:

Const xlCenter as Long = -4108

 

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
1 giờ trước, CadExTools đã nói:

Trả lời bạn:

1. Đôi tượng Excel nếu bạn dùng liên kết sớm thì code trên ko sao cả.

2. Code của bạn đang dùng Liên Kết Muộn (Đối tượng ExcelObj đang khai báo dạng Object) nên nó sẽ không hiểu các giá trị xlCenter này.

Nên bạn tham khảo link sau để sửa nhé.

https://docs.microsoft.com/en-us/dotnet/api/microsoft.office.interop.excel.constants?view=excel-pia

 

Cụ thể bạn khai báo như sau:

Const xlCenter as Long = -4108

 

Em sửa theo Bác đến chỗ này lại bị lỗi Code như sau ạ ! Bác hướng dẫn dùm e chút nữa vớiimage.thumb.png.e06e109486d9877c10fe819e3ff94785.png

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

bác sẽ phải thay thế hết các hằng số xl... bằng các giá trị CONST mà em gửi theo link đó nhé.

 

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
31 phút trước, CadExTools đã nói:

bác sẽ phải thay thế hết các hằng số xl... bằng các giá trị CONST mà em gửi theo link đó nhé.

 

Em tìm code giá trị xlContinuous và xlThin để khai báo mà k thấy có trên link Bác gửi ở trên, mà tìm mãi trên web cũng k thấy, Bác tham khảo dùm e với 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
7 phút trước, NGUYENVANHIEUGTVT đã nói:

Em tìm code giá trị xlContinuous và xlThin để khai báo mà k thấy có trên link Bác gửi ở trên, mà tìm mãi trên web cũng k thấy, Bác tham khảo dùm e với 

đây bác.

xlContinuous = 1

 

Full Code thì đây:

https://www.experts-exchange.com/viewCodeSnippet.jsp?codeSnippetId=20-37668660-2

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
3 phút trước, CadExTools đã nói:

đây bác.

xlContinuous = 1

 

Full Code thì đây:

https://www.experts-exchange.com/viewCodeSnippet.jsp?codeSnippetId=20-37668660-2

Em cảm ơn Bác đã giúp đỡ nhé . Chúc Bác ngày mới may mắn, tốt lành ..

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
30 phút trước, CadExTools đã nói:

đây bác.

xlContinuous = 1

 

Full Code thì đây:

https://www.experts-exchange.com/viewCodeSnippet.jsp?codeSnippetId=20-37668660-2

Bác có thể xem qua dùm e mã code VBA k ạ, em sửa mãi mà k sửa đc lỗi đấy, em hơi gà mờ về VBA nên Bác thông cảm .. 

image.png.7f8c290f5d9b53ea30e2222e2edf4478.pngimage.png.1ffbe0a51ac1186c5e059e60fbb588a0.png

Xac dinh toa do cac diem trong Acad.rar

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

×