JasonNewell.NET

RE: Solid edge reports using an excel macro ?

Jason Newell — Tue, 07 Sep 2010 09:49:22 GMT

Source with attachment

' Add reference to "Solid Edge Install Data Type Library (SEInstallData.dll)"
' Add reference to "Windows Scripting Host Object Model"

Sub Demo()
    Call OpenInReport("C:\Program Files (x86)\Solid Edge ST3\Training\Coffee Pot.asm")
End Sub

Sub OpenInReport(strFile As String)
    Dim objInstallData As SEInstallDataLib.SEInstallData
    Dim objFSO As IWshRuntimeLibrary.FileSystemObject
    Dim objShell As IWshRuntimeLibrary.wshShell
    Dim strInstallPath As String
    Dim strReportPath As String
    Dim strCommand As String
    
    Set objFSO = New IWshRuntimeLibrary.FileSystemObject

    Set objInstallData = New SEInstallData
    Set objFSO = New IWshRuntimeLibrary.FileSystemObject
    Set objShell = New IWshRuntimeLibrary.wshShell
    
    strInstallPath = objInstallData.GetInstalledPath
    strReportPath = objFSO.BuildPath(strInstallPath, "report.exe")
    strCommand = """" & strReportPath & """ """ & strFile & """" ' God I hate VB!
    objShell.Run strCommand

    Set objFSO = Nothing
    Set objShell = Nothing
    Set objInstallData = Nothing
End Sub

Creating StructuralFrame - SE20, VB6

NV — Tue, 07 Sep 2010 09:27:27 GMT

I have following code:

    Set structFrames = asmDoc.StructuralFrames

    Dim reqPaths(1 To 2) As Object

    Set reqPaths(1) = linSeg1

    Set reqPaths(2) = linSeg2

    Dim noOfPaths As Long

    noOfPaths = 2

    Set structFrame = structFrames.Add("c:\x.par", noOfPaths, reqPaths) ' Error here

I have been struggling more than 6 hours to overcome the error 'Run Time error '5' - Invalid Procedure call or atgument'. Tried every variation. Searched help. Searched internet. But without success.

Please help me.

Solid edge reports using an excel macro ?

Nodski — Mon, 06 Sep 2010 17:02:31 GMT

Is there a code that can be used in an excel macro that will carry out the equivalent of the user(s) selecting a solid edge assembly file..(.asm) then right click with a mouse, and then selecting the command "report" ?

Thanks in anticipation

Nodski

RE: Remove unused Linestyles

JR — Fri, 03 Sep 2010 07:45:27 GMT

I think this is a LinearStyle Object
DrafDokument -> LinearStyles -> LinearStyle

Remove unused Linestyles

kmwolf — Thu, 02 Sep 2010 13:25:48 GMT

In a batch that I downloaded RemDimSts.exe, the program is able to remove unused TextStyles, FillStyles, Hatchstyles and Dimstyles. I would like to add LineStyles as well, but can not figure out what the object property string is that I need to add to the program. I am a newbie to this, so any help ould be appreciated.

How to read block in a dft file without opening the dft file?

assassin — Thu, 02 Sep 2010 09:02:06 GMT

Dear all, I want to use the block which is contained in a draft file. And I won't open the draft file. Just like user drag a block from block library to a draft file in interactive environment. Any program language is OK! Thanks!

Inquire Element - Measure Diameter by VBA

JM — Thu, 02 Sep 2010 06:40:56 GMT

Hi, we have adaptive part with adaptive Inner and outer diameter. Measure values for this during placing into assembly isn't easy. We tryed made macro working this way:

1) select daptive part by mouse

2) run macro on slected part (adaptive part in selecset)

3) show/pick diameter on another part (Eg. shaft) in assembly, measure it by VBA. - How we can choose part/diameter and grab the diameter? (we need sometning like "objApp.StartCommand 25072" and grab Diameter results)

4) show/pick another diameter on another part (Eg. bore) in assembly, measure it by VBA - same problem like in point 3

5) use measured values for update adaptive part - no problem (Call ObjAdjustablePart.SetAdjustables.....)

