Topic: Lisp to open a note pad

[CadFrank]

Hi, I would like to know if a lisp routine exist for the fallowing explanation.

Ok well i have a Notepad saved as TimeTracker.txt in my desktop.

Would it be possible that when i press CTRL+S in AutoCad drawing that the file .txt open.

I would also like to know how i keep a .lsp loaded in a .dwt file.

Thx alot for all the help.

Cheers & Beers

[Lee Mac]

Code: [Select]

(startapp "notepad" "C:\\YourFilename.txt")

[CadFrank]

Ok, lets say I do not know how to creat a lisp routine.

where would i put the script you posted?

[Lee Mac]

At the point in your program at which you want the Text file to open, for example:

Code: [Select]

(defun c:test ( )
    (getstring "\nPress Enter to open Notepad...")
    (startapp "notepad")
    (princ)
)
Or, as a better example:

Code: [Select]

(defun c:test ( / file )
    (if (setq file (getfiled "Select Text File to Open" "" "txt" 16))
        (startapp "notepad" file)
    )
    (princ)
)

[CadFrank]

Would this work?

(defun c:timet()

(startapp "notepad" "C:\\TimeTracker.txt")

)

(princ)

[CadFrank]

So this would make it start when i press Ctrl+s or Save

[Lee Mac]

So this would make it start when i press Ctrl+s or Save

No, for that you would need to alter your cui.

[CadFrank]

Would altering my cui. be hard or creat problems?

[Lee Mac]

Would altering my cui. be hard or creat problems?

Not too difficult...

Type CUI at the command-line, navigate to 'Keyboard Shortcuts' > 'Shortcut Keys' > 'Save'

Alter the macro to call the LISP function before (or after) executing the 'qsave' command, e.g.:

Code: [Select]

^C^C(c:test);_.qsave

[CadFrank]

Ok it works when i Save.. But if the text file i only want to open is TimeTracker.txt and i want it to open when i press Ctrl+S what should i change in the routine.

Code: [Select]

(defun c:timet ( / file )
    (if (setq file (getfiled "Select Text file To Open" "" "txt" 16))
        (startapp "notepad" file)
    )
    (princ)
)

[alanjt]

You can also do this from the commandline by default (defined in acad.pgp). just type NOTEPAD

[Lee Mac]

Ok it works when i Save.. But if the text file i only want to open is TimeTracker.txt and i want it to open when i press Ctrl+S what should i change in the routine.

Code: [Select]

(defun c:timet ( / file )
    (if (setq file (getfiled "Select Text file To Open" "" "txt" 16))
        (startapp "notepad" file)
    )
    (princ)
)

Hint:

Code: [Select]

(startapp "notepad" "C:\\YourFilename.txt")

You can also do this from the commandline by default (defined in acad.pgp). just type NOTEPAD

That's a new one for me, thanks. 

[CadFrank]

So it writes impossible to open file

Code: [Select]

(defun c:timet ( / file )
        (startapp "notepad" "C:\\Timetracker.txt")
    (princ)
)
Where should i put my .txt file for it to be found?

[Lee Mac]

Where should i put my .txt file for it to be found?

Anywhere - as long as the filepath in the startapp expression matches the location of the text file.

Code: [Select]

(startapp "notepad" <filepath of textfile>)

[CadFrank]

well i found the problem i guess i took out one of the 2 "\" int the C:\\TimeTracker.txt and it worked

Well Thx alot for your help Lee

Cheers & Beers !