home *** CD-ROM | disk | FTP | other *** search
/ PC Electronics for your PC / pcelectronics.bin / Elec_dos / SUBDWG / LSP / CVISTA.LSP < prev    next >
Lisp/Scheme  |  1994-10-27  |  4KB  |  112 lines
  1.  
  2. ;************************************************************************
  3. ;* Comando: cvista()
  4. ;* Comentarios: este comando se utiliza para crear las distintas vistas
  5. ;* de los equipos de las subestaciones. A partir del dibujo se generan
  6. ;* los bloques de las vista, la vistas se nombran de la siguiente forma
  7. ;* (prefijo)+"_"+(nombre equipo) donde prefijo puede ser: "x", "y", "z",
  8. ;* "-x", "-y", "-z", "3d", "ala". Por ejemplo "ala_desconectador"
  9. ;************************************************************************
  10. ;
  11. ; change.log
  12. ; 
  13. ; 26/10/94    C.Perigault    Se arreglo una mala ubicacion de los parentesis
  14. ;                            que cerraban el defun de cVista, confundiendo 
  15. ;                            la funcion rotacion
  16. ;
  17. ; 26/10/94    C.Perigault    El angulo de rotacion del ala debe ser 90 (y no 0)
  18.                              en la ListaRotacion
  19.  
  20. (defun c:cVista ( / osmode cmdecho gridmode ListaRotacion
  21.             NombreEquipo vista insercion conjunto
  22.             NombreBloque reemplazar temp NombreEquipo)
  23.   (setq ucs 1)
  24.   (setq wcs 0)
  25.   ; guardamos el estado del sistema del usuario
  26.   (setq osmode   (getvar "OSMODE"  ))
  27.   (setq cmdecho  (getvar "CMDECHO" ))
  28.   (setq gridmode (getvar "GRIDMODE"))
  29.   (setvar "GRIDMODE" 0)
  30.   (setvar "CMDECHO"  0)
  31.   (setvar "OSMODE"   0)
  32.   ; en esta lista se guardan la rotaciones que se le deben hacer
  33.   ; al bloque para que al insertarse lo hagan segun la vista
  34.   (setq ListaRotacion '(("x"   ( 90 0  90))
  35.             ("y"   ( 90 0 180))
  36.             ("z"   (  0 0   0))
  37.             ("-x"  ( 90 0 -90))
  38.             ("-y"  ( 90 0   0))
  39.             ("-z"  (180 0   0))
  40.             ("3d"  (  0 0   0))
  41.             ("ala" ( 90 0   0))))
  42.  
  43.    (setq NombreEquipo (getstring "\nIngrese el nombre del equipo : "))
  44.    (setq vista nil)
  45.    (while (not (equal vista "quit"))
  46.      (initget 1 "x y z -x -y -z 3d Ala Quit")
  47.      (setq vista (strcase (getkword "\nx/y/z/-x/-y/-z/Ala/3d/Quit : ")t))
  48.      (if (not (equal vista "quit"))
  49.        (progn
  50.      ; seleccionamos el bloque y su punto de insercion
  51.      (setvar "OSMODE" osmode)
  52.      (setq insercion (getpoint "\nPunto de insercion :"))
  53.      (setvar "OSMODE" 0)
  54.      (setq conjunto (ssget))
  55.  
  56.      (setq NombreBloque (strcat vista "_" NombreEquipo))
  57.      ; vemos si el bloque existe de ser asi le preguntamos
  58.      ; al usuario si desea redefinirlo
  59.      (if (tblsearch "BLOCK" NombreBloque)
  60.        ; si existe preguntamos al usuario si desea reemplazarlo
  61.        (progn
  62.          (initget 1 "Si No")
  63.          (setq reemplazar
  64.          (strcase
  65.            (getkword
  66.          (strcat "\nEl bloque " NombreBloque " ya existe reemplazarlo (s/n)"))t))
  67.          (if (equal reemplazar "si")
  68.            (progn
  69.          ; debemos copiar el bloque ya que al crearlo lo borramos
  70.          (command "COPY" conjunto "" '(0 0 0) '(0 0 0))
  71.          ; aplicamos las rotaciones necesarias para que se inserte
  72.          ; segun la vista
  73.          (setq temp (cadr (assoc vista ListaRotacion)))
  74.          (Rotacion conjunto insercion (car temp) (cadr temp) (caddr temp))
  75.          (command "BLOCK" NombreBloque "Y" insercion conjunto "")
  76.          (redraw))))
  77.      (progn
  78.        ; debemos copiar el bloque ya que al crearlo lo borramos
  79.        (command "COPY" conjunto "" '(0 0 0) '(0 0 0))
  80.        (setq temp (cadr (assoc vista ListaRotacion)))
  81.        ; aplicamos las rotaciones necesarias para que se inserte
  82.        ; segun la vista
  83.        (Rotacion conjunto insercion (car temp) (cadr temp) (caddr temp))
  84.        (command "BLOCK" NombreBloque insercion conjunto "")
  85.        (redraw))))))
  86.   ; volvemos al estado original de acad
  87.   (setvar "GRIDMODE" gridmode)
  88.   (setvar "OSMODE"   osmode  )
  89.   (setvar "CMDECHO"  cmdecho )
  90. )
  91.  
  92. ;********************************************************************
  93. ;* Funcion : Rotacion (conjunto punto rx ry rz)
  94. ;* Parametros :
  95. ;*              - conjunto : entidades que se desean rotar
  96. ;*              - punto    : punto de rotacion
  97. ;*              - rx       : rotacion con respecto al eje x
  98. ;*              - ry       : rotacion con respecto al eje y
  99. ;*              - rz       : rotacion con respecto al eje z
  100. ;********************************************************************
  101. (defun Rotacion (conjunto  punto rx ry rz)
  102.   (setq punto (trans punto ucs wcs))
  103.   (command "UCS" "Y" "90")
  104.   (command "ROTATE" conjunto "" (trans punto wcs ucs) rx)
  105.   (command "UCS" "P")
  106.   (command "UCS" "X" "-90")
  107.   (command "ROTATE" conjunto "" (trans punto wcs ucs)  ry)
  108.   (command "UCS" "P")
  109.   (command "ROTATE" conjunto "" (trans punto wcs ucs)  rz)
  110.  
  111. )
  112.