Do somebody have idea how we can try it? Thank you!

dissolve Reference to SubASM - how to??

solid81 — Thu, 02 Sep 2010 02:23:19 GMT

AnyOne tried to dissolve a Reference?

I made it it works for the first level...

But I've got the problem with References to SubAsm-Parts - don't know how to dissolve it...

see the snippet below, I only get the SubAsm as an Occurrence, but not the Part the relation is related to

I know that references are there - for each hierarchical level - , but how to find the right next step reference ?

thx for any hint so that I can search in the right corner, too

Dim Relations As SolidEdgeAssembly.Relations3d

        Relations = Occurrence.Relations3d()

        For Each rel As Object In Relations
            If rel.type = SolidEdgeConstants.ObjectType.igPlanarRelation3d Then

[..]

Dim PlanarRelation3d As SolidEdgeAssembly.PlanarRelation3d = rel

                Dim ref1 As SolidEdgeFramework.Reference
                Dim ref2 As SolidEdgeFramework.Reference

                Dim Occ1 As SolidEdgeAssembly.Occurrence
                Dim Occ2 As SolidEdgeAssembly.Occurrence

                Dim RefItem1 As Object           ' RefPlane or Face / SolidEdgePart.RefPlane
                Dim RefItem2 As Object '      " / "   or SolidEdgeAssembly.AsmRefPlane

                If rel.GetElement1(True).type = SolidEdgeConstants.ObjectType.igReference Then
                    ref1 = rel.GetElement1(True)
                    Occ1 = PlanarRelation3d.Occurrence1
                    RefItem1 = ref1.Object     [...]

End If

If ... 'also with GetElement2

RE: Using Insight on a 64 bit Computer

Atom — Tue, 31 Aug 2010 07:47:05 GMT

I can not get web folders to set up. Any ideas?

Using Insight on a 64 bit Computer

Atom — Mon, 30 Aug 2010 15:06:40 GMT

Anyone running Solid Edge V19 using Insight on a 64 bit computer?

RE: File Properties using VB.NET leave file locked

Bizare — Mon, 30 Aug 2010 09:57:18 GMT

Yes! This works like a charm. Thanks for the expert advice.

RE: File Properties using VB.NET leave file locked

JR — Mon, 30 Aug 2010 03:20:06 GMT

after reading the properties you must ever start Garbage Collection:
.....
GC.Collect()
GC.WaitForPendingFinalizers()
GC.Collect()
GC.WaitForPendingFinalizers()
End Function

The GC needs to be called twice in order to get the finalizers called -
the first time: it simply makes a list of what is to be finalized,
the second time: it actually the finalizing.
Only then will the object do it automatic ReleaseComObject.

File Properties using VB.NET leave file locked

Bizare — Fri, 27 Aug 2010 16:36:12 GMT

I am converting code from VB6 to VB.net whose purpose is to access file properties. In VB6, it works just fine.
But in VB.NET, the propertysets.CLOSE() function does not seem to release the file. At any rate, the SECOND time
I call the function (on the same file), it fails at the point indicated below. Once the program exits, the file
is released. Then I can re-run the code, calling pTEST successfully the first time, but not the second time.

Any ideas how to make vb.net reliable access file properties?

SE version 20

I call pTEST like this:
sTest = pTEST("C:\drawingfiles\amaxdeck\A20000015.asm", "Title", "SummaryInformation") 'succeeds first time
sTest = pTEST("C:\drawingfiles\amaxdeck\A20000015.asm", "Title", "SummaryInformation") 'vb6 OK; vb.NET fails

*** VB6 version *** work fine every time.
Public Function pTEST(ByRef FileWithProp As String, ByRef pKey As String, ByRef pGroup As String) As String
    'Solid Edge V20 VB6

    'FileWithProp = "C:\drawingfiles\amaxdeck\A20000015.asm" pKey = "Title" pGroup = "SummaryInformation"
    Dim fPropSets As SolidEdgeFileProperties.PropertySets       'PropertySets - for files not open
    Dim fProp As Object             'Properties - for files not open
    Dim ObjProp As Object       'SolidEdgeFramework.Properties
    Dim sPropTest As String

    Set fPropSets = CreateObject("SolidEdge.FileProperties")
    fPropSets.Open FileWithProp
    Set fProp = fPropSets(pGroup)
    pTEST = fProp(pKey).value

    If Not (fProp Is Nothing) Then
        Set fProp = Nothing
    End If
    If Not (fPropSets Is Nothing) Then
        fPropSets.Close
        Set fPropSets = Nothing
    End If
