... containing the items to rename
Set oDictionary = CreateObject("Scripting.Dictionary")
lNumberOfItems...
... = oTopDoc.Product
Set oList = CreateObject("Scripting.dictionary")
CATIA.StatusBar = "Working...
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS Come Join Us!Are you an
Engineering professional? Join Eng-Tips Forums!
*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting GuidelinesJobs |
Home >
Forums >
Engineering Computer Programs >
Engineering Programs >
DASSAULT: CATIA products Forum
|
|
10 records matched your query of Scripting.dictionary. Outputting records 1 to 10. jzecha (Aerospace)
... containing the items to rename
Set oDictionary = CreateObject("Scripting.Dictionary")
lNumberOfItems... ... = oTopDoc.Product
Set oList = CreateObject("Scripting.dictionary")
CATIA.StatusBar = "Working... eperichon (Aerospace)
...
Set oList = CreateObject("Scripting.dictionary")
CATIA.StatusBar = "Working... ...
End If
Set oCurrentProd = oTopDoc.Product
Set oList = CreateObject("Scripting.dictionary... lapek (Aerospace)
...("Scripting.Dictionary") and it works perfectly
thank you for your help... ...("Scripting.Dictionary")
For j = 1 To osel.Count
sEdgeName = osel.Item(j).Value.name
Dim aEdgeName
aEdgeName... lapek (Aerospace)
... = CreateObject("Scripting.Dictionary")
For j = 1 To osel2.Count
sEdgeName = osel2.Item(j).Value.Name... ... ("Topology.Edge,sel")
iFoundEdges = 0
Set oFoundEdges = CreateObject("Scripting.Dictionary")
For j... rkncatia (Mechanical)
... prod = catia.ActiveDocument.product
Set bom = CreateObject("Scripting.Dictionary... ... = CATIA.ActiveDocument
Set oTopProduct = oTopProductDoc.Product
Set oDictionary = CreateObject("Scripting.Dictionary... sezrg (Computer)
...
oTopProduct.ApplyWorkMode DESIGN_MODE
Set oDict1 = CreateObject("Scripting.Dictionary")
lNumberOfItems... phillcom3 (Aerospace)
... = oSelection.VisProperties
Set oCurrentProd = oTopDoc.Product
Set oList = CreateObject("Scripting.dictionary... TheKyle9 (Mechanical)
... as item
[code VBA]Dim mybom As New Scripting.Dictionary
For i = 1 To k
If Not mybom.Exists(tab(1... suresh070379 (Mechanical)
... initState As New Scripting.dictionary ' need MS Scripting runtime
Dim odoc As DrawingDocument
Set... weagan22 (Aerospace)
...() As Variant
Set oDic = CreateObject("Scripting.Dictionary")
strComputer = "."
Set... SEARCH AGAIN |
ResourcesWhat is rapid injection molding? For engineers working with tight product design timelines, rapid injection molding can be a critical tool for prototyping and testing functional models. Download Now
The world has changed considerably since the 1980s, when CAD first started displacing drafting tables. Download Now
Prototyping has always been a critical part of product development. Download Now
As the cloud is increasingly adopted for product development, questions remain as to just how cloud software tools compare to on-premise solutions. Download Now
|