Author
Ở Catia mình thấy đối với một bản vẽ lắp có nhiều chi tiết trong khi đó mỗi chi tiết có các mặt phẳng,Sketch,Curve,Suface...Khi mở bản vẽ lắp nhìn rất là rối mắt. Khi ta muốn ẩn các đối tượng đó đi,ta phải mở từng Part một để ẩn các đối tượng đó đi rất mất thời gian. Vì vậy ta cần đến một công cụ để thực hiện điều đó và đó là Marco.
Video dưới đây mình giới thiệu về Marco dùng để ẩn tất cả các Plane trong bản vẽ lắp:
https://youtu.be/TsLEYjFw5qs
Đây là chi tiết chương trình Marco ẩn Plane:
"""
Language="VBSCRIPT"
Sub CATMain()
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = productDocument1.Selection
Dim visPropertySet1 As VisPropertySet
Set visPropertySet1 = selection1.VisProperties
'search by tye
Selection1.Search "CatPrtSearch.Plane,All"
visPropertySet1.SetShow 1
selection1.Clear
End Sub
"""
-Còn các đối tượng khác các bạn có thể làm tương tự.
Video dưới đây mình giới thiệu về Marco dùng để ẩn tất cả các Plane trong bản vẽ lắp:
https://youtu.be/TsLEYjFw5qs
Đây là chi tiết chương trình Marco ẩn Plane:
"""
Language="VBSCRIPT"
Sub CATMain()
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = productDocument1.Selection
Dim visPropertySet1 As VisPropertySet
Set visPropertySet1 = selection1.VisProperties
'search by tye
Selection1.Search "CatPrtSearch.Plane,All"
visPropertySet1.SetShow 1
selection1.Clear
End Sub
"""
-Còn các đối tượng khác các bạn có thể làm tương tự.
Last edited: