Archivo de notas mediante comando SHELL
2 participantes
Página 1 de 1.
Archivo de notas mediante comando SHELL
Hola que tal, tengon este lisp que crea un archivo de texto en la ruta indicada mediante el comando shell, el problema es que cada vez que crea el archivo me manda un mensaje de confirmación "Desea crear el archivo", quisiera saber si hay un modo de suprimir ese mensaje.
Gracioa
Gracioa
- Código:
(defun c:ntext ( / shell projname )
(vl-load-com)
(setq projname (getstring T "\nIngresa nombre del archivo: "))
(setq shell (vlax-create-object "WScript.Shell"))
(vlax-put-property shell 'CurrentDirectory "C:\")
(vlax-invoke-method shell 'Exec (if (eq projname "") "notepad.exe" (strcat "notepad.exe " projname)))
(vlax-release-object shell)
(princ))
Re: Archivo de notas mediante comando SHELL
Este problema creo que aparece porque intentas escribir en el directorio raíz y con windows vista en adelante, el sistema operativo no te deja hacerlo sin avisarte. Existe la opción de rebajar la seguridad en el "control de cuentas de usuario"(mira en la ayuda de tu windows), pero será siempre más fácil escribir en una subcarpeta pejem. c:\confianza\loquesea.txt
Otra cosa que ocurre es que cuando acompañas a la llamada al block de notas con el nombre de un archivo, este entiende que quieres editarlo y te pregunta si no lo encuentra, para evitarlo, haz (vlax-invoke-method shell 'Exec "notepad.exe") sin archivo y lo guardas luego con el nombre que quieras.
Un saludo
Otra cosa que ocurre es que cuando acompañas a la llamada al block de notas con el nombre de un archivo, este entiende que quieres editarlo y te pregunta si no lo encuentra, para evitarlo, haz (vlax-invoke-method shell 'Exec "notepad.exe") sin archivo y lo guardas luego con el nombre que quieras.
Un saludo
nolo- Mensajes : 182
Fecha de inscripción : 17/03/2016
Re: Archivo de notas mediante comando SHELL
También puedes crear un archivo en blanco (si no existe ya) antes de abrirlo
Algo así
y otra cosa que puedes hacer es arrancar directamente con startapp el bloc de notas sin necesidad del scrpit
Un saludo
Algo así
- Código:
(defun c:ntext ( / shell projname donde )
(vl-load-com)
(setq donde "c:\\paso")
(defun blanco( file )
(if (findfile (strcat donde file))
(princ"\nEl artchivo existe")
(progn(setq indi (open (strcat donde file)"w"))
(write-line "" indi)
(close indi))
))
(setq projname (getstring T "\nIngresa nombre del archivo: "))
(setq shell (vlax-create-object "WScript.Shell"))
(vlax-put-property shell 'CurrentDirectory donde);;;"C:")
(vlax-invoke-method shell 'Exec (if (eq projname "") "notepad.exe"
(progn (blanco projname)(strcat "notepad.exe " "\""donde projname"\"")))
)
(vlax-release-object shell)
(princ))
y otra cosa que puedes hacer es arrancar directamente con startapp el bloc de notas sin necesidad del scrpit
- Código:
(startapp "notepad.exe")
Un saludo
nolo- Mensajes : 182
Fecha de inscripción : 17/03/2016
Temas similares
» Edicion de Notas
» Seleccionar capas mediante cuadro de diálogo
» Es posible cambiar la fuente de un Mtext mediante Lisp??
» Comando IMPLODE
» Utilizar comando Filter
» Seleccionar capas mediante cuadro de diálogo
» Es posible cambiar la fuente de un Mtext mediante Lisp??
» Comando IMPLODE
» Utilizar comando Filter
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.