CUADRO DE DIALOGO ( TABLAS DENTRO DE VENTANA)

Ver el tema anterior Ver el tema siguiente Ir abajo

CUADRO DE DIALOGO ( TABLAS DENTRO DE VENTANA)

Mensaje por ronaldtroya el Dom Nov 06, 2016 4:20 am

Muy buenos días siempre agradeciendo la gentileza que tienen para responder o despejar las dudas que se nos presenta, expongo una de ellas estoy tratado de entrar en el tema de cuadros de dialogo DCL he aprendido algo pero me preguntaba aparte de los edit_box hay la posibilidad que dentro una ventana se muestre tablas tipo excel para gestionar información.

ronaldtroya

Mensajes : 25
Fecha de inscripción : 20/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: CUADRO DE DIALOGO ( TABLAS DENTRO DE VENTANA)

Mensaje por nolo el Lun Nov 07, 2016 2:10 pm

Yo creo que no ¡¡ .Las hojas que te las tienes que crear tu en un dcl o vba.
Otra solución es conectar el excel con una llamada desde vlisp a la aplicación excel, rellenar la hoja y que al terminar que se actualice el dibujo con los datos introducidos.
Marco Jacinto publicó en Hispacad una rutina muy fácil para pasar datos de excel a autocad con la hoja abierta, y una vez abierta la aplicación excel, seguro que hay alguna forma de pasar los datos que no sea el portapapeles (es lo que uso yo), sin embargo, lo que no imagino es como hacer que el lisp espere las respuestas del excel y continúe una vez que se cambian los datos.

Alguien sabe como ???

Un saludo

nolo

Mensajes : 100
Fecha de inscripción : 17/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: CUADRO DE DIALOGO ( TABLAS DENTRO DE VENTANA)

Mensaje por saulo2016 el Lun Nov 07, 2016 3:09 pm

Hola Maestros Nolo y ronaldtroya:

Yo el año pasado hice un lisp para manejar una especie de tabla para ESPECIFICACIONES de Tuebrias en donde al seleccionar el Servicio Deseado me da la descripcion de todos los accesorios a utilizar para ese servicio, yo pienso que dandole un reacomodo a las lineas de seleccion y de obtencion de datos se puede lograr algo de lo que esta solicitando el buen ronaldtroya....
aqui le muestro un pantallazo de lo que trato de explicar:


No se si esto pudiera dar una idea, si es asi me dicen para poner el codigo.


Saludos
avatar
saulo2016

Mensajes : 99
Fecha de inscripción : 17/03/2016
Edad : 51
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: CUADRO DE DIALOGO ( TABLAS DENTRO DE VENTANA)

Mensaje por ronaldtroya el Lun Nov 28, 2016 3:46 pm

nolo escribió:Yo creo que no ¡¡ .Las hojas que te las tienes que crear tu en un dcl o vba.
Otra solución es conectar el excel con una llamada desde vlisp a la aplicación excel, rellenar la hoja y que al terminar que se actualice el dibujo con los datos introducidos.
Marco Jacinto publicó en Hispacad una rutina muy fácil para pasar datos de excel a autocad con la hoja abierta, y una vez abierta la aplicación excel, seguro que hay alguna forma de pasar los datos que no sea el portapapeles (es lo que uso yo), sin embargo, lo que no imagino es como hacer que el lisp espere las respuestas del excel y continúe una vez que se cambian los datos.

Alguien sabe como ???

Un saludo

Muchas Gracias Nolo por tu sugerencia Pero como ya es de conocimiento HispaCAD cerro y a agradeciera si facilitas la rutina que me indicas

ronaldtroya

Mensajes : 25
Fecha de inscripción : 20/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: CUADRO DE DIALOGO ( TABLAS DENTRO DE VENTANA)

Mensaje por ronaldtroya el Lun Nov 28, 2016 3:50 pm

HOla Saulo toda ayuda en bienvenida sube el código te agradezco..

ronaldtroya

Mensajes : 25
Fecha de inscripción : 20/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: CUADRO DE DIALOGO ( TABLAS DENTRO DE VENTANA)

Mensaje por saulo2016 el Lun Nov 28, 2016 5:09 pm

Aqui te envio la primera parte del codigo LSP...es que es un poco largo...y te lo pongo tal y como lo tengo yo, sin cambiarle ni quietarle ni nada.....


Código:
;;;*************************************** Main Program ***********************************************

(defun to_accion (/ olderr pas_sys pwd scmde ventana punto lista_diam x y dia_opc)

;;;*************************************************************************************************

  (setq sucsf (getvar "UCSFOLLOW"))
  (setq dim_scale (getvar "DIMSCALE"))
  (setvar "GRIDMODE" 0)
  (setvar "ORTHOMODE" 1)
  (setvar "UCSFOLLOW" 0)


;;*************************************VENTANA DE DIALOGO***************************************

(setq ventana (load_dialog "especs.dcl"))
(if (not (new_dialog "specs" ventana))
(exit))

;;;***********************************************************************************************

(lista)

(mode_tile "escala" 1)

(set_tile "escala" (rtos dim_scale))

(setq dia_opc 0)

;;;**********************************************************************************************

(setq fecha (rtos (getvar "cdate") 2 6))
;;---------------------------------------------------------------------------

   (setq hora (substr fecha 10 2))
   (setq minutos (substr fecha 12 2))
   (setq hor_min (atoi (strcat hora minutos)))
   (progn (if (and (>= hor_min 0600) (< hor_min 1200))
             (setq saludo "Buenos días  ")
          )
          (if (and (>= hor_min 1200) (< hor_min 1900))
             (setq saludo "Buenas tardes  ")
          )
          (if (and (>= hor_min 1900) (< hor_min 2400))
             (setq saludo "Buenas noches  ")
          )
   )
 (set_tile "saludo" (strcat saludo "   " (getvar "loginname")))
;------------------------------------------------------------------------------
   (setq year (rtos (atof (substr fecha 1 4)) 2 0))
   (setq mes (atof (substr fecha 5 2)))
   (setq diax (itoa (fix (atof (substr fecha 7 2)))))
   (setq tmp (strcat (substr fecha 10 2) ":" (substr fecha 12 2)))
   (setq n (if (<= mes 2)
              (+ (fix (* (+ mes 13) 30.6)) (fix (* (- (atof (substr fecha 1 4)) 1) 365.25)) (atof diax))
              (+ (fix (* (+ mes 1) 30.6)) (fix (* (atof (substr fecha 1 4)) 365.25)) (atof diax))
           )
   )
   (setq dia (rtos (rem (- n 2) 7) 2 0))

   (cond ((= dia "0") (setq sem "Domingo"))
          ((= dia "1") (setq sem "Lunes"))
          ((= dia "2") (setq sem "Martes"))
          ((= dia "3") (setq sem "Miercoles"))
          ((= dia "4") (setq sem "Jueves"))
          ((= dia "5") (setq sem "Viernes"))
          ((= dia "6") (setq sem "Sabado"))
   )

   (cond ((= mes 01) (setq mesx " de Enero de "))
          ((= mes 02) (setq mesx " de Febrero de "))
          ((= mes 03) (setq mesx " de Marzo de "))
          ((= mes 04) (setq mesx " de Abril de "))
          ((= mes 05) (setq mesx " de Mayo de "))
          ((= mes 06) (setq mesx " de Junio de "))
          ((= mes 07) (setq mesx " de Julio de "))
          ((= mes 08) (setq mesx " de Agosto de "))
          ((= mes 09) (setq mesx " de Septiembre de "))
          ((= mes 10) (setq mesx " de Octubre de "))
          ((= mes 11) (setq mesx " de Noviembre de "))
          ((= mes 12) (setq mesx " de Diciembre de "))
  )

   (setq fecha (strcat " Hoy es " sem " " diax " " mesx " " year " y son las " tmp " horas"))
  
;------------------------------------------------------------------------------

   (set_tile "fecha" fecha)

;;;****************************************************************************************************

(descripcion)

(action_tile "listado" "(setq dia_opc (atoi $value))(descripcion)")

(action_tile "cancel" "(done_dialog 0)")

(if (=  (start_dialog) 1)

(progn (unload_dialog ventana)))

(princ))

;;****************************************LISTA DE SERVICIOS******************************************

(defun lista ()
      (setq lista_diam (list  "Agua Potable"                                                
                                  "Agua Cruda"                                              
                                  "Agua Contra Incendio"                                    
                                  "Agua Cruda Tratada (Agua Suave)"                          
                                  "Aceite Hidráulico Alimentación"                          
                                  "Aceite Hidráulico Retorno"                                
                                  "Agua de Enfriamiento Alimentación"                        
                                  "Agua de Enfriamiento Retorno"                            
                                  "Agua Helada Alimentación"                                
                                  "Agua Helada Retorno"                                      
                                  "Aire para Limpieza"                                      
                                  "Aceite de Lubricación Alim."                              
                                  "Aceite de Lubricación Retorno"                            
                                  "Aguas Negras"                                            
                                  "Aire de Planta"                                          
                                  "Aire Seco y de Instrumentos"                              
                                  "Aceite Térmico Alimentación(Venas de Calentamiento)"      
                                  "Agua Tratada para Calderas"                              
                                  "Aceite Térmico Retorno"                                  
                                  "Combustóleo de Alta Presión"                              
                                  "Condensado de Alta Presión"                              
                                  "Combustóleo de Baja Presión Alim."                        
                                  "Combustóleo de Baja Presión Retorno"                      
                                  "Condensado de Baja Presión"                              
                                  "Diesel"                                                  
                                  "Gas Natural"                                              
                                  "Grasa (Ver nota 12 en Apdo. 800)"                        
                                  "Vapor de Alta Presión"                                    
                                  "Vapor de Baja Presión"))                                  
    (start_list "listado")
    (mapcar 'add_list lista_diam)
     (end_list)
)

;;*************************************************************************************************

(defun dia_func ()
(if dia_opc
   (cond
    ((= dia_opc 0))
    ((= dia_opc 1))
    ((= dia_opc 2))
    ((= dia_opc 3))
    ((= dia_opc 4))
    ((= dia_opc 5))
    ((= dia_opc 6))
    ((= dia_opc 7))
    ((= dia_opc 8))
    ((= dia_opc 9))
    ((= dia_opc 10))
    ((= dia_opc 11))
    ((= dia_opc 12))
    ((= dia_opc 13))
    ((= dia_opc 14))
    ((= dia_opc 15))
    ((= dia_opc 16))
    ((= dia_opc 17))
    ((= dia_opc 18))
    ((= dia_opc 19))
    ((= dia_opc 20))
    ((= dia_opc 21))
    ((= dia_opc 22))
    ((= dia_opc 23))
    ((= dia_opc 24))
    ((= dia_opc 25))
    ((= dia_opc 26))
    ((= dia_opc 27))
    ((= dia_opc 28))

    )
  )
)


;;***********************************************************************************************************

(defun descripcion ()
(if dia_opc
 (cond
   ((= dia_opc 0)                        
      (progn (setq A "AB")
               (setq B "843")
               (setq C "TUBERIA DE 1 1/2\" Y menor Acero al carbón ASTM-A53, grado B, cédula 40, con costura ERW. extremos roscados.")
               (setq D "TUBERIA DE 2\" A 6\" Acero al carbón ASTM-A53, grado B, cédula 40, con costura ERW. extremos biselados.")
               (setq E "TUBERIA DE 8\" A 10\" Acero al carbón ASTM- A53, grado B, cédula 30, con costura ERW extremos biselados.")
               (setq F "TUBERIA DE 12\" A 18\" Acero al carbon ASTM-A53, grado B, cedula 10, con costura ERW extremos biselados. (Excepto la de 12\" . que debera ser ced. 20)")

               (setq G "TEE DE 1 1/2"\" Y MENOR 300 Lb. WOG. extremos roscados, de hierro maleable ASTM-A197.")
               (setq H "TEE DE 2\" A 6\" Acero al carbón ASTM-A-234, grado WPB. Cédula 40 extremos soldables.")
               (setq I "TEE DE 8\" A 10\" Acero al carbón ASTM-A-234, grado WPB Céd. 30 extremos soldables.")
               (setq J "TEE DE 12\" A 18\" Acero al carbón ASTM A-234 Gr. WPB, cédula 10 (Excepto las de 12\" Ø que deberán ser céd. 20.), extremos soldables.")

               (setq K "")
               (setq L "")
               (setq M "")
               (setq N "")

               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 1)                        
      (progn (setq A "AC")
               (setq B "831")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 2)                        
      (progn (setq A "ACI")
               (setq B "836")
               (setq C "TUBERIA DE 1 1/2\" y menor Acero al carbón ASTM A-53 Gr. B, cédula 80, con costura ERW, extremos roscados.")
               (setq D "TUBERIA DE 2\" a 10\" Acero al carbón ASTM A-53 Gr. B, cédula 40, con costura ERW, extremos biselados.")
               (setq E "TUBERIA DE 12\" y mayor Acero al carbón ASTM A-53 gr. B, cédula estándar, con costura ERW, extremos biselados.")

               (setq F "TEE DE 1 1/2\" y menor 3000 Lb., WOG, extremos roscados, de acero al carbón forjado ASTM A-105.")
               (setq G "TEE DE 2\" a 10\" Acero al carbón ASTM A-234 gr. WPB, céd. 40, extremos soldables.")
               (setq H "TEE DE 12\" y mayor Acero al carbón ASTM A-234 gr. WPB, cédula estándar, extremos soldables.")

               (setq I "Codo de 90 y 45 DE 1 1/2\" y menor 3000 Lb. WOG, extremos roscados, de acero al carbón forjado ASTM A-105.")
               (setq J "Codo de 90 y 45 DE 2\" a 10\" Acero al carbón ASTM A-234 gr. WPB, Céd. 40, extremos soldables.")
               (setq K "Codo de 90 y 45 DE 12\" y mayor Acero al carbón ASTM A-234 gr. WPB, Cédula estándar, extremos soldables.")

               (setq L "REDUCCION DE 1 1/2\" y menor 3000 Lb., WOG, extremos roscados, de acero al carbón forjado ASTM A-105.")
               (setq M "REDUCCION DE 2\" y mayor Acero al carbón ASTM A-234 gr., WPB (Cédula según diámetro de tubería), extremos soldables.")

               (setq N "BRIDA DE 2\" y mayor Deslizable (S.O) 150 Lb., cara realzada, de acero al carbón forjado ASTM A-105.")
               (setq O "BRIDA DE 2\" y mayor Ciega 150 Lb., cara realzada, de acero al carbón forjado ASTM A-105.")

               (setq P "VALVULA COMPUERTA VC-1 DE 2 1/2\" y menor 200 Lb. SWP, de bronce, roscada (Ver nota N 9).")
               (setq Q "VALVULA COMPUERTA VC-5 DE 3\" y mayor 125 Lb., SWP, de hierro fundido, bridada, cara plana.")

               (setq R "VALVULA GLOBO DE VG-1 DE 1 1/2\" y menor Globo 150 Lb. SWP, de bronce, roscada. (Solamente para conexión a manómetros, válvulas de prueba o como válvulas de drenado.)")
               (setq S "VALVULA GLOBO DE VG-4 DE 3\" y mayor Globo 125 Lb. de hierro fundido, bridada, cara plana.")

               (setq T "VALVULA CHECK DE VR-10 DE 2 1/2\" y menor Tipo Pistón 150 Lb. SWP, de bronce, roscada.")
               (setq U "VALVULA CHECK DE VR-3 DE 3\" y mayor Tipo columpio 125 Lb., SWP, de hierro fundido, bridada, cara plana.")

               (setq V "TUERCA UNION DE 1 1/2\" y menor 3000 Lb. WOG, extremos roscados, de acero al carbón forjado ASTM A-105, con asientos integrales.")
               (setq w "EMPAQUE Para brida de 150 Lb. ANSI, cara realzada, tipo anillo, de asbesto comprimido de 1/16\" de espesor GARLOCK # 7022 ó equivalente.")
               (setq X "TORNILLO Cabeza hexagonal, de acero al carbón ASTM A-307 gr. B, con tuerca hexagonal de acero al carbón ASTM A -194 Grado 2 H.")

      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 3)                        
      (progn (setq A "ACT")
               (setq B "831")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 4)                        
      (progn (setq A "ACHA")
               (setq B "")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 5)                        
      (progn (setq A "ACHR")
               (setq B "")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 6)                        
      (progn (setq A "AEA")
               (setq B "835")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 7)                        
      (progn (setq A "AER")
               (setq B "835")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 8)                        
      (progn (setq A "AHA")
               (setq B "846")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 9)                        
      (progn (setq A "AHR")
               (setq B "846")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 10)                        
      (progn (setq A "AL")
               (setq B "822")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________

avatar
saulo2016

Mensajes : 99
Fecha de inscripción : 17/03/2016
Edad : 51
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: CUADRO DE DIALOGO ( TABLAS DENTRO DE VENTANA)

Mensaje por saulo2016 el Lun Nov 28, 2016 5:11 pm

Aqui va la segunda parte....

Código:
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 11)                        
      (progn (setq A "ALA")
               (setq B "")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 12)                        
      (progn (setq A "ALR")
               (setq B "")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 13)                        
      (progn (setq A "AN")
               (setq B "838")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 14)                        
      (progn (setq A "AP")
               (setq B "822")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 15)                        
      (progn (setq A "AS")
               (setq B "822")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 16)                        
      (progn (setq A "ATA")
               (setq B "827")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 17)                        
      (progn (setq A "ATC")
               (setq B "823")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 18)                        
      (progn (setq A "ATR")
               (setq B "827")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 19)                        
      (progn (setq A "CA")
               (setq B "855")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 20)                        
      (progn (setq A "CAP")
               (setq B "825")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 21)                        
      (progn (setq A "CBA")
               (setq B "855")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 22)                        
      (progn (setq A "CBR")
               (setq B "855")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 23)                        
      (progn (setq A "CBP")
               (setq B "825")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))
;;;_________________________________________________________________________________________________________________
   ((= dia_opc 24)                        
      (progn (setq A "DI")
               (setq B "866")
               (setq C "")
               (setq D "")
               (setq E "")

               (setq F "")
               (setq G "")
               (setq H "")
               (setq I "")

               (setq J "")
               (setq K "")
               (setq L "")
               (setq M "")

               (setq N "")
               (setq O "")
               (setq P "")
               (setq Q "")
               (setq R "")
               (setq S "")

               (setq T "")
               (setq U "")

               (setq V "")
               (setq w "")
               (setq X "")
      ))




   )

 )

;;;*******************************************************************************************************

(set_tile "dimension_1" A)
(set_tile "dimension_2" B)
(set_tile "dimension_3" C)
(set_tile "dimension_4" D)
(set_tile "dimension_5" E)
(set_tile "dimension_6" F)
(set_tile "dimension_7" G)
(set_tile "dimension_8" H)
(set_tile "dimension_9" I)
(set_tile "dimension_10" J)
(set_tile "dimension_11" K)
(set_tile "dimension_12" L)
(set_tile "dimension_13" M)
(set_tile "dimension_14" N)
(set_tile "dimension_15" O)
(set_tile "dimension_16" P)
(set_tile "dimension_17" Q)
(set_tile "dimension_18" R)
(set_tile "dimension_19" S)
(set_tile "dimension_20" T)
(set_tile "dimension_21" U)
(set_tile "dimension_22" V)
(set_tile "dimension_23" w)
(set_tile "dimension_24" X)
)


;;;******************************************************************************************************

(defun c:specs ()
(to_accion)
(princ))
(princ "...Pantalla de Informacion Tecnica")

avatar
saulo2016

Mensajes : 99
Fecha de inscripción : 17/03/2016
Edad : 51
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: CUADRO DE DIALOGO ( TABLAS DENTRO DE VENTANA)

Mensaje por saulo2016 el Lun Nov 28, 2016 5:17 pm

Y aqui esta el DCL....

Código:
specs : dialog {
  label = "TABLA DE ESPECIFICACIONES PARA TUBERIAS";
         fixed_width = true;
         aspect_ratio = 0.0 ;

///***********************************************************
:column {
    :boxed_column{    label="";
fixed_width=true;
alignment=centered;
    : text_part {      label = "           Centro de Diseño";}
    : text_part {      label = "   Viceprecidencia de Tecnologia";}
    : text_part {      label = "               C  E  M  E  X";    }
: spacer
{width = 0.0;}
: spacer
{width = 0.0;}
}

}


 : boxed_column {
  
: boxed_column {

   label = "SERVICIO";
        : popup_list {
          label = "";
          key = "listado";
          edit_width = 50;
          is_default = "false";


}
}

     label = "";
       : edit_box {
        label = "CLAVE       =              ";
        fixed_width = true;
        key = "dimension_1";
        edit_width = 10;
}

     label = "";
       : edit_box {
        label = "Sub-Departamento =";
        fixed_width = true;
        key = "dimension_2";
        edit_width = 10;
}


}
///***********************************************************

:row {
 : boxed_column {
   label = "TUBERIA";

 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_3";
     edit_width = 115;
}

 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_4";
     edit_width = 115;
}

 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_5";
     edit_width = 115;
}
}
}
///***********************************************************
:row {
 : boxed_column {
   label = "CONEXIONES TEE";

 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_6";
     edit_width = 115;
}

 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_7";
     edit_width = 115;
}

 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_8";
     edit_width = 115;
}
}
}

///***********************************************************

:row {
 : boxed_column {
   label = "CONEXIONES CODO";

 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_9";
     edit_width = 115;
}

 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_10";
     edit_width = 115;
}
 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_11";
     edit_width = 115;
}
}
}

///***********************************************************

:row {
 : boxed_column {
   label = "REDUCCION";

 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_12";
     edit_width = 115;
}

 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_13";
     edit_width = 115;
}
}
}
///***********************************************************

:row {
 : boxed_column {
   label = "BRIDA";

 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_14";
     edit_width = 115;
}

 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_15";
     edit_width = 115;
}
}
}
///***********************************************************

:row {
 : boxed_column {
   label = "VALVULA";

 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_16";
     edit_width = 115;
}
 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_17";
     edit_width = 115;
}
 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_18";
     edit_width = 115;
}
 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_19";
     edit_width = 115;
}
 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_20";
     edit_width = 115;
}
 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_21";
     edit_width = 115;
}
}
}
///***********************************************************

:row {
 : boxed_column {
   label = "ACCESORIOS";

 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_22";
     edit_width = 115;
}
 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_23";
     edit_width = 115;
}
 : edit_box {
    label = "";
    fixed_width = true;
    key = "dimension_24";
     edit_width = 115;
}
}
}
///*************************************************************************************

