Continue to Site

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

Register Log in
  • Congratulations waross on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Macro with an input dialog box with dropdown 1

Status
Not open for further replies.
TiagoFigueiredo

TiagoFigueiredo

Industrial
May 22, 2013
494
PT
I everyone,

I am trying to make a macro which contains a dialog box, with a dropdown menu, with some predefined values. Any one have tried?

For example:

I would like to run the macro and the dialog box show the sizes of available threads diameters (M4, M5, M6, M8, M10...) Instead of write this values. It's possible to make this?
 
Replies continue below

Recommended for you

Sort by date Sort by votes
you can do it using VBA and a Form

Eric N.
indocti discant et ament meminisse periti ​
 
Upvote 0 Downvote
google does

Eric N.
indocti discant et ament meminisse periti ​
 
Upvote 0 Downvote
Yes you are right, i forgot to say that i'm trying to make that in a macro in Catia. My macro is written in CATScript, and i'm realizing that is not possible with CATScript. Do you suggest to change it to vba?
 
Upvote 0 Downvote
Maybe you can modify this example...

file attached for testing..

Code: 
Sub CATMain()
CreateProgressBar
Launch
End Sub

Sub CreateProgressBar()
    Dim ws, fso, Temp, PathOutPutHTML, fhta
    Set ws = CreateObject("wscript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Temp = ws.ExpandEnvironmentStrings("%Temp%")
    PathOutPutHTML = Temp & "\ModifyInstances.hta"
    Set fhta = fso.OpenTextFile(PathOutPutHTML, 2, True)
 
fhta.WriteLine "<html>"
fhta.WriteLine "<head>"
fhta.WriteLine "<title>Text</title>"
fhta.WriteLine "<HTA:APPLICATION "
fhta.WriteLine "ID=""objHTA"" "
fhta.WriteLine "APPLICATIONNAME=""Catia_Dropdown"" "
fhta.WriteLine "SCROLL=""NO"" "
fhta.WriteLine "SINGLEINSTANCE=""yes"" "
fhta.WriteLine "Caption = ""no"""
fhta.WriteLine ">"
fhta.WriteLine "</head>"
fhta.WriteLine "<script language=""VBScript"">"
fhta.WriteLine " Sub Window_Onload"
fhta.WriteLine "Dim intWidth, intHeight"
fhta.WriteLine "intWidth = 300"
fhta.WriteLine "intHeight = 100"
fhta.WriteLine "Me.ResizeTo intWidth, intHeight"
fhta.WriteLine "LoadDropDown"
fhta.WriteLine "End Sub"
fhta.WriteLine "Sub LoadDropDown"
fhta.WriteLine "For I=2 TO 10"
fhta.WriteLine "Set objOption = Document.createElement(""OPTION"")"
fhta.WriteLine "objOption.Text = I"
fhta.WriteLine "objOption.Value = I"
fhta.WriteLine "objDrop.Add(objOption)"
fhta.WriteLine "Next"
fhta.WriteLine "End Sub"
fhta.WriteLine "Sub SendToCatia"
fhta.WriteLine "Dim CATIA"
fhta.WriteLine "Set CATIA = GetObject(, ""CATIA.Application"")"
fhta.WriteLine "Dim oPartDocument "
fhta.WriteLine "Dim oPart"
fhta.WriteLine "Dim oCircularPattern "
fhta.WriteLine "Set oPartDocument = CATIA.ActiveDocument"
fhta.WriteLine "Set oPart = oPartDocument.Part"
fhta.WriteLine "Set oCircularPattern = oPart.FindObjectByName(""CircPattern.1"")"
fhta.WriteLine "oCircularPattern.AngularRepartition.InstancesCount.Value = objDrop.value"
fhta.WriteLine "oCircularPattern.CircularPatternParameters = catCompleteCrown"
fhta.WriteLine "oPart.Update"
fhta.WriteLine "window.close"
fhta.WriteLine "End Sub"
fhta.WriteLine "</script>"
fhta.WriteLine "<body>"
fhta.WriteLine "<select name=""objDrop"">"
fhta.WriteLine "</select>"
fhta.WriteLine "<input type=""button"" value=""Send To Catia"" name=""cATIABtn""  onClick=""SendToCatia"">"
fhta.WriteLine "<input id=""BtnExit""   type=""button"" value=""Cancel""   onclick=""window.close"">"
fhta.WriteLine "</body>"
fhta.WriteLine "</html>"
fhta.Close
End Sub



Sub Launch()
Set objShell = CreateObject("Wscript.Shell")
Temp = objShell.ExpandEnvironmentStrings("%Temp%")
PathOutPutHTML = Temp & "\ModifyInstances.hta"
objShell.Run (PathOutPutHTML), 1, True
End Sub

______

Alex ,
 
 http://files.engineering.com/getfile.aspx?folder=415424ea-e2c3-40d9-a122-6c09444bb426&file=CircPattern_HTA.CATPart
Upvote 0 Downvote
Many thanks about this, it looks really what i need. Thanks by your help.
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

Med Che
  • Locked
  • Helpful tip
Macro to Count the Number of Leaders Associated with a 2D Component
Replies
5
Views
82
Little Cthulhu
Little Cthulhu
jzecha
  • Locked
  • Question
Bounding Box for an Assembly 1
Replies
8
Views
86
Little Cthulhu
Little Cthulhu
Med Che
  • Locked
  • Question
Help with VBA Macro Script in CATIA: Displaying Dimension Value Annotations 3d
Replies
2
Views
87
Med Che
Med Che
Alexander888
  • Locked
  • Question
How to move items to a geometrical set with macro.
Replies
3
Views
65
Little Cthulhu
Little Cthulhu
howdyitssam
  • Locked
  • Question
Trying to replace part with another part with identical filename
Replies
0
Views
50
howdyitssam
howdyitssam

Part and Inventory Search

Sponsor

Back
Top