How to change PART model with Excel VBA

cko — Mon, 25 Mar 2024 12:20:39 GMT

1. Define the dimension name of the PART model in uppercase English letters.

2. program execution code

[Please refer to the attached file for Excel VBA code.]
**********************************************************************************

Dim BaseSession As pfcls.IpfcBaseSession
Dim Session As IpfcSession
Dim model As pfcls.IpfcModel
Dim Solid As IpfcSolid
Dim ModelItemOwner As IpfcModelItemOwner

'// Current Model Information
Set BaseSession = conn.Session
Set model = BaseSession.CurrentModel
Set Solid = model
Set ModelItemOwner = Solid

*****

'// SET Regenerate
Dim RegenInstructions As New CCpfcRegenInstructions
Dim Instrs As IpfcRegenInstructions
Set Instrs = RegenInstructions.Create(False, False, Nothing)

Dim BaseDimension As IpfcBaseDimension

Dim j As Long

For j = 0 To rng.Count - 1

Set BaseDimension = ModelItemOwner.GetItemByName(EpfcModelItemType.EpfcITEM_DIMENSION, Cells(j + 6, "B"))

'// Send entered dimension values to model
BaseDimension.DimValue = Cells(j + 6, "C")

Next j

'// Regenerate
Call Solid.Regenerate(Instrs)
Call Solid.Regenerate(Instrs)

'// Window Repaint
Dim Window As pfcls.IpfcWindow
Set Window = BaseSession.CurrentWindow

Window.Repaint

conn.Disconnect (2)
*****************************************************
How to use the program

1. Change the name of a dimension in a model.
. Example) ADD375 -> DOM01

2. Enter the name of the dimension in your model under Cells(6,B).
.Three or more sizes are also possible.

3. Click the GET button
. Retrieves dimension values from model

4. Click the Change button
. Change the dimension value and click the change button

topic How to change PART model with Excel VBA in Customization

How to change PART model with Excel VBA