宏--获取草图的基准面或平面

来源Apihelp.chm
预选:在零件或装配体中选择一个草图
结果:获得该草图的草图基准面或平面

1. Option Explicit
   
2. Sub main()
   
3.     Dim pSWApp                      As SldWorks.SldWorks
   
4.     Dim pModel                      As SldWorks.ModelDoc2
   
5.     Dim pSelMgr                     As SldWorks.SelectionMgr
   
6.     Dim pFeat                       As SldWorks.Feature
   
7.     Dim pSketch                     As SldWorks.Sketch
   
8.     Dim pEntity                     As SldWorks.Entity
   
9.     Dim pPlaneFeat                  As SldWorks.Feature
   
10.     Dim pFace                       As SldWorks.Face2
    
11.     Dim nEntType                    As Long
    
12. 
    
13.     Set pSWApp = CreateObject("SldWorks.Application")
    
14.     Set pModel = pSWApp.ActiveDoc
    
15.     Set pSelMgr = pModel.SelectionManager
    
16.     Set pFeat = pSelMgr.GetSelectedObject5(1)
    
17.     Set pSketch = pFeat.GetSpecificFeature2
    
18.     Set pEntity = pSketch.GetReferenceEntity(nEntType)
    
19.    
    
20.     Debug.Print "Sketch Name = " + pFeat.Name
    
21.   
    
22.     If nEntType = swSelDATUMPLANES Then
    
23.         Set pPlaneFeat = pEntity
    
24.     End If
    
25. 
    
26.     If nEntType = swSelFACES Then
    
27.         Set pFace = pEntity
    
28.     End If
    
29.    
    
30.    pEntity.Select2 False, 0
    
31.   
    
32. End Sub

复制代码

谢谢分享好例程，学习了。

谢谢分享

速來抱大腿

好好学习 天天向上