mit freundlichen gruessen,
gregor
my_product as Product
my_part as Part
Set my_part = my_product.ReferenceProduct.Parent.Part
punkt1(2) und punkt2(2) as double
point1 und point2 as HybridShapePointCoord
my_fac as HybridShapeFactory
my_body as body
ref1 und ref2 As Reference
'create points and line
Set point1 = my_fac.AddNewPointCoord(punkt1(0),punkt1(1),punkt1(2))
Set point2 = my_fac.AddNewPointCoord(punkt2(0),punkt2(1),punkt2(2))
my_body.InsertHybridShape point1
my_body.InsertHybridShape point2
Set ref1 = my_part.CreateReferenceFromObject(point1)
Set ref2 = my_part.CreateReferenceFromObject(point2)
Set cat_line = my_fac.AddNewLinePtPt(ref1, ref2)
my_body.InsertHybridShape cat_line
update as needed
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP