https://forum.solidworks.com/forum/index.cfm?forumid=3 FuseTalk Enterprise Edition https://forum.solidworks.com/forum/messageview.cfm?catid=11&threadid=14718 Sat, 06 Sep 2008 17:54:52 EST William Crosby 1
'------- CODE ----------
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

'Purpose : Returns the Windows Handle of a Dialog based on its caption.
'Inputs : sDialogCaption The dialog caption.
' [sClassName] The class name of the dialog. If unknown, do not specify
' this parameter.
'Outputs : The Dialogs Window Handle
'Notes : 1/ Find windows scans down the Z Order of the dialogs currently displayed,
' 2/ To Call in a VBA form use: lHwnd = DialogGetHwnd(Me.Caption)
' 3/ Use Spy ++ (comes with Visual Studio), OR the function DialogGetClassName to
' return the class names of forms.

Function DialogGetHwnd(ByVal sDialogCaption As String, Optional sClassName As String = vbNullString) As Long
On Error Resume Next
DialogGetHwnd = FindWindowA(sClassName, sDialogCaption)
On Error GoTo 0
End Function

'Purpose : Returns the class name of a object given the handle or caption
'Inputs : [sCaption] = The objects caption
' [lHwnd] = The objects handle
'Outputs :
'Notes : Pass in either sCaption OR lHwnd, to get a class name

Function DialogGetClassName(Optional sCaption As String, Optional lHwnd As Long) As String
Const clMaxLen As Long = 256
Dim lRetVal As Long, sResult As String * clMaxLen

If Len(sCaption) Then
'Get Dialog Handle
lHwnd = DialogGetHwnd(sCaption)
End If
If lHwnd Then
'Get Class Name
lRetVal = GetClassName(lHwnd, sResult, clMaxLen)
DialogGetClassName = Left$(sResult, lRetVal)
End If
End Function

Sub main()
Dim swApp As SldWorks.SldWorks
Dim swhWnd As Long, winhWnd As Long
Set swApp = Application.SldWorks
swhWnd = swApp.Frame.GetHWnd ' Get SolidWorks windows handler from SolidWorks
swClsname = DialogGetClassName(vbNullString, swhWnd) ' Get SolidWorks class name from SolidWorks
winhWnd = DialogGetHwnd(swCaption) ' Get SolidWorks windows handler from Windows
winClsname = DialogGetClassName(vbNullString, winhWnd) ' Get SolidWorks class name from Windows
MsgBox "SW Handle for SW: " & swhWnd & vbCrLf & "SW Class for SW: " & swClsname & vbCrLf & "Win Handle for SW: " & winhWnd & vbCrLf & "Win Class for SW: " & winClsname
End Sub
]]> https://forum.solidworks.com/forum/messageview.cfm?catid=11&threadid=14711 Sat, 06 Sep 2008 00:15:59 EST Mario Linares 2 I have changed the units to inches and save my part and drawing. However, when I open a new part the software keeps the "millimeteres" instead.
How can I setup SW to keep the units in "inches" for the new parts and drawings all the time?.

Thanks.
Mario ]]> https://forum.solidworks.com/forum/messageview.cfm?catid=11&threadid=14708 Fri, 05 Sep 2008 19:43:22 EST Ahmad Zulker 6
I want to place a component into assembly automatically base on coordinate system. How to handle this case, any experience on this ?

See attached image...

Thanks!
]]> https://forum.solidworks.com/forum/messageview.cfm?catid=11&threadid=14702 Fri, 05 Sep 2008 14:42:29 EST Mahir Abrahim 2

---

Sub main()
Dim swApp As SldWorks.SldWorks
Dim swDoc As SldWorks.ModelDoc2
Dim swFM As SldWorks.FeatureManager
Dim swSelMgr As SldWorks.SelectionMgr
Dim swFeat As SldWorks.Feature
Dim iNumSel As Integer
Dim i As Integer
Dim bool As Boolean

Set swApp = Application.SldWorks
Set swDoc = swApp.ActiveDoc

If swDoc.GetType <> swDocASSEMBLY Then Exit Sub 'Exit if no assembly open

