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

VBA vẽ hình tròn trong AutoCad3D

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

Chào cả nhà,

 

Mình hiện nay có 1 bài toán "Vẽ tự động hình tròn trong không gian 3D bằng AutoCad" muốn tham khảo ý kiến của các bạn

 

Như các bạn đã biết thì 1 hình tròn trong không gian đuợc xác định bởi tâm C, bán kính R và vector pháp tuyến n(nx,ny,nz) gồm 3 thành phần (nx**2+ny**2+nz**2=1.0). Như vậy một hình tròn sẽ hoàn toàn được xác định trong không gian 3D nếu chúng ta biết được 6 thông số: 3 thông số toạ độ của tâm C(Xc,Yc,Zc), bán kính R và 2 trong 3 thành phần của vector pháp tuyến.

 

Giả sử mình có 1 files text (*.txt) chứa thông số của N hình tròn như sau:

----------------------------------------------

1 Xc1 Yc1 Zc1 R1 n1 n2 n3

....

N XcN YcN ZcN RN nN nN nN

----------------------------------------------

Bây giờ mình muốn vẽ tự động các hình tròn này trong không gian Cad. Mình hiện nay chưa biết một chút nào về VBA cho Cad và Autolisp, nhưng theo mình nghĩ thì VBA và Autolisp đều có thể làm được việc này.

 

Nhờ mọi người tư vấn giúp mình là mình nên sử dụng chương trình nào VBA hay Autolisp thì sẽ tiện lợi hơn? Thực ra đây chỉ là bước đầu của một bài toán lớn, còn rất nhiều câu hỏi ở phía sau hy vọng mình sẽ nhận được sự giúp đỡ của mọi người để có thể hoàn thành được bài toán này.

 

Cám ơn mọi người và chúc tất cả có một giáng sinh vui vẻ

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

Bạn có thể tạo ra đường tròn trước

 

Dim center(2) as double

center(0) = 0

center(1) = 1

 

Dim vecto_phap_tuyen(2) as double

vecto_phap_tuyen(0) = 0

vecto_phap_tuyen(1) = 1

vecto_phap_tuyen(2) = 1

 

Dim cricle_obj as AcadCircle

set circle = ThisDrawing.ModelSpace.AddCircle(center, 4)

 

'Sau đó đặt vecto pháp tuyến cho nó

cricle.Normal = vecto_phap_tuyen

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  

×