Nhờ sửa lỗi code VBA

[ngoctanvt 0]

Xin chào mọi người. Mình đang làm một ứng dụng vẽ kích thước nhanh trong không gian 3D, và mình đang có một số vướng mắc. Rất mong nhận được sự giúp đỡ từ diễn đàn. Xin cảm ơn.

Các bạn xem bản vẽ ban đầu, bản vẽ kết quả và code VBA mình gửi kèm bên dưới.

Ứng dụng của mình thực hiện theo các bước:

1.    Chọn 3 điểm P1,P2,P3 trên màn hình

3 điểm này sẽ phục vụ cho việc tạo UCS mới, lần lượt là gốc tọa độ, điểm trên trục X và điểm trên trục Y

2.    Nhập khoảng cách giữa các kích thước, mặc định là 200mm.

3.    Chọn đường cong phía trên (đường cong này có thể là Line, Arc, Polyline, 2DPolyline, 3D Polyline, Spline…).

 

Các bước tính toán để ra kết quả:

1.    Tạo UCS mới theo 3 điểm P1, P2, P3 ở trên

2.    Tạo 1 3DPolyline vuông góc với đoạn P1P2 có chiều dài bằng P1P2, điểm đầu của polyline nằm trên đoạn P1P2

3.    Tìm giao điểm của 3DPolyline vừa tạo và đường cong đã chọn

4.    Gán điểm cuối của 3DPolyline là giao điểm vừa tìm được

5.    Vẽ kích thước, 2 điểm đầu và cuối của kích thước chính là 2 điểm đầu và cuối của 3DPolyline. Điểm chèn Text của kích thước là trung điểm của 3DPolyline.

6.    Tiến hành tương tự đến hết chiều dài đoạn P1P2 với khoảng cách giữa các kích thước mặc định là 200mm.

 

Hiện tại chương trình của mình đang gặp một số lỗi:

1.    Điểm đầu và cuối của kích thước được tạo ra đã đúng yêu cầu nhưng điểm đặt của Text ghi kích thước thì chưa đúng. Mình không hiểu tại sao điểm đặt Text này luôn nằm trên mặt phẳng XY của WCS

2.    Chương trình chỉ hoạt động được nếu đường cong phía trên là 1 đường duy nhất. Nếu thay đường cong phía trên bằng 2 hay nhiều đoạn cong nối tiếp nhau thì sẽ xảy ra lỗi.

Ketqua.dwg

Test.dwg

Test.rar

[phuong44e1 2]

Nhờ mọi người fix giúp mình lỗi này,

Tool của mình chạy trong cad 2010-64 bit thì ok nhưng chạy sang cad 2015-64 bit nó lại báo lỗi này

Cảm ơn cả nhà trước nha.

[CadExTools 100]

Sửa 2 dòng màu đó báo bên trên bằng cách thêm vào từ khóa

Declare PtrSafe Function