catiaのバンド解析

Question

VBAを使用して2つの製品間の距離を測定するコードが必要です。私は測定するためにグループを使用したくない。 distance.firstproductとdistance.secondproductをdistance.firstgroupの代わりにコード内で使用したいと思います。ある人がコードを手伝ってくれますか？ はカティアのCAAのドキュメント上に述べたように

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 

Answer 1

FirstProductとSecondProductプロパティは、読み取り専用されているありがとう：

プロパティFirstProduct（）製品として

が属する製品を返します（読み取り専用）最小距離 を実現する最初のグループに割り当てます。

距離を評価するには、グループを作成してグループに追加する必要があります。