home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2002 March / PCWMAR02.iso / software / turbocad / v8trial / TurboCADv8ProfessionalNoReg.exe / Data.Cab / F40515_modAppEnv.bas < prev    next >
Encoding:
BASIC Source File  |  2001-11-18  |  1.4 KB  |  43 lines
  1. Attribute VB_Name = "modAppEnv"
  2. '******************************************************************'
  3. '*                                                                *'
  4. '*                      TurboCAD for Windows                      *'
  5. '*                   Copyright (c) 1993 - 2001                    *'
  6. '*             International Microcomputer Software, Inc.         *'
  7. '*                            (IMSI)                              *'
  8. '*                      All rights reserved.                      *'
  9. '*                                                                *'
  10. '******************************************************************'
  11.  
  12. Option Explicit
  13.  
  14. Public Sub AppEnvRegenMethodEx1()
  15.     Dim rm As RegenMethod
  16.     For Each rm In Application.RegenMethods
  17.         Debug.Print "RegenMethod: " & rm.Name
  18.     Next
  19. End Sub
  20.  
  21. Public Sub AppEnvFilterEx1()
  22.     Dim flt As Filter
  23.     For Each flt In Application.Filters
  24.       Debug.Print "Filter: " & flt.Name & ", " & flt.Extension & ", " & flt.Description
  25.     Next
  26. End Sub
  27.  
  28. 'Public Sub AppEnvToolEx1()
  29. '    Dim t As Tool
  30. '    For Each t In Application.Tools
  31. '        Debug.Print "Tool: " & t.CommandName
  32. '    Next
  33. 'End Sub
  34.  
  35. Public Sub AppEnvMacroEx1()
  36.     Dim mac As Macro
  37.     For Each mac In ActiveDrawing.Macros
  38.         Debug.Print "VBA Project: " & mac.Name & ", contained in " & mac.Path
  39.     Next
  40. End Sub
  41.  
  42.  
  43.