<Cần giúp VBA> Export đặt trưng hình học của hình trong cadra excel

[phagi 2]

Chào các anh em trên diễn đàn!

Mình muốn lấy đặc trưng hình học (tâm, moment quán tính) một số hình vẽ (region) trên cad sang excel để thực hiện tính toán. Lệch Massprop có thể tính đc các đặc trưng nhưng mình không biết có thủ tục VBA nào có thể lấy đc thông tin từ lệnh Massprop.

Anh em nào có code lấy thông tin từ lệnh Massprop hàng loạt hình xin chỉ mình với.

Xin cảm ơn!

[dinhvantrang 151]

Bác dùng Sendcommand không được uh? Em nghĩ chắc được.

[phagi 2]

Bạn có thể giải thích rõ hơn giúp mình hông! Mình muốn lấy thông số Massprop giống như là lấy các thông số của line, pline,.. xuất tự động qua excel.

Mình muốn get các thông số như hình trên lưu vào biến.

[Nguyen Hoanh 4668]

Nếu bạn đã biết về VBA, chỉ là không biết đích xác các thuộc tính đó của Region tên là gì,

thì câu trả lời của mình là các thuộc tính đó gồm:

Centroid
MomentOfInertia
PrincipalDirections
PrincipalMoments
ProductOfInertia
RadiiOfGyration

[dinhvantrang 151]

1 giờ} trướ}c, phagi cho biết:

Bạn có thể giải thích rõ hơn giúp mình hông! Mình muốn lấy thông số Massprop giống như là lấy các thông số của line, pline,.. xuất tự động qua excel.

Mình muốn get các thông số như hình trên lưu vào biến.

Bạn Write nó ra file rồi đọc file đó thử coi. :D

 

 

[phagi 2]

16 giờ trước, Nguyen Hoanh cho biết:

Nếu bạn đã biết về VBA, chỉ là không biết đích xác các thuộc tính đó của Region tên là gì,

thì câu trả lời của mình là các thuộc tính đó gồm:

Centroid
MomentOfInertia
PrincipalDirections
PrincipalMoments
ProductOfInertia
RadiiOfGyration

Thanks bạn! Chính xác cái mình đang cần. Mình sẽ thử làm các bước tiếp theo.

Mình hông rành VBA for cad cho lắm. Chỉ là ghép nối các đoạn code có sẵn để giải quyết công việc cụ thể khi cần thôi. :D

[dinhvantrang 151]

Em add Wath đối tượng Region thì hình như trong VBA không có thấy các thuộc tính này. 

[phagi 2]

1 giờ} trướ}c, dinhvantrang cho biết:

Em add Wath đối tượng Region thì hình như trong VBA không có thấy các thuộc tính này. 

Anh Nguyen Hoanh chỉ đúng đó bạn.    

    x1 = ent.Centroid
    x2 = ent.MomentOfInertia
    x3 = ent.PrincipalDirections
    x4 = ent.PrincipalMoments
    x5 = ent.ProductOfInertia
    x6 = ent.RadiiOfGyration

ent là đối tượng Region.

[dinhvantrang 151]

yeah bác, cái add watch này có vẻ không thể hiện được hết các thuộc tính của đối tượng Region và các đối tượng khác. Phải tra cứu riêng đối tượng đó mới thấy hết được các Method và Properties của nó.

https://knowledge.autodesk.com/search-result/caas/CloudHelp/cloudhelp/2015/ENU/AutoCAD-ActiveX/files/GUID-DFE47717-F7AF-443B-AD78-4E0BB60121C7-htm.html

 

[ketxu 2993]

Câu chuyện này gặp ở Mline rồi vẫn chưa chừa sao ^^

[phagi 2]

Tiện đây cho mình hỏi luôn tý.

Có thủ tục nào trong VBA để chuyển đối tượng Polyline thành Region hông bạn.

[dinhvantrang 151]

5 phút trước, ketxu cho biết:

Câu chuyện này gặp ở Mline rồi vẫn chưa chừa sao ^^

Hehe chưa quá tam là được bác ợ.

4 phút trước, phagi cho biết:

Tiện đây cho mình hỏi luôn tý.

Có thủ tục nào trong VBA để chuyển đối tượng Polyline thành Region hông bạn.

 

Sendcommand thoai

[ketxu 2993]

Method Add Region. Bạn lưu ý kiểm tra tính closed trước cho chắc chắn

Cú pháp : https://knowledge.autodesk.com/search-result/caas/CloudHelp/cloudhelp/2015/ENU/AutoCAD-ActiveX/files/GUID-4699B54A-2628-49FE-B093-0062FBEC37EA-htm.html

Trường hợp nó k liên tục mà gồm nhiều đối tượng thì bạn thử Add vào Array rồi thực hiện method trên. 
Tham khảo :

https://knowledge.autodesk.com/search-result/caas/CloudHelp/cloudhelp/2016/ENU/AutoCAD-ActiveX/files/GUID-74C8765E-EB4A-4773-ADD4-6C0F318FE6BE-htm.html

[dinhvantrang 151]

nếu bác hứng thú với sendcommand thì nó đây.

[phagi 2]

Cảm ơn anh em nhiều!

[phagi 2]

Mình đã hoàn thành đoạn code xuất đặc trưng của nhiều hình trong cad sang excel. Còn sơ sài vì chủ yếu là chắm vá nhưng cũng đủ đề giải quyết được vấn đề :D.

Mình làm cái này để tính toán tâm cứng và các đặc trưng của nhà cao tầng phục vụ cho thiết kế. Xin chia sẻ cùng các bạn quan tâm.

Output:

:

 

 

 

[ketxu 2993]

Ủng hộ và like bạn share nhưng tạm thời chưa thể ngồi gõ tay code này ^^