我需要使用VBA测量2个产品之间距离的代码 . 我不想用团队来衡量 . 我想在代码中使用distance.firstproduct和distance.secondproduct而不是使用distance.firstgroup . 有人可以帮我处理代码 . 谢谢
sub main()
Dim MyDoc As Document
Set MyDoc = CATIA.ActiveDocument
Dim MyProduct As Product
Set MyProduct = MyDoc.Product
Dim Product1 As Product
Dim Product2 As Product
Set Product1 = MyProduct.Products.Item("Part1.1")
Set Product2 = MyProduct.Products.Item("Part2.1")
Dim MySelection As Selection
Set MySelection = MyDoc.Selection
MySelection.Clear
Dim cDistances As Distances
Set cDistances = MyProduct.GetTechnologicalObject("Distances")
Dim MyDistance As Distance
set mydistance=cdistance.add
MyDistance.ComputationType = catDistanceComputationTypebetweentwo
MyDistance.MeasureType = catDistanceMeasureTypeMinimum
Set MyDistance.Firstproduct=product1 '<----Error Line
set myDistance.secondproduct=product2 '<----Error Line
MeasureDistance = MyDistance.Value
MySelection.Clear
end sub
1 回答
FirstProduct
和SecondProduct
属性是只读的,如Catia CAA文档中所述:您必须创建组并将产品添加到组以评估距离 .