Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

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

Search results for query: *

  • Users: 33456
  • Order by date
  1. 33456

    SW VBA CustomInfo

    pfff how simpel well, its monday thnx dude
  2. 33456

    SW VBA CustomInfo

    How can i get info from the Configuration Specific tab ?? This is how to do it for the Custom tab: Dim swApp As Object Dim part As Object Dim what As String Sub main() Set swApp = Application.SldWorks Set part = swApp.ActiveDoc what = part.CustomInfo2("", "M_opm_part") MsgBox what End Sub
  3. 33456

    Check BOM on sheet

    How can i check on what sheet a bom is. I have several sheets and several boms, only 1 on a pge offcourse. please fill in the blanks .. Sub checkbom() Dim bom_aanwezig As SldWorks.Feature Dim swBomFeat As SldWorks.BomFeature Dim vTableArr As Variant Dim swTable As SldWorks.TableAnnotation Set...
  4. 33456

    Drawing view scale + SW VBA

    Probably i am the worst programmer ever :) Check out my macro and fill in te code for getting the scale end set it to 1:1...
  5. 33456

    Drawing view scale + SW VBA

    I want to check each drawing view in my drawing on theire scale and make it 1:1 if necesarry. How ?? This i got: Dim Mloopdoorfeaturetree As SldWorks.Feature Dim Mtellerviewport Dim Msoort, MSubsoort, Msubsoort2, Mschaalview Set Mloopdoorfeaturetree = swModel.FirstFeature Mtellerviewport = 0...
  6. 33456

    SW VBA

    thnx dude, works great !!
  7. 33456

    SW VBA

    I tried that with a forcerebuild didnt work too bad didnt get the correct answer yet :(
  8. 33456

    SW VBA

    Perhaps ... i turned it off first, but on the dxf it was still visible ...
  9. 33456

    SW VBA

    Thnx for reply ... i have a vba routine for it, but something strange happens .. When i manually throw away the sheet format and then undo it ... after that it works ... when i just run the macro . it doesnt .. Here's some code: sub justdoit() Dim MswApp As Object Dim MPart As Object Dim...
  10. 33456

    SW VBA

    How can i delete my 'sheet format' with VBA ?!?

Part and Inventory Search

Back
Top