topic Re: need code example in Inventor Programming Forum

need code example

Anonymous — Fri, 02 Mar 2007 15:44:08 GMT

I need to create a macro that fires on save and removes all "hard typing" in the parts list. I haven't used vba for years and am very rusty. Can anyone get me started with code examples?

Re: need code example

Anonymous — Fri, 02 Mar 2007 16:26:41 GMT

>removes all "hard typing" in the parts list

do you mean "Static" values (the blue values) in a drawing parts list? If so, I couldn't find anything in the VBA API to control whether a PartsListCell is static.

Re: need code example

Anonymous — Mon, 05 Mar 2007 10:21:51 GMT

Maybe this is what he is looking for???

Sub StaticValue()

Dim oDrawDoc As DrawingDocument
Dim oSheet As Sheet
Dim oPL As PartsList
Dim oRow As PartsListRow
Dim i As Integer

Set oDrawDoc = ThisApplication.ActiveDocument
Set oSheet = oDrawDoc.ActiveSheet
Set oPL = oSheet.PartsLists.Item(1)
For Each oRow In oPL.PartsListRows
For i = 1 To oRow.Count
If oRow.Item(i).Static = True Then
MsgBox "Static value found! (" & oRow.Item(i).Value & ")",
vbInformation
End If
Next i
Next oRow

End Sub

--
T. Ham
CAD Automation & Systems Administrator
CDS Engineering BV

HP xw4300 Workstation
Dual Pentium XEON 3.6 Ghz
4 GB SDRAM
NVIDIA QUADRO FX 3450/4000 SDI (Driver = 8.4.2.6)
250 GB SEAGATE SATA Hard Disc
3Com Gigabit NIC

Windows XP Professional SP2
Autodesk Inventor Series 10 SP3a
--

Re: need code example

Anonymous — Mon, 05 Mar 2007 17:25:56 GMT

This is fine for identifying static values, but what I need is to revert back to the value from the part model using code.

Re: need code example

Anonymous — Tue, 06 Mar 2007 08:23:09 GMT

Are you afraid of editing code?

--
T. Ham
CAD Automation & Systems Administrator
CDS Engineering BV

HP xw4300 Workstation
Dual Pentium XEON 3.6 Ghz
4 GB SDRAM
NVIDIA QUADRO FX 3450/4000 SDI (Driver = 8.4.2.6)
250 GB SEAGATE SATA Hard Disc
3Com Gigabit NIC

Windows XP Professional SP2
Autodesk Inventor Series 10 SP3a
--

Re: need code example

Anonymous — Tue, 06 Mar 2007 08:26:57 GMT

Re: need code example

Anonymous — Tue, 06 Mar 2007 18:13:14 GMT

No, just ignorant. I was trying this:

Dim oCell as PartsListCell
Set oCell.Static = True (this got me an "Improper use of property" message).

My apologies for trying to learn from others who might know better.

Re: need code example

Anonymous — Tue, 06 Mar 2007 19:15:15 GMT

you don't Set a property.

Set and Let have important (different) meanings in VBA. Use Set for objects, use Let for properties.

Change the code to:

Let oCell.Static = True

Re: need code example

Anonymous — Tue, 06 Mar 2007 21:20:10 GMT

Thanks. Thats a great explanation!