home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / MW2D.CCC < prev    next >
Encoding:
Text File  |  1993-05-12  |  500 b   |  32 lines
  1. %mw2d.ccc
  2. * delete all multi-layer wall\openings 3-D polygons
  3. :j
  4. ascii c100 r13
  5. if r13 eq 32 :i
  6. mess illegal command, use \GEOM first !
  7. getwe
  8. goto :j
  9. :i
  10. c1='a'
  11. ovl is3d
  12. r2=1
  13. if r1 eq 0 :d
  14. if r1 eq 3 :c
  15. mess keep 3D display of arcs ? <y>
  16. def 'y';r2=1
  17. getyn r2
  18. r2=1-r2
  19. r3=0
  20. if r1 eq 2 :d
  21. :c
  22. mess keep irregular 3D display ? <y>
  23. def 'y';r3=1
  24. getyn r3
  25. :d
  26. * Do not update height- changes to regular 3D wall prism will be lost
  27. * c1='a'
  28. * ovl fndz
  29. c1='a'
  30. ovl dlsol
  31. macro refr
  32.