Tìm giao điểm hai đường thẳng bằng code vba không được

[conghoangxd037 0]

Em có 2 file gồm bản vẽ và code vba:

Bản vẽ: http://www.mediafire.com/download/bfbmcllqo6lqi5l/Giaodiem.dvb

Code vba: http://www.mediafire.com/download/9279r3wv8yfmydw/giaodiem.dwg

Trong bản vẽ có 2 khung màu đỏ và màu xanh. trong mỗi khung có 2 đường thằng và em dùng code vba để tìm giao điểm của hai đường thằng trong mỗi khung, đối với khung màu xanh thì được còn khung màu đỏ thì báo lỗi. Em không biết bị lỗi gì về code không hay là do 2 đường thằng trong khung màu đỏ có vấn đề gì mà tìm không được giao điểm. Mong mấy anh chị chỉ giúp.

[Tue_NV 3.912]

 

Em có 2 file gồm bản vẽ và code vba:

Bản vẽ: http://www.mediafire.com/download/bfbmcllqo6lqi5l/Giaodiem.dvb

Code vba: http://www.mediafire.com/download/9279r3wv8yfmydw/giaodiem.dwg

Trong bản vẽ có 2 khung màu đỏ và màu xanh. trong mỗi khung có 2 đường thằng và em dùng code vba để tìm giao điểm của hai đường thằng trong mỗi khung, đối với khung màu xanh thì được còn khung màu đỏ thì báo lỗi. Em không biết bị lỗi gì về code không hay là do 2 đường thằng trong khung màu đỏ có vấn đề gì mà tìm không được giao điểm. Mong mấy anh chị chỉ giúp.

Similar topics from web:

Copy dữ liệu theo cột

Nội Suy Trong Ecxel, Và Autocad Bằng Vba [Lưu Trữ]

Trang chủ

Thực hành lập trình VBA trong AutoCAD

Các câu hỏi về mảng trong VBA (Array)

VBA trong Autocad [Lưu Trữ]

Tìm giao điểm giữa đường cong và đường thẳng [Lưu Trữ]

Pascal (ngôn ngữ lập trình) – Wikipedia tiếng Việt

C thăng – Wikipedia tiếng Việt

Office VBA, mỗi ngày một ví dụ.... [Archive]

HTML – Wikipedia tiếng Việt

Toàn tập các vấn đề về Unicode trong VB6

Lập trình hướng đối tượng – Wikipedia tiếng Việt

Sử dụng VBA trong AutoCad để liên kết với Excel [Lưu Trữ]

 

Do sự không đồng phẳng nên 2 đoạn thẳng đó chéo nhau => không tìm được giao điểm

Để hiểu rõ bạn gõ lệnh UNITS -> thiết lập số chữ số thập phân là 0.000000000 (9 chữ số 0)

Gõ lệnh ID tìm toạ độ của điểm đầu cuối của đoạn thẳng sẽ biết liền 

 

Command: ID Specify point:  X = -2.2212500E+04     Y = 45821.50000000     Z = 0.00000000

 

Command:  ID Specify point:  X = -2.4684000E+04     Y = 45821.50000000     Z = 0.00000000

 

Command:  ID Specify point:  X = -2.5299890E+04     Y = 39411.33642702     Z = 0.00000000

 

Command:  ID Specify point:  X = -2.5299890E+04     Y = 46361.33642702     Z = 0.00000465

Command: ID Specify point:  X = -2.2212500E+04     Y = 45821.50000000     Z = 0.00000000

 

Command:  ID

Specify point:  X = -2.4684000E+04     Y = 45821.50000000     Z = 0.00000000

 

Command:  ID

Specify point:  X = -2.5299890E+04     Y = 39411.33642702     Z = 0.00000000

 

Command:  ID

Specify point:  X = -2.5299890E+04     Y = 46361.33642702     Z = 0.00000465

[dinhvantrang 151]

 

Do sự không đồng phẳng nên 2 đoạn thẳng đó chéo nhau => không tìm được giao điểm

Để hiểu rõ bạn gõ lệnh UNITS -> thiết lập số chữ số thập phân là 0.000000000 (9 chữ số 0)

Gõ lệnh ID tìm toạ độ của điểm đầu cuối của đoạn thẳng sẽ biết liền 

 

Command: ID Specify point:  X = -2.2212500E+04     Y = 45821.50000000     Z = 0.00000000

 

Command:  ID Specify point:  X = -2.4684000E+04     Y = 45821.50000000     Z = 0.00000000

 

Command:  ID Specify point:  X = -2.5299890E+04     Y = 39411.33642702     Z = 0.00000000

 

Command:  ID Specify point:  X = -2.5299890E+04     Y = 46361.33642702     Z = 0.00000465

Command: ID Specify point:  X = -2.2212500E+04     Y = 45821.50000000     Z = 0.00000000

 

Command:  ID

Specify point:  X = -2.4684000E+04     Y = 45821.50000000     Z = 0.00000000

 

Command:  ID

Specify point:  X = -2.5299890E+04     Y = 39411.33642702     Z = 0.00000000

 

Command:  ID

Specify point:  X = -2.5299890E+04     Y = 46361.33642702     Z = 0.00000465

Quá chuẩn cho đội Lê Duẩn!