home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / PFLT.CCC < prev    next >
Encoding:
Text File  |  1993-07-26  |  1.7 KB  |  113 lines
  1. %pflt.ccc
  2. * create a fillet between two lines of polygon
  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. r1=0
  11. mess radius of fillet (greater than 0)
  12. getrd r1
  13. if r1 le 0 :i
  14. r6=r1
  15. :L
  16. mess polygon to create fillet in
  17. gete i1
  18. mess confirm choice
  19. getyn r2
  20. unshow i1
  21. if r2 eq 0 :L
  22. i2=i1
  23. i1=1;r5=1
  24. ovl aspol
  25. if r1 lt 0 :E
  26. if r5 eq 0 :1
  27. *mess the polygon cannot be reassembled, continue to explode ?
  28. *getyn r1
  29. *if r1 ne 0 :1
  30. *goto :L
  31. :1
  32. i1=1;r5=0
  33. ovl aspol
  34. if r1 ne 0 :y
  35. :P
  36. sbreset
  37. mess first line of fillet, <Enter>- to exit
  38. gete+ i1
  39. if r93 ne 0 :J
  40. mess confirm choice
  41. getyn r7
  42. unshow i1
  43. if r7 eq 0 :P
  44. :D
  45. mess second line of fillet
  46. gete i2
  47. mess confirm choice
  48. getyn r2
  49. unshow i2
  50. i8=i2
  51. if r2 eq 0 :D
  52. r1=r6
  53. c197='*';c198 = '*'
  54. ovl filet
  55. repeat :P
  56. :J
  57. i3=-1
  58. r2=0
  59. r3=0
  60. i1=5
  61. ovl aspol
  62. i1=2
  63. ovl aspol
  64. if r1 eq -1 :m
  65. if r1 eq -2 :m
  66. if r1 eq -3 :m
  67. if r1 eq -4 :m
  68. if r1 eq -9 :y
  69. r1=1
  70. i1=5
  71. ovl aspol
  72. if r1 ne 0 :s
  73. i1=4
  74. ovl aspol
  75. if r1 eq -1 :m
  76. if r1 eq -2 :m
  77. i18=i3
  78. i2=i18;ovl sp
  79. i49=1
  80. sbreset
  81. repeat :L
  82. :E
  83. if r1 eq -1 :a
  84. if r1 eq -2 :b
  85. if r1 eq -3 :c
  86. if r1 eq -4 :d
  87. if r1 eq -5 :e
  88. if r1 eq -6 :f
  89. :y
  90. mess System Error (ASPOL, rc = #r1 )
  91. getwe;goto :L
  92. :a
  93. mess Error, entity selected not a polygon
  94. getwe;goto :L
  95. :b
  96. mess Error, couldn't read the polygon
  97. getwe;goto :L
  98. :c
  99. mess Error, couldn't create arc
  100. getwe;goto :L
  101. :d
  102. mess Error, couldn't create line
  103. getwe;goto :L
  104. :e
  105. mess Error, polygon belongs to a solid entity
  106. getwe;goto :L
  107. :f
  108. mess Error, polygon has invalid application type
  109. getwe;goto :L
  110. :m
  111. mess Error, unable to create or update polygon
  112. getwe;goto :L
  113.