Hallo API Spezialisten,
ich habe das Beispiel aus der Api Hilfe "SetNetBlendCurveData" verwendet und habe das Problem das trotz dem parameter für Tangetialität zur Fläche siehe Bsp Code zeile
"swFeatMgr.SetNetBlendCurveData 0, 0, 3, 0, 1, True" die 3 kein tangential Übergang erzeugt wird siehe
Bild-macro-erzeugt.jpg.
Es soll eigentlich so sein Bild-so-solls-sein.jpg.
Hab ich was übersehen oder hat die Api heir evetuell einen Bug.
####################################
Set swSelMgr = swModel.SelectionManager
Set swModelDocExt = swModel.Extension
'
boolstatus = swModelDocExt.SelectByID2("", "EDGE", 0.01572662105491, -0.03189122520469, -0.003, False, 8193, Nothing, 0)
boolstatus = swModelDocExt.SelectByID2("", "FACE", 0.01693264491809, -0.02972348378986, -0.003, True, 8449, Nothing, 0)
boolstatus = swModelDocExt.SelectByID2("", "EDGE", 0.01203603145114, -0.03490864658978, -0.002, True, 16385, Nothing, 0)
boolstatus = swModelDocExt.SelectByID2("", "FACE", 0.01196607094145, -0.0359080110057, -0.002, True, 16641, Nothing, 0)
Set swFeatMgr = swModel.FeatureManager
swFeatMgr.SetNetBlendCurveData 0, 0, 3, 0, 1, True
swFeatMgr.SetNetBlendDirectionData 0, 32, 0, False, False
swFeatMgr.SetNetBlendCurveData 0, 1, 3, 0, 1, True
swFeatMgr.SetNetBlendDirectionData 1, 32, 0, False, False
swFeatMgr.InsertNetBlend 2, 2, 0, False, 0.0001, False, True, True, True, False, -1, -1, False, -1, False, False, -1, False, False, True
####################################################
Danke schon mal vorab
Grüße
Rainer
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP