Text dotazu:
Zdravím všetkých,

posielam macro na NewFrom z partu ktorý už je načítaný v pamäti. Potrebujem poradiť vyhadzuje mi chybu = Compile error
Cant find project or library. Stretol sa s tým už niekto? za všetky rady ďakujem.

Sub CATMain()
Dim partDocument1, product1, part1, objPart, objSel, objProd

On Error Resume Next
Set partDocument1 = CATIA.ActiveDocument
If Err <> 0 Then
MsgBox "No product/part is active"
Exit Sub
End If

strDocName = CATIA.ActiveDocument.Name
If (InStrRev(strDocName, ".CATPart", -1) <> 0) Then
strDocType = "PART"
GoTo SelectedObjectPART
End If
If (InStrRev(strDocName, ".CATProduct", -1) <> 0) Then
strDocType = "PRODUCT"
GoTo SelectedObjectPRODUCT
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SelectedObjectPART:
Set partDocument1 = CATIA.ActiveDocument
On Error Resume Next
Set product1 = partDocument1.GetItem(xxx)
Err.Clear
Set part1 = partDocument1.PART
Set product1 = product1.ReferenceProduct
Set objPart = part1.Parameters

GoTo Action
'''''''''''''''''

SelectedObjectPRODUCT:
Set objProd = CATIA.ActiveDocument.Selection.Item2(1).Value

Set objSel = CATIA.ActiveDocument.Selection
objSel.Clear
MsgBox "Select an instance in CatiaTree...."
strReturn = objSel.SelectElement2(Array("Product"), "Select an instance...", False)
Set objProd = objSel.Item2(1).Value
Set product1 = objProd.ReferenceProduct
Set objPart = objSel.Item2(1).Value.Parameters

Dim partDocument12 As PartDocument
GoTo Action

Action:
Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim partDocument11 As PartDocument
Set partDocument11 = documents1.NewFrom(product1.ReferenceProduct.Parent.FullName)

End Sub