08-02-2021
12:13 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-02-2021
12:13 AM
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)