VBA SOLIDWORK18 Get the name of the currently open file This is the code to get the active model name in solidworksDim swApp As SldWorks.SldWorksDim swModel As ModelDoc2Sub SolidworksStart() On Error Resume Next '// Setting up SolidWorks application objects Set swApp = GetObject(, "SldWorks.Application") On Error GoTo 0 If swApp Is Nothing Then MsgBox "Make sure SolidWorks is running.", vbCritical Exit Sub End If '/.. 2024. 12. 30. 4. SldWorks.CustomPropertyManager 1/2 ICustomPropertyManager 인터페이스를 통해 다양한 종류의 사용자 정의 속성을 일관되게 관리할 수 있지만, 각 속성 유형에 맞게 인터페이스의 인스턴스를 적절히 가져와야 합니다.파일별(일반) 사용자 정의 속성에 연결하려면 IModelDocExtension::CustomPropertyManager 속성을 호출하고 속성 매개변수로 빈 문자열("")을 전달해야 합니다.이렇게 하면 해당 문서에 대한 일반적인 사용자 정의 속성 관리자를 얻을 수 있습니다. 아래 코드를 사용 합니다Dim swModel As SldWorks.ModelDoc2Dim swExtension As ModelDocExtensionDim customPropManager As CustomPropertyManagerSet swExten.. 2024. 12. 27. 이미지 만들기 -SAMPLE Sample 코드Private Sub InsertModelImageIntoExcel() Dim swExport As Boolean Dim tempImagePath As String Dim pic As Picture Dim mergedWidth As Double Dim mergedHeight As Double Dim targetCell As Range '// 이미지 삽입 Set targetCell = WS.Range("E2") '// 현재 활성화된 문서가 있는지 확인 If swModel Is Nothing Then MsgBox "열려 있는 모델이 없습니다.", vbCritical Exit Sub End If '.. 2024. 12. 26. Change Dimension Example (VBA) □ introductionGet Feature name and type with only dimension values from modelGet dimension name and value=Capture the image of the model. The location where the image is saved is "C:\temp".For detailed usage instructions, please refer to the video below. ▷ Solidworks connection codePublic swApp As SldWorks.SldWorksPublic swModel As ModelDoc2Public Sub SolidworksStart() On Error Resume Next .. 2024. 12. 25. 모델의 Feature Name, Type, ID 및 Dimensions Name, value 가져오기 CodeOption ExplicitDim swApp As SldWorks.SldWorksDim swModel As SldWorks.ModelDoc2Dim swFeat As SldWorks.FeatureDim WS As WorksheetDim rowIndex As LongSub ExportToExcel() On Error Resume Next Set WS = ThisWorkbook.Worksheets("Model01") Set swApp = GetObject(, "SldWorks.Application") On Error GoTo 0 If swApp Is Nothing Then MsgBox "SOLIDWORKS를 찾을 수 없습니다. 실행 중인지 확인하세요.", .. 2024. 12. 25. 3.SldWorks.Feature 개념 Dim swFeature As SldWorks.Feature는 SolidWorks API를 사용하여 VBA에서 특정 Feature를 참조하기 위한 객체를 선언하는 구문입니다. 여기서 SldWorks.Feature는 SolidWorks의 특정 설계 요소( Feature)를 나타내는 객체 유형입니다.SldWorks.Feature Members IFeature Interface Members - 2024 - SOLIDWORKS API HelpIFeature Interface Members The following tables list the members exposed by IFeature. Public Properties Public Methods NameDescription AddCommentAdds a.. 2024. 12. 25. 2. SldWorks.ModelDoc2 개념 SOLIDWORKS API에서 ModelDoc2는 모든 문서 유형(파트, 어셈블리, 도면)에 대한 공통적인 기능을 제공하는 인터페이스입니다. 즉, 파트, 어셈블리, 도면 문서를 가리키는 포인터 역할을 하며, 이를 통해 다양한 문서 속성에 접근하고 조작할 수 있습니다.▷ ModelDoc2를 사용하면 다음과 같은 작업을 수행할 수 있습니다.문서 열기, 저장, 닫기: 파일 이름 변경, 파일 형식 변경 등 다양한 옵션을 사용하여 문서를 관리할 수 있습니다.문서 속성 조회 및 수정: 문서 이름, 저장 경로, 작성자 등의 기본 정보부터 사용자 정의 속성까지 다양한 속성에 접근하여 조회하거나 수정할 수 있습니다.뷰 관리: 뷰 생성, 삭제, 활성화 등 뷰 관련 작업을 수행할 수 있습니다.측정: 거리, 각도, 면적 등을.. 2024. 12. 24. 1. SldWorks.SldWorks 개념 □ SldWorks.SldWorks: SOLIDWORKS 애플리케이션의 핵심SldWorks.SldWorks는 SOLIDWORKS 애플리케이션 전체를 나타내는 가장 상위 레벨의 객체입니다. 마치 건물의 기초와 같이 모든 SOLIDWORKS 기능에 대한 접근점을 제공하며, 매크로나 애드인을 개발할 때 가장 먼저 만나게 되는 객체입니다. ▷ SldWorks.SldWorks의 역할SOLIDWORKS 애플리케이션 관리: SldWorks 객체를 통해 SOLIDWORKS 애플리케이션을 제어하고 관리할 수 있습니다. 예를 들어, 새로운 문서를 생성하거나, 기존 문서를 열고 저장하는 등의 작업을 수행할 수 있습니다.다른 객체에 대한 접근: SldWorks 객체는 ModelDoc2(모델 문서), Feature(피처), C.. 2024. 12. 24. SOLIDWORKS 매크로 및 애드인 개발을 위한 API 개체 모델 이해 SOLIDWORKS 매크로 또는 애드인을 개발하기 위해서는 API 개체 모델에 대한 깊이 있는 이해가 필수적입니다. API 개체 모델은 SOLIDWORKS의 다양한 기능과 요소들을 객체로 표현하여 프로그래밍 방식으로 제어할 수 있도록 하는 구조입니다.□ 주요 개체 간의 상호 작용- SOLIDWORKS API 개체 모델에서 가장 중요한 몇 가지 개체와 그들의 상호 작용SldWorks: 전체 SOLIDWORKS 응용 프로그램을 나타내는 최상위 객체입니다. 다른 모든 객체에 대한 접근점을 제공합니다.ModelDoc2: 하나의 SOLIDWORKS 문서(파트, 어셈블리, 도면 등)를 나타냅니다.Feature: 모델의 특징(스케치, 돌출, 구멍 등)을 나타냅니다.Component: 어셈블리 환경에서 부품을 나타냅니.. 2024. 12. 23. BOM 컨셉 코드 Option ExplicitSub GetAssemblyStructure01() '// SolidWorks 객체 선언 Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swAssembly As SldWorks.AssemblyDoc Dim swConfig As SldWorks.Configuration Dim swRootComponent As SldWorks.Component2 '// 이미 실행 중인 SolidWorks 찾기 Set swApp = GetObject(, "SldWorks.Application") Set swModel = swApp.IActiveDoc If swMo.. 2024. 12. 20. 독립 프로그램 개발을 위한 VB.NET 개발 환경 설정 □ SOLIDWORKS API SDK란 무엇일까요?SOLIDWORKS API SDK는 SOLIDWORKS 프로그램을 더욱 효율적으로 사용하고, 새로운 기능을 추가할 수 있도록 개발자에게 제공되는 도구입니다. 마치 레고 블록처럼, SOLIDWORKS의 기본 기능들을 조합하고 확장하여 자신만의 맞춤형 프로그램을 만들 수 있게 해줍니다. SOLIDWORKS API SDK는 SOLIDWORKS의 기능을 확장하고 자동화하여 작업 효율성을 높이고, 자신만의 맞춤형 프로그램을 개발할 수 있도록 도와주는 강력한 도구입니다. ▷ API(Application Programming Interface):- 프로그램들이 서로 통신하고 데이터를 주고받을 수 있도록 하는 일종의 중개자 역할을 합니다. SOLIDWORKS API는 .. 2024. 12. 20. 어셈블리 구조를 가져 오는 코드 - 컨셉 □ 컨셉 코드GetAssemblyStructure():현재 활성화된 어셈블리 문서를 가져옵니다.최상위 컴포넌트를 얻고, 재귀적으로 모든 하위 컴포넌트를 탐색합니다.TraverseComponents():각 컴포넌트의 이름을 출력하고, 자식 컴포넌트를 탐색합니다.들여쓰기를 통해 계층 구조를 명확히 표시합니다.Option ExplicitSub GetAssemblyStructure() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swAssy As SldWorks.AssemblyDoc Dim swConfig As SldWorks.Configuration Dim swRootComp As SldWorks.Comp.. 2024. 12. 19. 이전 1 2 다음 반응형