End Function

*** vb.net version *** works right the first time, but fails the second time called for the same file.
   Public Function pTEST(ByRef FileWithProp As String, ByRef pKey As String, ByRef pGroup As String) As String
        'return the fileproperty pKey in group pGroup in file FileWithProp
        'FileWithProp = "C:\drawingfiles\amaxdeck\A20000015.asm"
        ' pKey = "Title" pGroup = "SummaryInformation"
        'SolidEdge V20 vb.net 2010 Express
        Dim fPropSets As Object ' SolidEdgeFileProperties.PropertySets
        Dim fProp As Object             'Properties - for files not open
        Dim sPropTest As String = ""

        fPropSets = CreateObject("SolidEdge.FileProperties")
        fPropSets.Open(FileWithProp)        'code fails here the second time called with the same file!!!!!!!
        fProp = fPropSets(pGroup)
        pTEST = fProp(pKey).value
        If Not (fProp Is Nothing) Then
            Runtime.InteropServices.Marshal.ReleaseComObject(fProp)
            fProp = Nothing
        End If

        If Not (fPropSets Is Nothing) Then
            fPropSets.Close()                   'This seems like it should close and release the file, but it does not!!!
            Runtime.InteropServices.Marshal.ReleaseComObject(fPropSets)
            fPropSets = Nothing
        End If
    End Function

RE: XLS link to the part

Bizare — Fri, 27 Aug 2010 16:11:18 GMT

Yep, thats a real pain. You have to re-establish a link to that file before you can properly delete it.
Try this:

make sure the specified file exists. IF not, you could use Rev Mgr to point to a new XLS file.
create a dummy variable in the variable table of your model
Open the spreadsheet, highlight a cell, and CTRL-C
move back to your model, in the variable table in Formula, right-click paste link
right click (any field of any variable) - Edit Links (opens the Links dialog)
hightlight the Excel source file - click Break Link - Click Yes
Delete the dummy variable.

I might have a few details wrong, but I know this will work, because I've done it on hundreds of files.
Good luck.

RE: Save As for each view -- how 2 wait for SE !

JR — Fri, 27 Aug 2010 03:27:15 GMT

Hi,

the Idea of ErWo is good. But you can do this without events, like this:

Dim test As String = SE_App.ActiveEnvironment
Do While test <> "DrawingViewEdit" 'was the environment changed?
test = SE_App.ActiveEnvironment
Loop

and after closeView (window):

Do While test <> "Detail" 'back?
test = SE_App.ActiveEnvironment
Loop

vb6 se20 - solid edge Part - Hole size

lim jong hwa — Thu, 26 Aug 2010 21:42:17 GMT

hi-

(1ea Hole Circle in Sketch) of Holedata(vb) And ( 2ea(many) Hole Circle in Sketch) of Holedata(vb) are different

how to size of the hole(thread) was created in part ?

vb6 se20 - how to Drawing View Depth

lim jong hwa — Thu, 26 Aug 2010 21:24:18 GMT

Hi-

i can't find object (Set Drawing View Depth-dft)

where is it?

Please answer me

use VB6,se20

RE: Problem while getting the objects using "SelectSet" property.

JR — Thu, 26 Aug 2010 07:35:53 GMT

Hi,

by selection the type of objects on the first level in an assembly are "Ocurrences", but from second level are the selected objects "References"

try for reference:
objOccur = (SolidEdgeAssembly.Occurrence)objSelection.object

RE: About the "Callout"!

fatkids — Thu, 26 Aug 2010 03:42:37 GMT

Thanks, Danisan!

RE: Save As for each view -- how 2 wait for SE !

