PastSpecial
PastSpecial
(OP)
Hi everybody
I want to copy a shape (a point, a line...) from one part to another, with a PastSpecial as a result!
is it possible?
I tried to do somethin like that! but i failed
it generates nothing
I want to copy a shape (a point, a line...) from one part to another, with a PastSpecial as a result!
is it possible?
I tried to do somethin like that! but i failed
CODE --> vbs
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = productDocument1.Selection
selection1.Clear
Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim partDocument1 As Document
Set partDocument1 = documents1.Item("part1.CATPart")
Dim part1 As Part
Set part1 = partDocument1.Part
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Construction")
Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes
Dim hybridShapePointCenter1 As HybridShape
Set hybridShapePointCenter1 = hybridShapes1.Item("Point.1")
selection1.Add hybridShapePointCenter1
selection1.Copy
selection1.Clear
''''''''''''''
Dim partDocument2 As Document
Set partDocument2 = documents1.Item("part2.CATPart")
Dim part2 As Part
Set part2 = partDocument2.Part
Dim hybridBodies2 As HybridBodies
Set hybridBodies2 = part2.HybridBodies
Dim hybridBody2 As HybridBody
Set hybridBody2 = hybridBodies2.Item("Set géométrique.1")
Set selection1 = productDocument1.Selection
selection1.Add hybridBody2
selection1.PasteSpecial As a result it generates nothing





RE: PastSpecial
Your selection1 is still link with productdocument1...
PasteSpecial As a result ????
PLZ read the GTWiki and your online doc...
indocti discant et ament meminisse periti
RE: PastSpecial
CODE --> vbs
Sub CATMain() Dim productDocument1 As Document Set productDocument1 = CATIA.ActiveDocument Dim selection1 As Selection Set selection1 = productDocument1.Selection selection1.Clear Dim documents1 As Documents Set documents1 = CATIA.Documents Dim partDocument1 As Document Set partDocument1 = documents1.Item("part1.CATPart") Dim part1 As Part Set part1 = partDocument1.Part Dim hybridBodies1 As HybridBodies Set hybridBodies1 = part1.HybridBodies Dim hybridBody1 As HybridBody Set hybridBody1 = hybridBodies1.Item("Construction") Dim hybridShapes1 As HybridShapes Set hybridShapes1 = hybridBody1.HybridShapes Dim hybridShapePointBetween1 As HybridShape Set hybridShapePointBetween1 = hybridShapes1.Item("Point.1") selection1.Add hybridShapePointBetween1 selection1.Copy Dim partDocument2 As Document Set partDocument2 = documents1.Item("part2.CATPart") Dim part2 As Part Set part2 = partDocument2.Part Dim hybridBodies2 As HybridBodies Set hybridBodies2 = part2.HybridBodies Dim hybridBody2 As HybridBody Set hybridBody2 = hybridBodies2.Item("Set géométrique.1") selection1.PasteSpecial As a result part2.Update End Suband always it do nothing
my problem is with the special past! and how can i use it!
RE: PastSpecial
solution is in online doc
indocti discant et ament meminisse periti
RE: PastSpecial
.PasteSpecial ("CATPrtResult")
In a Part container
"CATPrtCont" to paste "As Specified In Part Document",
"CATPrtResultWithOutLink" to paste "AsResult",
"CATPrtResult" to paste "AsResultWithLink",
"CATMaterialCont" to paste "As material",
"AsMaterialLink" to paste "As material link",
"CATMechProdCont" to paste "As specified in Assembly",
"CATProdCont" to paste "As specified in Product Structure",
"CATIA_SPEC" to paste "CATIA_SPEC",
"CATIA_RESULT" to paste "CATIA_RESULT".
RE: PastSpecial
it works :))
RE: PastSpecial
if i want to recuperate the copied point's name : "Point.1"
CODE --> vbs
Set selection1 = productDocument1.Selection selection1.Add hybridBody2 selection1.PasteSpecial ("CATPrtResultWithOutLink") msgbox(???)i tried whith msgbox(selection1.name)
but it gives "CAATIASelection1"
thx a lot :)
RE: PastSpecial
CODE --> vbs
Set selection1 = productDocument1.Selection selection1.Add hybridBody2 selection1.PasteSpecial ("CATPrtResultWithOutLink") Dim reference1 As Reference Set reference1 = selection1.Item(1).Reference MsgBox (reference1.Name)but if i want to change its name
reference1.Name = "PH"!??
RE: PastSpecial
indocti discant et ament meminisse periti