Vítejte !   Přihlášení | Registrace
Hledat
Hlavní menu
CATIA fórum.cz
Novinky
Seriál CATIA
Obecně o CAD
Novinky ze světa DS
Makra pro CATIA V5
Diskuse
Základy Catia
Ke stažení
Doporučujeme
Pracovní příležitosti
Reklama a kampaně
O fóru
Vznik a historie
Statistiky
Přehledy
Hledat na fóru
Nápověda

Seznam příspěvků uživatele

V tabulce jsou všechny příspěvky uživatele charlie0 řazené podle témat. Kliknutím na název téma se zobrazíte celou diskusi.

TémaZaloženoOdpověď
Rozdělení plochy na malé díly 10.4. 2013 V catii existuje modul STL, který načte STL soubor a umí s tím provést jednoduché operace jako ořez a rozdělení. Ale potřebujete licenci.
 
Rozdělení plochy na malé díly 8.4. 2013 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.
Rozdělení plochy na malé díly 3.4. 2013 Pěkná hloupost a já to neviděl.

Jak se ve VBA jmenuje fce Disassembly, opak fce Join?
Rozdělení plochy na malé díly 29.3. 2013 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

Rozdělení plochy na malé díly 26.3. 2013 Ještě jsem přišel na jednu možnost: v souřadné rovině vytvořím Pattern z bodu a projektuji jej na plochu. Jen jsem z helpu nepochopil, jak mám zadat směr projekce.
 
Chyba při GetPointsOnCurve 26.3. 2013 Díky, pomohly obě změny dohromady tj. 
TheMeasurable As Variant
a zmena updatu. Jednotlivě ne.

Jaký je rozdíl volání funkce s přikazem Call ... a bez něj ?
Chyba při GetPointsOnCurve 22.3. 2013 Bohužel ani to nepomáhá. Ještě jsem hledal na internetu a nešel jsem varianty s příkazem Call TheMeasurable.GetPointsOnCurve Krivka
a různé kombinace se závorkami GetPointsOnCurve Krivka() nebo GetPointsOnCurve(Krivka). Ale ani to nezabralo.