home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / acad / CADJEL.TXT < prev    next >
Encoding:
Text File  |  1994-04-05  |  14.1 KB  |  200 lines
  1. ;*********************************************************************
  2. ;*                                                                   *
  3. ;*   Paquete de rutinas de Arquitectura para su uso con              *
  4. ;*   Autocad versión 12.                                             *
  5. ;*                                                                   *
  6. ;*   Realizado por Javier Erce Lizarraga                             *     
  7. ;*   Avda. de los Reyes Católicos nº 17 - 28280 El Escorial (Madrid) *  
  8. ;*   (Tfno. 91-890.05.85)                                            *
  9. ;*                                                                   *
  10. ;*   Version 2.12 (Abril de 1993)                                    *
  11. ;*   (Para Autocad 12)                                               *
  12. ;*                                                                   *
  13. ;*   El autor ofrece el paquete de Arquitectura completo, para que   *
  14. ;*   cualquier usuario lo pueda evaluar y probar libremente. Y si    *
  15. ;*   se decide a utilizarlo y quiere estar al día de las  últimas    *
  16. ;*   actualizaciones de este y otros programas LISP de Arquitec-     *
  17. ;*   tura para AutoCad, enviar 5.000 pesetas con todos sus datos     *
  18. ;*   a las señas arriba indicadas.                                   *
  19. ;*                                                                   *
  20. ;*********************************************************************
  21. ;*                                                                   *
  22. ;*                      GENERALIDADES                                *
  23. ;*                                                                   *                                
  24. ;*  Este paquete parte de las siguientes premisas:                   *
  25. ;*  Se trabaja en metros, es decir una unidad de dibujo es un        *
  26. ;*  metro.                                                           *
  27. ;*  Las paredes y muros deben de estar en una capa llamada           *
  28. ;*  PAREDES y en color verde.                                        *
  29. ;*  Para realizar las paredes y muros se puede usar la orden         *
  30. ;*  DLINE.LSP en este paquete se incluye una versión de dicha        *
  31. ;*  rutina modificada porque la versión original de AUTOCAD          *
  32. ;*  12 en español tiene muchos fallos.                               *
  33. ;*  Todas las rutinas crean sus propias capas, a excepción de        *
  34. ;*  DLINE.                                                           *
  35. ;*                                                                   *
  36. ;*********************************************************************
  37. ;*                                                                   *
  38. ;*                      PUERTA.LSP                                   *
  39. ;*                                                                   *                                
  40. ;*  Este programa dibuja puertas de 1 ó 2 hojas con hojas            *
  41. ;*  iguales o desiguales en paredes.                                 *
  42. ;*  Las coloca en una capa llamada CARP en color blanco.             *
  43. ;*  Crea una capa auxiliar CARP_AUX para su uso con el               *
  44. ;*  programa CALSUP.LSP de cálculo de superficies.                   *
  45. ;*  Conviene borrar las puertas con el programa BORRCARP.LSP         *
  46. ;*  para que se borren también las líneas auxiliares de la           *
  47. ;*  capa CARP_AUX que están ocultas.                                 *
  48. ;*                                                                   *
  49. ;*********************************************************************
  50. ;*                                                                   *
  51. ;*                        VENTANA.LSP                                *
  52. ;*                                                                   *
  53. ;*  Este programa dibuja ventanas abatibles y correderas en          *
  54. ;*  las paredes.                                                     *
  55. ;*  Las coloca en una capa llamada CARP en color blanco.             *
  56. ;*  Crea una capa auxiliar CARP_AUX para su uso con el               *
  57. ;*  programa CALSUP.LSP de cálculo de superficies.                   *
  58. ;*  Conviene borrar las ventanas con el programa BORRCARP.LSP        *
  59. ;*  para que se borren también las lineas auxiliares de la           *
  60. ;*  capa CARP_AUX que están ocultas.                                 *
  61. ;*                                                                   *
  62. ;*********************************************************************  
  63. ;*                                                                   *
  64. ;*                        ARMARIO.LSP                                *
  65. ;*                                                                   *
  66. ;*  Este programa dibuja armarios abatibles y correderos             *
  67. ;*  en las paredes y los coloca en una capa llamada                  *
  68. ;*  CARP con color blanco.                                           *
  69. ;*                                                                   *
  70. ;*********************************************************************  
  71. ;*                                                                   *
  72. ;*                        BORRCARP.LSP                               *
  73. ;*                                                                   *
  74. ;*  Este programa permite borrar las carpinterias generadas          *
  75. ;*  con las rutinas anteriores, y elimina las lineas auxilia-        *
  76. ;*  res de la capa CARP_AUX que están ocultas y suelda las           *
  77. ;*  líneas de la pared.                                              *
  78. ;*                                                                   *
  79. ;*********************************************************************  
  80. ;*                                                                   *
  81. ;*                        DETALLE.LSP                                *
  82. ;*                                                                   *
  83. ;*  Este programa permite hacer un detalle ampliado de lo se-        *
  84. ;*  leccionado del dibujo mediante una ventana y a la escala         *
  85. ;*  deseada.                                                         *
  86. ;*                                                                   *
  87. ;*********************************************************************
  88. ;*                                                                   *
  89. ;*                           COTAC.LSP                               *           *
  90. ;*                                                                   *
  91. ;* Esta función acota todas las líneas comprendidas entre dos puntos *
  92. ;* y las situa en el tercer punto marcado, en modo asociativo.       *
  93. ;* Permite añadir líneas a las seleccionadas.                        *
  94. ;* Permite eliminar líneas de las seleccionadas.                     *
  95. ;* Permite tolerancia de acotación, por debajo de la cual no acota.  *
  96. ;* Permite definir la longitud de las líneas de referencia.          *
  97. ;* Si está sin seleccionar un estilo de acotación, inserta el dibujo *
  98. ;* cotas y elige el estilo cota50 (escala 1:50).                     *
  99. ;* Coloca las cotas en la capa COTAS.                                *
  100. ;* Entrando en el dibujo COTAS.DWG se pueden personalizar el estilo  *
  101. ;* de acotación.                                                     *
  102. ;*                                                                   *
  103. ;*********************************************************************
  104. ;*                                                                   *
  105. ;*                       CALSUP.LSP                                  *
  106. ;*                                                                   *
  107. ;*  Esta función calcula el perímetro, superficie y volumen de       *   
  108. ;*  cualquier recinto cerrado, seleccionando un punto interior.      *
  109. ;*  coloca el perímetro en la capa perímetro                         *
  110. ;*  coloca la superficie en la capa superficie                       *
  111. ;*  y el volumen en la capa volumen.                                 *
  112. ;*  La primera vez que se usa, durante la misma sesión, pide la      * 
  113. ;*  altura para rotular los textos.                                  *
  114. ;*                                                                   *
  115. ;*********************************************************************
  116. ;*                                                                   *
  117. ;*                       TRAMAS.LSP                                  *
  118. ;*                                                                   *
  119. ;*  Esta función utiliza la orden SOMBCONT de Autocad, pero permite  *   
  120. ;*  seleccionar un punto de paso de la trama para su colocación.     *
  121. ;*                                                                   *
  122. ;*********************************************************************
  123. ;*                                                                   *
  124. ;*                       SOLDAR.LSP                                  *
  125. ;*                                                                   *
  126. ;*  Esta función permite unir dos segmentos de una misma línea y     *   
  127. ;*  fundirlos en una sola entidad.                                   *
  128. ;*                                                                   *
  129. ;*********************************************************************
  130. ;*                                                                   *
  131. ;*                       ECRUCE.LSP                                  *
  132. ;*                                                                   *
  133. ;*  Esta función realiza la limpieza de un cruce de muros en esquina *   
  134. ;*  mediante su selección con una ventana.                           *
  135. ;*                                                                   *
  136. ;*********************************************************************
  137. ;*                                                                   *
  138. ;*                       TCRUCE.LSP                                  *
  139. ;*                                                                   *
  140. ;*  Esta función realiza la limpieza de un cruce de muros en T       *   
  141. ;*  mediante su selección con una ventana.                           *
  142. ;*                                                                   *
  143. ;*********************************************************************
  144. ;*                                                                   *
  145. ;*                       XCRUCE.LSP                                  *
  146. ;*                                                                   *
  147. ;*  Esta función realiza la limpieza de un cruce de muros en X       *   
  148. ;*  mediante su selección con una ventana.                           *
  149. ;*                                                                   *
  150. ;*********************************************************************
  151. ;*                                                                   *
  152. ;*                         COPICAPA.LSP                              *
  153. ;*                                                                   *
  154. ;*  Esta función permite copiar los elementos seleccionados de una   *   
  155. ;*  capa en otra capa.                                               *
  156. ;*                                                                   *
  157. ;*********************************************************************
  158. ;*                                                                   *
  159. ;*                          IRACAPA.LSP                              *
  160. ;*                                                                   *
  161. ;*  Esta función permite activar como capa actual la correspondiente *   
  162. ;*  a la entidad seleccionada.                                       *
  163. ;*                                                                   *
  164. ;*********************************************************************
  165. ;*                                                                   *
  166. ;*                         MUEVECAP.LSP                              *
  167. ;*                                                                   *
  168. ;*  Esta función permite cambiar de capa las entidades seleccionadas.*   
  169. ;*                                                                   *
  170. ;*********************************************************************
  171. ;*                                                                   *
  172. ;*                         TAPACAPA.LSP                              *
  173. ;*                                                                   *
  174. ;*  Esta función permite desactivar una capa seleccionando una enti  *   
  175. ;*  dad de la misma. La capa actual no se puede desactivar.          *
  176. ;*                                                                   *
  177. ;*********************************************************************
  178. ;*                                                                   *
  179. ;*                         ALARCAP.LSP                              *
  180. ;*                                                                   *
  181. ;*  Esta función permite realizar el alargamiento de entidades por   *   
  182. ;*  captura mediante ventana.                                        *
  183. ;*                                                                   *
  184. ;*********************************************************************
  185. ;*                                                                   *
  186. ;*                         RECORCAP.LSP                              *
  187. ;*                                                                   *
  188. ;*  Esta función permite realizar el recorte de entidades mediante   *
  189. ;*  captura con una ventana.                                         *
  190. ;*                                                                   *
  191. ;*********************************************************************
  192. ;*                                                                   *
  193. ;*                           POP10.MNU                               *
  194. ;*                                                                   *
  195. ;*  Se adjunta este listado para poderlo incorporar con un editor de *   
  196. ;*  texto al acad.mnu como un pop más con todas las ordenes, o bien  *
  197. ;*  modificarlo para uso con la tableta, ect.                        *
  198. ;*                                                                   *
  199. ;*********************************************************************
  200.