Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Michael.Navara
in reply to: Anonymous

Here is sample code for "Copy occurrence" to the same position

Dim asmDef As AssemblyComponentDefinition = ThisDoc.Document.ComponentDefinition

Dim occ As ComponentOccurrence = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAssemblyOccurrenceFilter, "Pick Occurrence")
Dim occDocument As Document = occ.Definition.Document
Dim occDocumentName As String = occDocument.FullDocumentName
Dim position As Matrix = occ.Transformation
Do
	asmDef.Occurrences.Add(occDocumentName, position)
Loop While (MsgBox("Again?", MsgBoxStyle.YesNo + MsgBoxStyle.Question) = MsgBoxResult.Yes)