Pokud potřebujete poradit s makry, je vždy lepší poslat zdrojový kód, resp. část kde je problém. (ale zase neposílat odněkud stažený 1000 řádkový kód, to nikdo luštit nebude).
Makro které vytvoříte někdy bude fungovat jen v tom modelu, kde bylo vytvořeno a do té doby, než smažete nebo přejmenujete elementy, se kterými se pracovalo. Pokud jej vytváříte v jednom modelu a zkoušíte v jiném, je velká pravděpodobnosz že fungovat nebude.
Pošlete zdroják, kouknu se.

Takto by to melo jet. Musi existovat geom. set.

Sub CATMain()



Dim partDocument1 As Document

Set partDocument1 = CATIA.ActiveDocument



Dim part1 As Part

Set part1 = partDocument1.Part



Dim originElements1 As OriginElements

Set originElements1 = part1.OriginElements



Dim hybridShapePlaneExplicit1 As AnyObject

Set hybridShapePlaneExplicit1 = originElements1.PlaneXY



Dim reference1 As Reference

Set reference1 = part1.CreateReferenceFromObject(hybridShapePlaneExplicit1)



Dim Hbody As HybridBodies

Set Hbody = part1.HybridBodies



Dim GS1 As HybridBody

Set GS1 = Hbody.Item(1)



Dim hybridShapes1 As HybridShapes

Set hybridShapes1 = GS1.HybridShapes



Dim hybridShapeFactory1 As Factory

Set hybridShapeFactory1 = part1.HybridShapeFactory



Dim hybridShapeLineExplicit1 As HybridShape

Set hybridShapeLineExplicit1 = hybridShapeFactory1.AddNewDirectionByCoord(1#, 0#, 0#)



Dim reference2 As Reference

Set reference2 = part1.CreateReferenceFromObject(hybridShapeLineExplicit1)



Dim hybridShapePlaneAngle1 As HybridShapePlaneAngle

Set hybridShapePlaneAngle1 = hybridShapeFactory1.AddNewPlaneAngle(reference1, reference2, 45#, False)



hybridShapePlaneAngle1.ProjectionMode = False



GS1.AppendHybridShape hybridShapePlaneAngle1



part1.InWorkObject = hybridShapePlaneAngle1



part1.Update



End Sub

Pravděpodobně máte zapnutý "Hybrid design", tzn. plochy a drátová geometrie se může vytvářet v Body. Doporučoval bych jej vypnout, kvůli tomu se vám myslím makro nahrálo nesprávně.
Nevím jaké jsou vaše zkušenosti s programováním obecně, ale to na co se ptáte, jsou naprosté základy. Rádi vám pomůžeme s určitým problémem, ale a to, abychom zde vysvětlovali Visual basic, už opravdu nezbývá čas. Zkuste si najít nějaký web, kde se o VB6 píše a něco si o něm přečíst.

Já rekordér používám hlavně když potřebuju rychle nastavit potřebné instance a nepamatuju si jejich přesné názvy.
Kódy z rekordéru nejsou žádný zázrak a také rekordér nenahraje všechny úkony. Máte tedy dvě možnosti:

• 1. Nahrát si nějaký základ rekordérem a ten pak upravit
• 2. Začít psát všechno od začátku a čistě

A k algoritmu:
Jeden for cyklus s počtem rovin, které byste chtěl vytvořit. V cyklu bude kód, který vytvoří instanci roviny a vloží ji do setu. Dále se bude generovat náhodné číslo (0-2), ze kterého určíte osu rotace a druhé náhodné (30-80), které bude představovat úhel natočení. Vytvářené roviny si můžete pojmenovávat např X80, Z20 - podle osy a úhlu.

Tak už som zohnal knihu Visual Basic 6 a idem skúsiť niečo napísať.

Na generování náhodných přímek opravdu žádná metoda neexistuje. Všechno se musí napsat.

Pošlete, resp. napište sem část kódu, která vám dělá problém, ať vám můžu lépe poradit.