iCAx开思网
标题:
宏--获取草图的基准面或平面
[打印本页]
作者:
pyczt
时间:
2016-12-28 09:41
标题:
宏--获取草图的基准面或平面
来源Apihelp.chm
预选:在零件或装配体中选择一个草图
结果:获得该草图的草图基准面或平面
Option Explicit
Sub main()
Dim pSWApp As SldWorks.SldWorks
Dim pModel As SldWorks.ModelDoc2
Dim pSelMgr As SldWorks.SelectionMgr
Dim pFeat As SldWorks.Feature
Dim pSketch As SldWorks.Sketch
Dim pEntity As SldWorks.Entity
Dim pPlaneFeat As SldWorks.Feature
Dim pFace As SldWorks.Face2
Dim nEntType As Long
Set pSWApp = CreateObject("SldWorks.Application")
Set pModel = pSWApp.ActiveDoc
Set pSelMgr = pModel.SelectionManager
Set pFeat = pSelMgr.GetSelectedObject5(1)
Set pSketch = pFeat.GetSpecificFeature2
Set pEntity = pSketch.GetReferenceEntity(nEntType)
Debug.Print "Sketch Name = " + pFeat.Name
If nEntType = swSelDATUMPLANES Then
Set pPlaneFeat = pEntity
End If
If nEntType = swSelFACES Then
Set pFace = pEntity
End If
pEntity.Select2 False, 0
End Sub
复制代码
作者:
qiminger
时间:
2016-12-28 12:46
谢谢分享好例程,学习了。
作者:
人穷貌丑
时间:
2017-6-17 18:51
谢谢分享
作者:
chaomogu
时间:
2018-1-11 00:30
速來抱大腿
作者:
starbeo
时间:
2020-11-24 14:08
好好学习 天天向上
欢迎光临 iCAx开思网 (https://www.icax.org/)
Powered by Discuz! X3.3