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

This?

 

Dim oDoc As Document
oDoc = ThisApplication.ActiveDocument

Dim oPartCompDef As PartComponentDefinition
oPartCompDef = oDoc.ComponentDefinition

Dim oSketch As Sketch

	oSketch = oPartCompDef.Sketches.Item(1)

Regards,

 

FINET L .

If this post solved your question, please kindly mark it as "Solution"

If this post helped out in any way to solve your question, please drop a "Like"

@LinkedIn     @JohnCockerill