Hallo zusammen
ich möchte 2 Sketches oder mehr einem Join zuweisen.Die Referenzen sollen in einer Schleife bestimmt werden .Bekomme bei addnewjoin aber immer eine Fehlermeldung Typen Unverträglich.Was mache ich falsch??
Ich hoffe es kann mir jemand helfen.
Language="VBSCRIPT"
Dim x
Dim SK as AnyObject
Dim RefSk as Reference
Sub CATMain()
set sel=CATIA.ActiveDocument.Selection
Dim sFilter(0)
sFilter(0) = "Part"
sel.SelectElement SFilter, "Part selektieren", false
set part1 = sel.Item(1).Value
CATIA.ActiveDocument.Selection.clear
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Beschriftung")
Dim Wzk3D As HybridShapeFactory
Set Wzk3D = part1.HybridShapeFactory
for x = 1 to 2
ReDim Sk(x) as AnyObject
ReDim RefSk(x) as Reference
Set SK(x) = Hybridbody1.Hybridsketches.Item (x)
Set RefSk(x) = part1.CreateReferenceFromObject (SK(x))
if x = 2 then
msgbox ubound(RefSk)
Dim Join as HybridShapeAssemble
Set Join = Wzk3D.AddNewJoin (RefSk(x))
Join.SetConnex false
hybridBody1.AppendHybridShape Join
end if
next
End Sub
Gruß Andi
[Diese Nachricht wurde von Augustiner am 27. Apr. 2006 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP