Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
conghoangxd037

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

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

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.

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

 

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.

 

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
  • Vote tăng 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

 

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!

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

Đăng nhập để thực hiện theo  

×