THÀNH CÔNG THÌ DONATE CHO MÌNH QUA ĐÂY NHÉ
STK: 212012537
NGÂN HÀNG: VP BANK
CHỦ TÀI KHOẢN : NGUYEN TUAN SON
DƯỚI ĐÂY LÀ MACRO NHÉ BAN COPY VỀ NOTE LÀ CHẠY ĐC NHÉ!!!
____________________________________
Language="VBSCRIPT"
Sub CATMain()
Set productDocument1 = CATIA.ActiveDocument
Set selection1 = productDocument1.Selection
SH=inputbox("NHẬP SỐ ĐI BẠN! 1:Constraint, 2:Plane, 3:Line, 4:Point, 5:Curve, 6:Surface, 7:AxisSystem, 8:Sketch","SHOW/HIDE",8)
if SH=1 Then
selection1.Search "CATProductSearch.MfConstraint.Visibility=Visible,all"
Set VisPropSet1 = Selection1.VisProperties
VisPropSet1.SetShow catVisPropertyNoShowAttr
End if
if SH=2 Then
selection1.Search "CATPrtSearch.Plane.Visibility=Visible,all"
Set...