FEM v CATIA umí nasíťovat plochy i pruty a síť by měla jít exportovat.

Pokud chcete vytvořit síť bodů na ploše pomocí např. funkcí v GSD, zkusil bych na ploše vytvořit několik paralelních křivek a na každé pak určitý počet equdistatních bodů - půjde to rychle a splní to účel.

Směr projekce je buď feature, která je schopna určit směr (line - přímo směr, plane - směr je normála) nebo se dá vybrat projekce normálově k ploše projekce. Pokud je plocha tvarově složitá, tak může být výsledek nepoužitelný - body se rozejdou podle tvaru plochy. Volil bych jeden směr projekce.

Uživatel odpovídá na příspěvek #3769:
Tomu rozumím. Ale mám chybu "Object variable or With block variable not set"
na řádku

Set hShapeProject1.Direction = hSDirection

Dim oPart As Part

Set oPart = CATIA.ActiveDocument.Part



Dim hShapeProject1 As HybridShapeProject

Dim hSDirection As HybridShapeDirection

Dim oHSBod2 As HybridShape

Dim oHSPlocha As HybridShape



Set hBodies1 = oPart.HybridBodies

Set HybridBody1 = hBodies1.Add()



Set originElements1 = oPart.OriginElements

Set hSPlane3 = originElements1.PlaneZX



Set hSFactory1 = oPart.HybridShapeFactory

Set sFactory1 = oPart.ShapeFactory



' vytvorit pocatecni bod pro patern

Set oHSBod2 = hSFactory1.AddNewPointCoord(500, 0, 500)

HybridBody1.AppendHybridShape oHSBod2

oPart.Update



'vytvor patern

Set rectPattern1 = sFactory1.AddNewSurfacicRectPattern(oHSBod2, 20, 20, 50, 50, 1, 1, hSOsaX, hSOsaZ, True, False, 0#)

HybridBody1.AppendHybridShape rectPattern1



'projekce na plochu

Set oHSPlocha = oPart.HybridBodies.Item("plochy").HybridShapes.Item(1)

Set hShapeProject1 = hSFactory1.AddNewProject(rectPattern1, oHSPlocha)



hShapeProject1.SolutionType = 0

hShapeProject1.Normal = False

hShapeProject1.SmoothingType = 0



Set hSDirection = hSFactory1.AddNewDirection(hSPlane3)

'bold'>Set hShapeProject1.Direction = hSDirection



HybridBody1.AppendHybridShape hShapeProject1

Pěkná hloupost a já to neviděl.

Jak se ve VBA jmenuje fce Disassembly, opak fce Join?

Dissasemble jsem rozchodil, ale chaos je v tom, kam padají vytvořené elementy:

Set hBodies4 = oPart.HybridBodies

Set HybridBody4 = hBodies4.Add()

HybridBody4.Name = ("nazev")



'Select neco

Set objSel = CATIA.ActiveDocument.Selection

objSel.Clear

objSel.Add neco

 

'Call the Disassemble command

CATIA.StartCommand "Disassemble"

 

'Make sure CATIA window is activated Then send

'Enter keystroke to click the OK button

AppActivate "CATIA V5"

SendKeys "{ENTER}", True



oPart.Update

až potud vše funguje OK, jakmile ale přidám další příkazy a např. vytvořím nový GeometricalSet

Set hBodies5 = oPart.HybridBodies

Set HybridBody5 = hBodies5.Add()

pak mi všechny elementy místo v HybridBody4 skončí v novém HybridBody5.
Když těch Setů přidám víc, vždy elementy skončí v tom posledně vytvořeném.

Zdravím, asi mám velmi podobný problem, tak nebudem zakladat novu temu.
Stiahol som si 3D model auta vo formate *.3ds a jediný sposob ako sa mi ho podarilo dostat do Catie je po prekonvertovaní nejakym programom do *.stl

O čo mi ide:
chcel by som si tento model vyfrezovat, ale zo spodnej strany je "deravy" a ja by som tam potreboval dokreslit plochy aby sa tvaril ako plny, pripadne na neho nakreslil potrebne krivky ako obmedzenia a podobne. problem je v tom ze sa netvari ani ako plocha, ani ako siet bodov a ked na neho namierim cursorom, tak sa mi zobrazí len akoby obvodovy kvader.

vie mi niekto poradit ako z stl vytvorit aspon jednu Shape s ktorou uz by sa nejak dalo pracovat?

Dakujem za kazdu radu.