ErWo — Wed, 25 Aug 2010 03:28:50 GMT

You could try to use Events.

Try to find out (using Solid Egde Spy) which events are fired, and when. If one of this events is usefull to you, you can use this to set for instance a pulic Boolean. In your code you check this Boolean (via a do-while or so), and if the Boolean is set to true by the event your code can continue.

You can read about working with events in the SE programming guide.

Good luck

RE: help to transfer C# codes as following to C++ codes?

assassin — Tue, 24 Aug 2010 22:12:54 GMT

Somebody can help me?

I have to add a ATL simple object to the project to listening the application event Now. But I want to realize the function with simple C++ codes. Not MFC.

Please help me, thanks!

RE: FamilyMembers Panel problem (refreshing)

peter6396 — Tue, 24 Aug 2010 15:47:14 GMT

Thanks ErWo, but not work in my case. My modell is already updated.

The problem is that the "FamilyMember Tab" show not the active FamilyMember, if I change in my macro the active family member. For example, FamilyMember variables, which shows, are not variables of the active FamilyMember.

This is a Solid Edge ST2 error, in my opinion.

Save As for each view -- how 2 wait for SE !

solid81 — Tue, 24 Aug 2010 04:09:07 GMT

One Big Problem, googled, searched in forum - nothing found !

I'd like to save each drawing view with the "saveas" method to iges,

it works if I make a breakpoint on save as !!!, because SE needs some time to open the view

with the StartCommand, (haven't found any mathod for opening the view into viewedit).

So how can i find out SE is busy?

Dim views As SolidEdgeDraft.DrawingViews = DraftDoc.ActiveSheet.DrawingViews
        For i As Integer = 1 To views.Count

            Dim view As SolidEdgeDraft.DrawingView = views.Item(i)

            Dim NewFullName As String = IgesPath & FileName & "_" & i & ".igs"
            If System.IO.File.Exists(NewFullName) = True Then
                System.IO.File.Delete(NewFullName)
            End If

            Dim ActiveWindowName As String = SE_App.ActiveWindow.Caption
            'OpenView
            view.Select()
            SE_App.StartCommand(40037)

            'SE fnished??

            'Save Iges
            DraftDoc.SaveAs(NewFullName) 'BREAK

            'CloseView
            SE_App.ActiveWindow.close()
            DraftDoc.SelectSet.RemoveAll()
        Next

RE: FamilyMembers Panel problem (refreshing)

ErWo — Tue, 24 Aug 2010 01:28:27 GMT

Peter,

You could try this;

'Update All Links
objApp.StartCommand (40236) 'is update all links

'Update the Assembly
objAsm.UpdateStructureCache seUseOpenDocuments
objAsm.UpdateStructureCache seWalkFilesOnDisk
objAsm.UpdateDocument
objAsm.UpdatePathfinder seUpdate
objAsm.UpdatePathfinder seRebuild
objAsm.UpDateAll

help to transfer C# codes as following to C++ codes?

assassin — Mon, 23 Aug 2010 22:34:01 GMT

Dear Jason, please help me to transfer c# codes of Application Events to c++ codes? Thanks!

using System;
using System.Windows.Forms;
using System.Runtime.InteropServices;

namespace AppEventsCSharp
{
    public partial class Form1 : Form
    {
        private SolidEdgeFramework.Application SEApp ;
        private SolidEdgeFramework.ISEApplicationEvents_Event AppEvents;

        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            SEApp = Marshal.GetActiveObject("SolidEdge.Application")
                as SolidEdgeFramework.Application;

AppEvents = (SolidEdgeFramework.ISEApplicationEvents_Event)SEApp.ApplicationEvents;

AppEvents.BeforeCommandRun+=new SolidEdgeFramework.ISEApplicationEvents_BeforeCommandRunEventHandler(AppEvents_BeforeCommandRun);

}

        void AppEvents_BeforeCommandRun(int theCommandID)
        { MessageBox.Show("Command will run!"); }
    }
}

Problem while getting the objects using "SelectSet" property.

pthorat — Sun, 22 Aug 2010 07:59:31 GMT

