紧急求助，VB获取用户选择的面和边线问题

z1033361473 · 发表于 2015-10-18 21:47:17

我要实现的功能是：
第一步：手动选中solidworks 模型的一个面和一个边线
第二步：VB自动获取第一步中所选的面和边线
第三步：再用VB代码再次选中第一步中所选的面和边线
我急需这段代码，高手帮帮我，感激不尽！！！
图片为参考

yszgg · 发表于 2015-10-18 22:11:57

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swSelFace As SldWorks.Face2
Dim swSelEdge As SldWorks.Edge
Dim swSelPoint As SldWorks.Vertex
Dim swObjectType As Integer
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager

      If (swSelMgr.GetSelectedObjectCount = 0) Then
         MsgBox "************************************************" & vbCrLf & _
               "*                                           *" & vbCrLf & _
               "*  你没有选择实体。                         *" & Chr(13) & _
               "*  请选择后在运行这个宏                      *" & vbCrLf & _
               "*                                           *" & vbCrLf & _
               "************************************************", vbOKOnly + vbExclamation, "Warning"
               Exit Sub
      End If
      swModel.ClearSelection2 True
      For i = 0 To swSelMgr.GetSelectedObjectCount
         swObjectType = swSelMgr.GetSelectedObjectType3(i, -1)
         Select Case swObjectType
               Case swSelEDGES
                  Set swSelEdge = swSelMgr.GetSelectedObject5(i)
                  Debug.Print "第 " & i & " 个是边"
               Case swSelFACES
                  Set swSelFace = swSelMgr.GetSelectedObject5(i)
                  Debug.Print "第 " & i & " 个是面"
               Case swSelVERTICES
                  Set swSelPoint = swSelMgr.GetSelectedObject5(i)
                  Debug.Print "第 " & i & " 个是       顶点"
         End Select
      Next i


End Sub
上面的宏代码运行前  1.要打开一个模型
                                 2 手动选取特征或实体
                                 3 类型判断作为参照，还有一些没有写入
功能是，运用选择的物体来获取其他想得到的数据。至于第二条上面和第三条写的条件不足，还需要楼主提供，不能够自动获取。
不过根据现有的推测可以用 swModel.Extension.SelectByID2,来准确获取。或者用下面的遍历的方法
1.选取的面有特殊性，遍历所有的面，来选取
2.选取的边有特殊性，遍历所有的边，来选取
希望有所帮助。

byw1988 · 发表于 2015-10-18 21:48:23

问题与程序没有关系。根本不知何为三维图形数据结构，首先解读理论才能认清“面、环、边”。

Yokiy · 发表于 2015-10-18 21:56:56

我就简单的说吧，VB能获取用户当前选中的面和某个孔的圆边线吗？YES or NO? 答案一定是可以的，只不过我还要继续啃书，靠人不如靠自己，其实靠人也只是提醒自己要努力，而并不是真指望谁能帮一把
为自己加油，等我自己实现这段代码，我会贴图上来！！！

UGwei · 发表于 2015-10-18 22:01:20

经典案例图书

终于找到方法，其实可以获取所选点的坐标值（xyz），然后再用boolstatus = Part.Extension.SelectByID2("", "EDGE", x,y, z, True, 1, Nothing, 0)来获取边线，EDGE改成FACE就是获取面，呵呵还是自己摸索来的靠谱，共勉！

		自动登录	找回密码
密码			立即注册