Aplicacion DTarear actualizada

Página 2 de 2. Precedente  1, 2

Ver el tema anterior Ver el tema siguiente Ir abajo

Re: Aplicacion DTarear actualizada

Mensaje por Dominguez el Mar Ene 03, 2017 7:23 pm

Bueno amigos ya de vuelta de vacaciones de invierno
Pues como dice saulo2016, con el programa de Kasperle paso imagen a DCL, pero antes, trato de minimizar la imagen al maximo con powerPoint, para que ocupe menos codigo, y a ese fichero que me devuelve lo llamo foto_ldg.lsp
Bueno pongo un ejemplo para conprender mejor
fichero dteuros_petas.lsp
Código:
 ; Convierte euros en pesetas y viceversa.
 ; Luis Dominguez Gómez  ©2002
;;; oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
(defun dialog_eurpet ()
  (setq file (vl-filename-mktemp "dcl.dcl"))
  (setq indi (open file "W"))
  (write-line
    "temp:dialog{label=\" CONVERSOR    Euros / Pesetas\";:row{:boxed_row{label=\" Euros \";:edit_box{key=\"eur\";
fixed_width_font=true;allow_accept=true;edit_width=10;edit_limit=10;}}:image{key=\"foto\";height=5;width=8;
color=dialog_background;}:boxed_row{label=\" Pesetas \";:edit_box{key=\"pes\";fixed_width_font=true;allow_accept=true;
edit_width=12;edit_limit=10;}}}:boxed_column{label=\" Indicaciones \";:errtile{alignment=centered;fixed_width_font=true;}}
spacer;:row{alignment=centered;fixed_width=true;:ok_button{label=\"Calcular...\";key=\"cal\";}:cancel_button{
label=\"Salir\";key=\"sal\";}:button{label=\"Limpiar...\";key=\"lim\";}}spacer;:boxed_column{
label=\" Luis Dominguez Gómez  © 2002 \";:text{key=\"fecha\";alignment=centered;}}}"
    indi
  )
  (close indi)
)
;;; oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
(defun calcular ()
  (cond ((and (= (get_tile "eur") "") (= (get_tile "pes") ""))
        (set_tile "error" "Debes Indicar Moneda")
        (mode_tile "eur" 2)
        )
        ((= (get_tile "eur") "")
        (set_tile "eur" (rtos (/ (atof (get_tile "pes")) 166.386) 2 2))
        (set_tile "pes" "")
        )
        ((= (get_tile "pes") "")
        (set_tile "pes" (rtos (* (atof (get_tile "eur")) 166.386) 2 2))
        (set_tile "eur" "")
        )
  )
)
;;; oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
(defun c:dteuros_petas (/ file indi)
  (setvar 'cmdecho 0)
  (dialog_eurpet)
  (setq indi (load_dialog file))
  (new_dialog "temp" indi)
  (if (not foto_ldg)
    (load "foto_ldg")
  )
  (foto_ldg 64 0) ;V-H
  (mapcar 'action_tile
          (list "cal" "lim" "sal")
          (list "(calcular)" "(set_tile \"eur\" \"\") (set_tile \"pes\" \"\")" "(exit)")
  )
  (set_tile "fecha" (menucmd "M=$(edtime, $(getvar,date),DDDD\"\" DD MONTH YYYY - HH:MM am/pm)"))
  (vl-file-delete file)
  (start_dialog)
  (done_dialog)
  (unload_dialog indi)
  (prin1)
)
;;; oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
fichero foto_ldg.lsp
Código:
 ; Imagen L D G    para insertar en cuadros de dialogo.
(defun foto_ldg (v h / verti horiz)
  (setq verti v)
  (setq horiz h)
  (start_image "foto")
  (foreach x '((108 108 250 250 250 250 250 250 250 250 250 168 179 177 177 177 177 177 177 156 166 156 166 156 177 177
                156 177 179 177 251 189 169 179 166 166 169 169 169 158 168 250 250 250 248 250 250 250
              )
              (88 250 250 250 250 250 250 250 250 250 250 168 169 169 166 166 166 177 177 156 166 156 166 156 177 177
                156 177 179 187 8 199 179 179 179 158 179 169 169 177 179 168 250 28 250 250 250 250
              )
              (250 250 250 250 250 250 250 250 250 250 250 168 159 179 166 166 166 166 156 166 166 166 177 177 177 177
                177 169 179 251 251 251 199 179 179 179 158 169 179 159 149 178 250 250 250 250 250 250
              )
              (250 250 250 250 250 250 250 250 250 250 168 168 159 158 166 166 166 166 166 166 166 166 177 166 177 177
                177 179 251 8 251 251 251 209 159 169 179 179 168 169 163 178 250 250 250 250 250 250
              )
              (250 250 250 250 250 250 250 250 250 250 168 179 169 166 156 166 156 166 166 166 177 177 177 177 177 165
                177 168 252 8 37 8 251 209 179 177 167 177 177 155 145 169 250 250 250 250 250 250
              )
              (250 250 250 250 250 250 250 250 250 179 168 169 169 156 156 166 177 177 177 177 177 177 177 167 167 155
                251 251 252 252 35 35 37 251 250 179 159 177 177 177 163 167 250 250 250 250 250 250
              )
              (250 250 250 250 250 250 250 250 250 168 179 179 179 169 177 177 177 159 167 8 251 251 251 251 219 251
                251 8 253 253 33 45 35 8 251 188 179 169 159 179 163 167 168 250 250 250 250 250
              )
              (250 250 250 250 250 250 250 250 250 168 179 179 169 177 177 177 187 8 8 251 251 251 251 49 39 49 251 47
                253 33 33 23 35 252 252 219 168 169 169 159 145 159 168 250 250 250 250 19
              )
              (250 250 250 250 250 250 250 250 250 168 179 179 177 177 209 251 252 252 251 251 251 251 59 49 251 251 37
                37 35 252 45 35 35 35 252 253 179 169 179 177 145 168 250 250 250 250 38
              )
              (250 250 250 250 250 250 250 250 168 168 169 177 199 209 251 8 8 27 37 37 59 49 49 251 251 251 37 37 37
                47 35 47 37 35 252 253 251 179 169 155 149 168 250 250 250 38 38 47
              )
              (250 250 250 250 250 250 250 250 168 168 169 177 209 251 251 252 59 59 37 59 49 251 251 251 251 251 251
                251 27 25 35 252 8 35 252 253 253 219 177 8 250 250 250 28 19 39 55
              )
              (250 250 250 250 28 28 250 250 168 179 159 199 251 251 35 37 49 37 27 59 37 37 27 27 37 8 8 8 252 8 252
                253 33 252 35 23 253 252 251 209 250 250 250 19 29 37
              )
              (250 250 250 250 38 28 250 250 168 169 159 209 251 37 35 39 37 37 49 37 35 35 35 35 8 8 252 252 252 33
                253 253 253 253 33 252 253 253 251 250 250 250 250 38 38 45
              )
              (250 250 250 250 38 250 250 250 179 159 177 209 27 37 27 37 37 27 35 25 35 35 23 35 23 23 23 23 23 33 253
                253 9 9 253 33 23 253 8 19 250 250 250 38 39
              )
              (250 250 250 250 250 250 250 250 179 149 199 250 27 35 27 35 25 25 35 35 23 35 35 35 23 23 23 23 33 33 33
                253 253 9 253 33 33 253 253 19 250 250 250 28 45
              )
              (250 250 250 250 250 250 250 250 179 177 209 250 37 37 37 35 25 35 35 35 23 35 35 35 23 23 23 23 33 33 33
                253 253 253 253 33 33 33 253 27 18 19 28 39
              )
              (19 250 250 250 250 250 250 250 169 177 199 229 35 37 25 35 25 35 35 35 35 23 35 35 35 35 23 45 23 23 33
                33 253 33 33 33 33 253 253 254 27 28 37 254
              )
              (19 19 250 250 250 250 250 250 159 177 209 239 35 37 35 35 35 23 23 35 35 35 45 35 35 35 23 35 23 23 33
                33 253 33 33 33 33 253 33 33 253 45 254
              )
              (29 29 250 250 250 250 250 250 149 251 229 251 35 37 23 25 35 23 35 35 35 35 35 35 35 35 35 23 35 35 23
                33 253 33 33 23 33 33 33 43 33
              )
              (29 19 250 250 250 250 250 250 209 251 239 37 25 35 35 25 23 23 35 35 35 35 35 35 35 35 35 35 23 23 23 33
                33 33 33 23 33 33 33 33 33 33
              )
              (38 19 29 250 250 250 250 250 251 251 249 25 25 35 35 35 23 23 35 35 35 25 35 35 35 23 23 23 23 23 33 21
                33 33 23 23 33 33 253 33 33 33 43
              )
              (28 29 19 29 29 250 250 250 209 251 39 37 35 35 35 35 23 23 35 35 35 35 35 35 35 35 35 35 23 45 23 23 23
                33 35 35 33 33 253 33 33 9 33
              )
              (38 38 19 19 19 19 250 250 250 219 49 37 35 35 35 45 23 23 35 35 35 25 27 27 25 35 35 35 45 37 17 39 27
                27 25 35 33 33 253 33 23 253 33 43
              )
              (43 28 19 19 19 19 250 250 250 49 49 37 25 35 35 23 23 23 35 25 27 29 17 25 27 35 35 25 37 252 35 35 49
                27 35 23 33 33 33 33 23 253 253 43 43
              )
              (254 45 28 19 19 19 250 250 250 19 59 35 25 35 45 23 45 45 35 27 19 17 37 37 33 45 25 45 37 37 37 27 23
                33 23 23 33 33 33 33 33 33 253 9 35 33
              )
              (-2 254 45 38 28 38 19 19 19 28 39 35 35 35 45 45 23 45 35 25 27 17 37 37 37 27 25 25 25 35 35 33 33 33
                33 23 23 23 33 33 33 33 253 9 33 33
              )
              (-2 -2 254 9 47 48 38 38 28 28 48 35 35 45 45 23 45 45 35 35 35 25 25 25 35 45 35 35 23 23 23 23 33 33 33
                23 45 23 23 23 23 33 9 253 43 21
              )
              (-2 -2 -2 254 254 41 43 35 37 27 27 35 35 35 45 23 23 35 35 35 35 35 35 35 35 23 35 35 35 23 35 33 33 23
                35 35 35 23 33 23 33 253 9 253 21 21 33
              )
              (-2 -2 -2 -2 -2 -2 -2 254 254 254 33 35 35 35 35 45 45 35 35 35 25 25 35 35 35 35 35 25 35 35 23 23 23 35
                35 35 23 23 33 23 33 9 9 253 21 33 33
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 31 35 35 35 45 35 23 35 35 35 45 35 35 35 35 35 35 25 35 35 23 35 35 35 35 35
                35 23 33 33 33 33 9 9 9 21 33 33 43
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 31 23 35 45 35 23 35 23 23 35 35 23 35 35 25 25 35 23 23 23 253 253 35 23 35
                35 23 33 33 33 33 31 9 9 9 31 21 33 33
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 31 23 35 35 35 23 23 23 33 23 35 35 35 25 25 35 23 33 33 33 253 254 9 33 25
                23 33 33 33 33 21 9 254 9 9 21 33 33 33
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 31 23 35 45 35 23 23 23 33 33 23 25 35 35 23 35 23 23 23 33 31 33 33 35 35 33
                33 33 33 33 21 31 254 9 9 253 25 33 33 43
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 31 45 35 35 23 23 23 23 33 33 33 23 35 35 35 25 35 23 23 33 31 21 23 35 33 33
                33 33 33 33 21 253 9 254 9 9 33 9 33 33
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 43 45 23 35 23 23 33 33 33 33 33 33 23 35 25 23 13 23 23 23 21 21 33 33 33 33
                33 23 23 23 23 33 43 253 9 9 253 253 33 33
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 33 23 23 35 23 23 23 23 23 23 33 33 33 33 23 23 23 23 23 33 21 33 23 33 35 23
                33 33 33 23 33 253 253 33 9 9 253 33 23 45
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 33 45 23 23 23 33 33 23 23 23 23 35 35 23 23 23 23 35 23 33 21 33 35 23 33 33
                33 33 33 33 253 253 9 9 252 254 9 9 33 33
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 33 35 23 45 23 23 35 45 35 35 23 35 35 35 35 27 35 23 23 23 33 33 45 33 252
                33 33 33 33 33 253 253 33 253 252 254 253
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 33 35 23 23 23 45 45 23 23 23 23 23 23 23 23 35 27 35 23 23 33 35 45 35 252
                252 33 33 33 252 33 35 45 33 253 35 35 35 253
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 33 23 23 23 23 23 23 45 23 33 33 33 33 23 23 35 37 37 23 23 33 25 37 37 37 37
                37 49 37 37 39 37 252 33 253 35 33 27
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 45 45 33 23 45 23 35 35 33 23 45 33 23 45 35 35 37 17 35 33 23 37 35 27 8 252
                251 59 49 37 47 35 33 33 253 35 37 253 254 254
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 45 45 33 35 45 23 33 37 37 27 27 49 27 37 27 35 33 35 35 33 23 253 252 252
                253 252 251 47 8 8 252 253 253 253 253 28 27 9 9 254
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 31 43 45 37 35 35 33 45 27 37 49 49 49 37 37 252 254 254 252 33 33 252 37 8
                252 8 8 8 252 252 8 8 47 37 35 253 9 9 9 254
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 31 45 27 25 37 45 33 45 35 35 8 35 35 252 252 9 253 39 27 35 35 27 27 252
                8 49 39 49 49 27 37 252 254 254 254 9 9 9 254
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 31 33 33 45 27 45 35 35 33 33 252 252 35 47 37 27 39 27 8 45 23 33 252 252 8
                8 35 47 35 35 35 33 254 254 254 9 9 253 254 254
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 43 33 45 39 37 37 37 37 37 37 49 27 49 27 35 252 253 253 253 33 253 33 253
                253 253 253 253 33 33 33 9 254 254 9 254 9 9 254 254
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 31 43 33 35 25 37 37 27 17 49 27 37 35 33 33 23 33 33 33 33 33 33 253 253
                253 253 253 33 9 253 9 9 254 254 254 254 9 254 254
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 31 43 33 23 23 23 23 45 35 35 35 23 33 33 33 33 33 33 33 33 23 33 33 33 33
                43 21 21 43 253 9 9 254 254 254
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 43 43 33 23 23 23 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33
                33 33 21 21 253 33 254 254 254 254 254
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 31 33 33 23 23 23 23 23 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33
                33 33 33 43 253 253 9 254 254 254 254 253
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 43 33 23 23 23 23 23 23 23 23 23 23 33 33 33 33 33 33 33 33 33 33 33
                33 33 33 253 253 253 254 254 254 254 254 33
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 31 33 33 23 23 33 33 23 23 23 23 23 33 33 33 33 33 33 33 33 33 33 33
                33 33 33 253 9 253 9 254 254 254 253 33 43
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 33 45 33 23 23 33 23 23 33 33 33 33 33 33 33 33 33 33 33 33 33 33
                33 33 43 253 9 9 9 254 9 9 23 33
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 31 23 33 33 23 23 23 23 33 33 33 33 33 33 33 33 33 33 33 33 33 33
                33 33 21 31 31 9 9 9 254 33 45 43
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 43 23 33 23 23 23 23 33 33 23 23 33 33 33 33 33 33 33 33 33 33
                33 33 21 21 31 43 43 31 9 35 45
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 31 45 33 33 23 23 23 23 23 23 23 33 33 33 33 33 33 33 33 33 33
                33 33 33 21 33 21 21 31 23 35 33
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 31 33 33 33 33 23 23 23 23 23 23 23 23 33 33 33 33 33 33 33
                33 33 33 33 21 21 43 23 27 45
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 33 45 33 33 33 23 23 23 23 33 33 23 33 33 33 33 33 33 33
                33 33 43 33 21 43 45 27 27
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 33 45 33 33 33 23 33 23 23 23 23 33 23 33 33 33 33 33
                35 23 33 33 33 45 27 37 33
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 35 37 23 33 33 33 23 23 23 23 23 23 23 23 23 35 35
                35 35 35 45 37 27 37 33
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 33 37 25 35 35 35 45 35 35 45 35 35 35 35 35 37
                37 37 27 27 27 35 33
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 45 46 37 25 25 35 25 35 35 35 35 35 35 25 27
                27 27 37 35 37 33
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 33 45 37 37 35 37 37 37 37 35 37 35 37 25
                35 35 45 33 43
              )
              (-2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 45 45 35 25 37 37 37 35 35 45 35 33
                43 43 43
              )
              )
    (foreach y x (apply 'fill_image (list horiz verti 1 1 y)) (setq horiz (1+ horiz)))
    (setq verti (1- verti))
    (setq horiz h)
  )
  (end_image)
)
espero haberme explicado bien

Dominguez

Mensajes : 48
Fecha de inscripción : 20/03/2016
Edad : 66
Localización : Zaragoza (España)

Ver perfil de usuario

Volver arriba Ir abajo

Re: Aplicacion DTarear actualizada

Mensaje por amc.dicsac el Mar Ene 03, 2017 9:30 pm

Hola maestro Dominguez, quisiera hacerle una pregunta ya que ha dado una explicación de imagen a dcl, como logro convertir un archivo .sld a lista de vectores.

amc.dicsac

Mensajes : 67
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: Aplicacion DTarear actualizada

Mensaje por Dominguez el Mar Ene 03, 2017 11:39 pm

amc.dicsac escribió:Hola maestro Dominguez, como logro convertir un archivo.sld a lista de vectores.
Pues hay me has pillado, porque yo no se hacer nada con slides, ademas no se si se podra hacer algo.
Otra cosa es dibujar con vectores (en tiempo real) una imagen en un DCL.
hay si que se hacer alguna cosita
Saludos

Dominguez

Mensajes : 48
Fecha de inscripción : 20/03/2016
Edad : 66
Localización : Zaragoza (España)

Ver perfil de usuario

Volver arriba Ir abajo

Re: Aplicacion DTarear actualizada

Mensaje por saulo2016 el Miér Ene 04, 2017 2:43 pm

Maestro Dominguez....pero me supongo que usted debera estar utilizando un Windows 7 con Arquitectura 32 Bit's...y al menos SP1.

Es que yo me estoy imaginando que mi problema va por ahí.....que al cambiar mi plataforma a Windows 8 64 bits...debio haber cambiado el WorkFrame a una version mas elevada.


Ahora por otro lado...la pregunta que formuló amc.dicsac me supongo que se refiere a que quiere saber como integrar una biblioteca de SLD's o me jor dicho....crear un SLB a poartir de una biblioteca de SLD's.....¿o me estoy equivocando??


Saludos

saulo2016

Mensajes : 88
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: Aplicacion DTarear actualizada

Mensaje por saulo2016 el Miér Ene 04, 2017 3:04 pm

Ahora si lo que amc.dicsac quiere es convertir SLD's a DWG's bueno pues entonces que visite esta pagina y se descargue gratis el convertidor:


http://www.cadforum.cz/cadforum_en/download.asp?fileID=127

Ojalá y mi aporte sirva de algo.

saulo2016

Mensajes : 88
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: Aplicacion DTarear actualizada

Mensaje por nolo el Miér Ene 04, 2017 4:46 pm

Igual lo que buscáis es algo parecido a GetVectors.lsp
Mirar aquí en la página de terrycad
http://web2.airmail.net/terrycad/AutoLISP-Code.htm

Un saludo

nolo

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

Ver perfil de usuario

Volver arriba Ir abajo

Re: Aplicacion DTarear actualizada

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Página 2 de 2. Precedente  1, 2

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

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