是否有可能使用Catia vba移动一个部件而不是产品中的约束？

1 回答

• 0

  Here是一个链接，您可以在其中找到冲突的解决方案 .

  好的，我明白了，你想在这里看到代码:-)

  要计算CATScript中的冲突：

  Sub CATMain()
  
      ' get root product of document
      Dim RootProd As Product
      Set RootProd = CATIA.ActiveDocument.Product
  
      ' retrieve selection object of active document
      Dim objSelection As Selection
      Set objSelection = CATIA.ActiveDocument.Selection
  
      ' get two selected objects
      If (objSelection.Count2 <> 2) Then
      MsgBox "Before running the script you must select two products to compute clash for", vbOKOnly, "No products selected"
      Exit Sub
      End If
  
      Dim FirstProd As Product
      Dim SecondProd As Product
  
      Set FirstProd = objSelection.Item2(1).Value
      Set SecondProd = objSelection.Item2(2).Value
  
      ' create groups for clash computation
      Dim objGroups As Groups
      Set objGroups = RootProd.GetTechnologicalObject("Groups")
  
      Dim grpFirst As Group
      Dim grpSecond As Group
  
      Set grpFirst = objGroups.Add()
      Set grpSecond = objGroups.Add()
  
      ' add selected products to groups
      grpFirst.AddExplicit FirstProd
      grpSecond.AddExplicit SecondProd
  
  
      ' get access to Clashes collection
      Dim objClashes As Clashes
      Set objClashes = RootProd.GetTechnologicalObject("Clashes")
  
      ' create new clash
      Dim newClash As Clash
      Set newClash = objClashes.Add()
  
      ' set new clash to be computed between two groups (two selected products)
      newClash.FirstGroup = grpFirst
      newClash.SecondGroup = grpSecond
  
      newClash.ComputationType = catClashComputationTypeBetweenTwo
  
      ' compute clash
      newClash.Compute
  
      End Sub
  

  回复于 2024-05-01T19:52:28+08:00