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 / Line Sort.d3m < prev    next >
Encoding:
Text File  |  2003-09-29  |  942 b   |  52 lines
  1. 'This program places the lines on different layers according to the 
  2. 'type of line they are
  3. 'j is the entity number
  4.     for j = 1 to sys(9)
  5. 'sys(9) is the number of entities
  6.   getattr j, type,select
  7.       if type = 1 then 
  8. Entity(j)
  9. style1 = Sys(91)
  10. if style1=0 then
  11. putattr j,type,select, 2
  12. endif
  13. if style1=1 then
  14. putattr j,type,select, 3
  15. endif
  16. if style1=2 then
  17. putattr j,type,select, 4
  18. endif
  19. if style1=3 then
  20. putattr j,type,select, 5
  21. endif
  22. if style1=4 then
  23. putattr j,type,select, 6
  24. endif
  25. if style1=5 then
  26. putattr j,type,select, 7
  27. endif
  28. if style1=6 then
  29. putattr j,type,select, 8
  30. endif
  31. if style1=7 then
  32. putattr j,type,select, 9
  33. endif
  34. if style1=8 then
  35. putattr j,type,select, 10
  36. endif
  37. if style1=9 then
  38. putattr j,type,select, 11
  39. endif
  40. if style1=10 then
  41. putattr j,type,select, 12
  42. endif
  43. if style1=11 then
  44. putattr j,type,select, 13
  45. endif
  46. if style1=12 then
  47. putattr j,type,select, 14
  48. endif
  49. endif
  50.       next
  51.  
  52.