I have an SolidEdge Assembly which is having an one more assembly in it .i.e assembly having a subassembly.

I am opening this assembly in Solidedge ST version application.

Then I am selecting some parts from MainAssembly and then some parts from its subassembly from path finder window , treeview.

Then , I am reading these selections using "SelectSet" property API on the main assembly

I am getting the currect total count of selected part form SelectSet property

But while reading and converting the objects in "SeletionSet', I am successful in converting the objects of main assembly parts only and while converting the objects of parts which are selected from subassembly, program does not able to convert these objects in any type of Solidedge document type.

So, please give me the information about , how I can access these parts which are selected from the subassembly using 'SelectSet' API.

For reference ,Code was written as follows.

AssemblyDocument)objApp.ActiveDocument;Occurrence objOccur = null;for (int n = 1; n <= objSelectedSet.Count; n++)try

{

objOccur = (SolidEdgeAssembly.

}

{

}

Occurrence)objSelection; //Gives error while loops for object of subassembly parts in main assembly.catch (Exception ex)throw ex;

objAsmDoc = (SolidEdgeAssembly.

objAsmOccurrences = objAsmDoc.Occurrences;

objSelectedSet = objAsmDoc.SelectSet;

SolidEdgeAssembly.

{

objSelection = objSelectedSet.Item(n);

FamilyMembers Panel problem (refreshing)

peter6396 — Fri, 20 Aug 2010 04:12:32 GMT

Hallo, when I use in my macro the following commands

objAsm.AssemblyFamilyMembers.GlobalEditMode = False 'changing edit mode

objAsm.AssemblyFamilyMembers.ActivateMember(sFamilyMember) 'changing Family Member

in Solid Edge ST2, the FamilyMembers panel not refreshing, only the graphic window and the occurence tree panel is refreshing. After closing my macro, there is a mismatch between the two panels (and grafic window).

Can anyone help?

Thank you!

P.S.

It is possible that the panel names others, I use hungarian version.

RE: AddLoftedFlange in SheetMetal

Jason Newell — Thu, 19 Aug 2010 04:33:56 GMT

Could somebody please provide me with a complete example of Curt's previous post. I'm hung up on his "'Assume that the file contains two cross section sketches" comment. I need this example but I also need it to create all of the necessary objects via code rather than assuming that a file is open.

Can anyone please help? I'm working on the SDK and need a good example. Please and thank you!

RE: PartList Positioning

ErWo — Thu, 19 Aug 2010 02:10:16 GMT

Thomas,

I've got two ideas;

Have you investigated the possibility of editing C:\Program Files\Solid Edge ST2\Template\Reports\Draftlist.txt. Just figger out where in this textfile the start location is saved, and edit these values (via your application).
After that reload the saved settings via the code you've given above?

An other option is to copy the content op the partslist on the clipboard (partslist.copytoclipboard method), and then load it from the clipboard into a normal SE table. For a normal SE table you CAN set it's origin.

Good luck.

RE: Alternate Assemblies

peter6396 — Wed, 18 Aug 2010 16:54:57 GMT

Hello, in hungarian ST2 version work this to find active member of AssemblyFamily:

...

    Dim sFilename As String
    Dim i As Long

    sFilename = Trim(objApp.ActiveWindow.Caption)
    sMemberName = vbNullString
    i = InStrRev(sFilename, "!", -1, vbTextCompare)
    sMemberName = Mid(sFilename, i + 1)    ' isolate member

    If Strings.Right(sMemberName, 16) = "][Csak olvasható" Then
      sMemberName = Strings.Left(sMemberName, Len(sMemberName) - 16)
    End If

In english version work?:

...

    Dim sFilename As String
    Dim i As Long

    sFilename = Trim(objApp.ActiveWindow.Caption)
    sMemberName = vbNullString
    i = InStrRev(sFilename, "!", -1, vbTextCompare)
    sMemberName = Mid(sFilename, i + 1)    ' isolate member

    If Strings.Right(sMemberName, 11) = "][Read only" Then
      sMemberName = Strings.Left(sMemberName, Len(sMemberName) - 11)
    End If

Sorry for bad english.

Peter