Set swFM = swDoc.FeatureManager
Set swSelMgr = swDoc.SelectionManager

iNumSel = swSelMgr.GetSelectedObjectCount
If iNumSel > 1 Then
For i = 1 To iNumSel
If i = iNumSel Then
bool = swSelMgr.SetSelectedObjectMark(i, 2, swSelectionMarkSet)
Else
bool = swSelMgr.SetSelectedObjectMark(i, 1, swSelectionMarkSet)
End If
Next i

Set swFeat = swFM.InsertDerivedPattern
End If

Set swApp = Nothing
Set swDoc = Nothing
Set swFM = Nothing
Set swSelMgr = Nothing
End Sub

]]> https://forum.solidworks.com/forum/messageview.cfm?catid=11&threadid=14701 Fri, 05 Sep 2008 14:21:12 EST Marc Godbout 2
Marc
]]> https://forum.solidworks.com/forum/messageview.cfm?catid=11&threadid=14689 Fri, 05 Sep 2008 09:58:51 EST Luke Malpass 7
For example say you have a view of a cube and it is positioned in the middle of a drawing sheet. If you get the bottom left edge vertex of the box and call the Edge::GetStartVertex::GetPoint it returns 0, 0, 0 for example as it is the bottom corner in the model. However, I want that position relative to the drawing sheet, which would be something like 0.15, 0.1, 0 (x,y,z in meters).

I have tried using MathUtility to create a point and apply a transform to it using the views ModelToViewTransform and ModelToViewTransform.Inverse, and neither give the correct result. I have tried using the sheet view, the model view, everything.

It is a simple enough request that seems impossible to do. Any advice anyone? ]]> https://forum.solidworks.com/forum/messageview.cfm?catid=11&threadid=14686 Fri, 05 Sep 2008 08:45:35 EST Lee Priest 3
I've used the swPropertyManagerOptions_MultiplePages option to create the buttons, and I'm aware of the PropertyManagerPage2Handler4_OnNextPage event, but I'm not sure where to go from there.

Does each page have to be generated when the user clicks the next button, and if the user goes back to the previous page and it is created again from scratch, wouldn't all the information be lost?

Thanks!

Lee ]]> https://forum.solidworks.com/forum/messageview.cfm?catid=11&threadid=14683 Fri, 05 Sep 2008 08:00:16 EST Philip Prendeville 6
I've downloaded a few really useful macro files. I want to assign shortcut keys and I'm following the help files:

"To assign a macro to a shortcut key:

With a document open, click Tools, Customize, Keyboard.

Select Macros in Categories.

If Macros is not listed, you must create a macro folder and record a macro in your SolidWorks installation directory, as described in the first procedure".

I've created a folder in the data folder in Program Files>SolidWorks.... and copied the macros in here. Macros isn't listed in the categories area though. What next?
]]> https://forum.solidworks.com/forum/messageview.cfm?catid=11&threadid=14679 Fri, 05 Sep 2008 05:18:19 EST Y I 1 I am trying to create a feature in SolidWorks model.

This feature is already present in the model as a set of faces in imported geometry.

I have information about feature type and parameters, such as hole depth, hole diameter, also I know id of faces.

Function FeatureWorksApp->recognizeFeatureAutomatic() does not use the information about feature parameters.

How can I create this feature in SolidWorks?

Best regards.
Yuri Ignatiev ]]> https://forum.solidworks.com/forum/messageview.cfm?catid=11&threadid=14661 Thu, 04 Sep 2008 10:51:22 EST Chris King 8
I am an MS Office VBA developer who has been tasked to write a custom application that will upload a BOM table in Solidworks to our MRP system.

I have been attempting to use the ExportBOM Macro I found at Angel Six Forums as the basis for selecting the BOM.

However, whilst the ExportBOM macro runs it seems unable to detect the BOM in the drawing I am using as a test item.

I am fairly sure that the table object I have selected is a BOM (please see attached screenshot) but it isn't being detected.

I am completely new to the SW Object Model and would really appreciate any advice on where I am going wrong.

Thanks

Chris King
Guidance Ltd.
Leicester
UK ]]>