Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
2 replies to this topic

#1 conghoangxd037

conghoangxd037

    biết vẽ line

  • Members
  • PipPip
  • 22 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 11 August 2013 - 05:06 PM

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

Bản vẽ: http://www.mediafire...5l/Giaodiem.dvb

Code vba: http://www.mediafire...dw/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.


  • 0

#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 11 August 2013 - 06:15 PM

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

Bản vẽ: http://www.mediafire...5l/Giaodiem.dvb

Code vba: http://www.mediafire...dw/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

  • 2

#3 dinhvantrang

dinhvantrang

    biết lệnh copy

  • Members
  • PipPipPip
  • 117 Bài viết
Điểm đánh giá: 26 (tàm tạm)

Đã gửi 13 August 2013 - 08:56 AM

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!


  • 0

Thanks and Best Regards

Skype : dinhvantrang73