home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November / PCWK1103B.iso / DesignCAD 3D Max PLUS trial 30 / DATA1.CAB / Example_Files / Sample_Macros / Symbol Exploder.d3m < prev    next >
Encoding:
Text File  |  2003-09-29  |  341 b   |  20 lines
  1. sys(80)=0
  2. count = sys(9)            'find total number of entities
  3. For i = 1 To count        'cycle through all entities
  4.    Entity(i)            'get each entity
  5. etype = Sys(90)            'find out what entity you have is
  6. print etype
  7.  
  8. if etype=26 then         'if its symbol
  9. putattr i, 26, 1        'select it
  10.             
  11. endif
  12. next i    
  13.  
  14. >SymbolExplode
  15. {
  16. }
  17. >GroupExplode
  18. {
  19. }
  20.