script that loads lisps

Hi..All

How to write a simple script that loads lisps from a network location

without adding it is in the startup suit. (location is added in support file search path) Can anyone help me out with that?

Thanks!....

Use an AutoLISP load expression, e.g.:

(load "//YourServer/YourPath/YourLISP.lsp" nil)

Put all your common lisps in the support directory that you have added, like Lee above add mini defuns so you can load lisp at any time as a command

; yourlisp.lsp
(defun C:ZE () (command "zoom" "E"))
(defun c:39 () (Setvar "osmode" 39))
(defun c:xfp () (load "xfallper.lsp"))

Thanks..for your reply

I tried this (load "//T:/Documents/my folder/Lisps/Etr.lsp" nil)

in script but its not working it shows Command: etr

Unknown command "ETR". Press F1 for help.

my drive---T

Path-----Documents \my folder\Lisps

Lisp-------etr.lsp

comand----(defun c:Etr ()

I already added T drive in support directory

Can you correct me

Thanks

hi

at the end it is working

when i put this code in script it is working

(defun c:etr () (load "etr.lsp"))

etr

etr

etr

why should i add ETR three times (am not expert in script and lisp) if it is wrong way pls correct me...

Thanks

You need to edit etr.lsp so it has the c:etr then as you have the support path set you can just do (load "etr")(c:etr)

You need to edit etr.lsp so it has the c:etr then as you have the support path set you can just do (load "etr")(c:etr)

Hi....

Thanks for ur great support..

It is running

Thanks