草圖中有多種圖元，例如圓，線等。有時新的草圖我們需要重用舊草圖的圖元，不需要再畫一遍，產品里可以采取復制粘貼。API提供了Sketch.CopyContentsTo，可以從一個草圖把所有內容復制到另外草圖。如果是不同零件中的草圖，只需要注意在復制后調用一下文檔的Update。以下是個簡單的代碼，它把零件1的草圖1圖元內容復制到零件2的草圖1.

Sub VBAMain()
? ?Dim oPart1 As PartDocument
? ?Set oPart1 = ThisApplication.Documents.Open("c:\part1.ipt", False)
? ?
? ?Dim oSketch_inPart1 As Sketch
? ?Set oSketch_inPart1 = oPart1.ComponentDefinition.Sketches(1)
? ?
? ?Dim oPart2 As PartDocument
? ?Set oPart2 = ThisApplication.Documents.Open("c:\part2.ipt", False)
? ?
? ?Dim oSketch_inPart2 As Sketch
? ?Set oSketch_inPart2 = oPart2.ComponentDefinition.Sketches(1)
? ?
? ?Call oSketch_inPart1.CopyContentsTo(oSketch_inPart2)
? ??
? ?Call oPart1.Close(True)
? ?
? ?'記住 update!
? ? oPart2.Update
? ?oPart2.Save
? ?Call oPart2.Close(True)
? ?
End Sub

總結

以上是生活随笔為你收集整理的如何拷贝草图图元到另一个草图的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。