home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / ATSEL.CCC < prev    next >
Encoding:
Text File  |  1993-08-01  |  1.1 KB  |  79 lines
  1. %atsel.ccc
  2. * select/de-select all entities with attribute/attribute+value.
  3. *$Header$
  4. *$Log$
  5. :j
  6. * check geometric mode activity (c100=' ')
  7. ascii c100 r13
  8. if r13 eq 32 :a
  9. mess illegal command, use \GEOM first !
  10. getwe
  11. goto :j
  12. :a
  13. mess option: y-select, n-deselect <y>
  14. def 'y'
  15. getyn r8
  16. :f
  17. c211 1 = ' '
  18. mess define attribute by: y-name & value, n-name <y>
  19. def 'y'
  20. r1=1
  21. getyn r1
  22. if r1 eq 0 :b
  23. :g
  24. mess name & value of attribute (3-20 char.: name=value)
  25. ascii c211 r9
  26. r37=0
  27. if r9 eq 32 :h
  28. *def c211 20
  29. r37=1
  30. :h
  31. *getc c211 20
  32. r38=20
  33. r39=211
  34. r1=0
  35. ovl getc
  36. if r1 ne 0 :g
  37. ascii c211 r9
  38. if r9 eq 32 :g
  39. if r8 eq 0 :i
  40. c1='o';* add
  41. goto :d
  42. :i
  43. c1='p';* omit
  44. goto :d
  45. :b
  46. mess name of attribute (1-20 char.)
  47. ascii c211 r9
  48. r37=0
  49. if r9 eq 32 :k
  50. r37=1
  51. *def c211 20
  52. :k
  53. *getc c211 20
  54. r38=20
  55. r39=211
  56. r1=0
  57. ovl getc
  58. if r1 ne 0 :k
  59. ascii c211 r9
  60. if r9 eq 32 :b
  61. if r8 eq 0 :c
  62. c1='q';* add
  63. goto :d
  64. :c
  65. c1='r';* omit
  66. :d
  67. r2 = 0
  68. ovl select
  69. if r2 eq 0 :e
  70. mess no entities with this attribute ! press<ENTER>
  71. getw
  72. :e
  73. mess press <ENTER> for another attribute
  74. getw
  75. if r1 eq 1 :z
  76. repeat :b
  77. :z
  78. repeat :g
  79.