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

[NGUYENVANHIEUGTVT 7]

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

 

Xac dinh toa do cac diem trong Acad.rar

[CadExTools 96]

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

 

[NGUYENVANHIEUGTVT 7]

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ới

[CadExTools 96]

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é.

 

[NGUYENVANHIEUGTVT 7]

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 

[CadExTools 96]

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

[NGUYENVANHIEUGTVT 7]

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 ..

[NGUYENVANHIEUGTVT 7]

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 .. 

Xac dinh toa do cac diem trong Acad.rar

[CadExTools 96]

Add Zalo mình giúp: 0986370918