Dùng VBA trong Excel để vẽ cung tròn trong cad

[tranvanhung2009 0]

Mình có 1 file excel. Trong đó có bảng tọa độ điểm đầu, điểm cuối

Mọi người giúp đỡ mình viết 1 đoạn VBA trong excell để vẽ 1 cung tròn khi có tọa độ điểm đầu và tọa độ điểm cuối, và cung tròn đó tiếp tuyến tại tọa độ điểm đầu.

Chân thành cám ơn mọi người

Ve cung tron tu excell.rar

[CadExTools 102]

Chưa hiểu chỗ Tiếp Tuyến tại điểm đầu là sao

[tranvanhung2009 0]

Có nghia là vẽ cung tròn đi qua 2 điểm A và B. cung tròn này tiếp tuyến tại điểm A.

Trong Autocad có lệnh vẽ này, nhưng trên VBA thì mình không biết nên hay vẽ thủ công/

[CadExTools 102]

Như vậy thì Tiếp tuyến của bạn luôn Vuông góc với trục X uh?

 

[tranvanhung2009 0]

đúng rồi bác ạ

[CadExTools 102]

2 giờ trước, tranvanhung2009 đã nói:

đúng rồi bác ạ

Em đưa ra ý kiến bác xem thử nhé

1. Từ 2 điểm Spoint và Epoint -> Chiều dài đoạn thẳng L0 và góc  -> Tìm trung điểm M đoạn thẳng đó.

2. Sau khi có trung điểm M ta vẽ đường thẳng L1 vuông với đường thẳng L0.

3. Từ điểm SPoint ta vẽ đường thẳng L2 vuông góc trục Y

==> Từ L1 và L2 ta lấy dc giao điểm 2 đường thẳng này, cũng chính là tâm Cung Tròn.

4. Từ tâm cung tròn ứng với Spoint và EPoint ta có góc Angle_S và Angle_E -> Vẽ được Cung Tròn

[monavamonava 15]

Cái này hơi khó. Em cũng cần hướng giải quyết. Ngày trước em có thử mà cung tròn là nghiệm của phương trình lượng giác (có 2 nghiệm). Hóng các cao nhân chỉ giúp.

[Doan Van Ha 3.201]

Nếu điểm đầu (A) và điểm cuối (B) khác nhau thì:

- Nếu AB vuông góc trục X: bài toán vô nghiệm.

- Còn lại: bài toán luôn có 2 nghiệm.

Cách xác định cũng dễ thôi.

 

Vẽ Arc.dwg

[ngokiet 169]

54 phút trước, Doan Van Ha đã nói:

Nếu điểm đầu (A) và điểm cuối (B) khác nhau thì:

- Nếu AB vuông góc trục X: bài toán vô nghiệm.

- Còn lại: bài toán luôn có 2 nghiệm.

Cách xác định cũng dễ thôi.

 

Vẽ Arc.dwg

Chỉ có nghiệm màu vàng là đúng thôi. Vấn đề là xét làm sao đúng startangle/endangle.

Muốn xác định đúng hướng thì do Arc luôn ngược chiều kim đồng hồ nên xét góc giữa Direction và Góc AB để kiểm tra hướng.

 

Nếu viết lisp thì cứ sài command luôn cho dễ.

[Doan Van Ha 3.201]

5 phút trước, ngokiet đã nói:

Chỉ có nghiệm màu vàng là đúng thôi. Vấn đề là xét làm sao đúng startangle/endangle.

Muốn xác định đúng hướng thì do Arc luôn ngược chiều kim đồng hồ nên xét góc giữa Direction và Góc AB để kiểm tra hướng.

 

Nếu viết lisp thì cứ sài command luôn cho dễ.

Màu vàng: vì không tin chủ topic diễn tả đúng start và end theo kiểu vẽ arc nên nói thế cho chắc.

[tranvanhung2009 0]

Màu vàng chuẩn luôn, góc vuông góc với ox là bằng 90 độ.

Mình có file excell.

Nếu viết được VBA thì  công việc vẽ cung tròn sẽ nhanh mà chính xác.

Hiện tại thì luôn vẽ bằng thủ công.

[tranvanhung2009 0]

13 giờ trước, ngokiet đã nói:

Chỉ có nghiệm màu vàng là đúng thôi. Vấn đề là xét làm sao đúng startangle/endangle.

Muốn xác định đúng hướng thì do Arc luôn ngược chiều kim đồng hồ nên xét góc giữa Direction và Góc AB để kiểm tra hướng.

 

Nếu viết lisp thì cứ sài command luôn cho dễ.

mình có tọa độ file excell rồi, muốn chuyển qua VBA để vẽ cho nhanh bạn ạ

[CadExTools 102]

5 giờ trước, tranvanhung2009 đã nói:

Màu vàng chuẩn luôn, góc vuông góc với ox là bằng 90 độ.

Mình có file excell.

Nếu viết được VBA thì  công việc vẽ cung tròn sẽ nhanh mà chính xác.

Hiện tại thì luôn vẽ bằng thủ công.

Bác thử cái cách mình gợi ý bên trên coi được không?

 

[hanh.phuc 5]

This is not valid
Set acadArc = acadDoc.ModelSpace.AddArc (Diem_dau, Diem_cuoi, 90)

You need to calculate Center Radius
Set acadArc = acadDoc.ModelSpace.AddArc ( Center, Radius, StartAngle, EndAngle )

or 

to create a line (Lwpolyline) with Diem_dau Diem_cuoi

plineObj.SetBulge 0, 0.5 '0.5 la bulge
plineObj.Update value

p / s: Using LISP is easier

http://www.lee-mac.com/bulgeconversion.html