**************************


: boxed_row {
     label = "Nota Importante";
    :paragraph {
    : text_part {      label = "Donde se considere necesario, la tornilleria expuesta a

vapores o sobre el espejo de agua";    }
    : text_part {      label = " deberan ser galvanizados por inmersion en caliente de

acuerdo a ASTM A-153 y cuando";    }
    : text_part {      label = " esten sumergidos, la tornilleria y tuercas seran de

Acero Inoxidable 304";    }
  
  }
}

///*************************************************************************************

******************************

:column {
fixed_width=false;
 :text{  key="saludo"; alignment=centered; }  

 :text{   key="fecha"; alignment=centered; }

}

///*************************************************************************************

*******************************

  : row {
    : spacer { width = 1; }

    : button {
      label = "Cancelar";
      mnemonic = "C";
      is_cancel = true;
      key = "cancel";
      width = 8;
      fixed_width = true;
    }
    : spacer {width = 1;}
}}




Ojala y te sirva...

Saludos
avatar
saulo2016

Mensajes : 99
Fecha de inscripción : 17/03/2016
Edad : 51
Localización : Monterrey, Nuevo León, Mexico

Ver perfil de usuario

Volver arriba Ir abajo

Re: CUADRO DE DIALOGO ( TABLAS DENTRO DE VENTANA)

Mensaje por ronaldtroya el Lun Nov 28, 2016 9:50 pm

Muchas Gracias Saulo

ronaldtroya

Mensajes : 25
Fecha de inscripción : 20/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: CUADRO DE DIALOGO ( TABLAS DENTRO DE VENTANA)

Mensaje por ronaldtroya el Jue Dic 01, 2016 10:22 pm

Es una ayuda, lo que buscaba es saber si se puede hacer esto:

ronaldtroya

Mensajes : 25
Fecha de inscripción : 20/03/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: CUADRO DE DIALOGO ( TABLAS DENTRO DE VENTANA)

Mensaje por amc.dicsac el Jue Dic 01, 2016 10:53 pm

Si quieres hacer algo parecido tienes que usar OpenDcl ya que con DCL no se puede, entra a esta pag y descargate http://www.opendcl.com/download/ y en esta otra pagina registrate en el forum y pregunta
http://www.opendcl.com/forum/

Este es un ejemplo de lo que puedes hacer en OpenDCL






avatar
amc.dicsac

Mensajes : 77
Fecha de inscripción : 17/03/2016
Edad : 26
Localización : Lima - Perú

Ver perfil de usuario http://axprogramlisp.blogspot.pe/

Volver arriba Ir abajo

Re: CUADRO DE DIALOGO ( TABLAS DENTRO DE VENTANA)

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.