home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / ATRIB.CCC < prev    next >
Encoding:
Text File  |  1993-07-25  |  711 b   |  48 lines
  1. %atrib.ccc
  2. * add attributes to entity in D.B.
  3. *$Header$
  4. *$Log$
  5. :j
  6. * check geometric mode activity (c100=' ')
  7. ascii c100 r13
  8. if r13 eq 32 :i
  9. mess illegal command, use \GEOM first !
  10. getwe
  11. goto :j
  12. :i
  13. sbreset
  14. :f
  15. mess attribute name=description (1-20 char.)
  16. r37=0
  17. r38=20
  18. r39=171
  19. r1=0
  20. ovl getc
  21. if r1 eq 0 :W
  22. mess Attention please! (1-20 char.) push <ENTER>
  23. getwe
  24. goto :f
  25. :W
  26. ascii c171 r9
  27. if r9 eq 32 :i
  28. :b
  29. mess attach attribute to: y-selection group, n-single entity <n>
  30. r1=0
  31. def 'n'
  32. getyn r1
  33. if r1 eq 0 :a
  34. i1=0
  35. goto :d
  36. :a
  37. mess entity to add the attribute to
  38. gete i1
  39. mess confirm choice
  40. getyn r1;unshow i1;if r1 eq 1 :c
  41. goto :a
  42. :c
  43. ovl attr
  44. sbreset
  45. repeat :a
  46. :d
  47. ovl attr
  48.