change lisp to work in subpath

[au-s]

Hello,

 

I have found a great lisp for inserting blocks with preview.

Problem is that it only work in my Support File Path.

 

I have other lisps in other subPaths and they work correctly.

They work due to this lisp I've got help with here:

 

(defun C:LOADALL(/ lispPath subPath cPath fLst cFil)
 (setq lisPpath "K:\\CAD\\AIX-meny-2008\\Lisp\\"
subPath '("ucs" "xref" "Dim" "text")
); end setq
 (foreach sp subPath
   (setq cPath(strcat lisPpath sp))
   (if(setq fLst(vl-directory-files cPath "*.lsp" 1))
     (foreach cf fLst
(setq cFil(strcat cPath "\\" cf))
       (load cFil)
      ); end foreach
     ); end if
   ); end foreach
 (princ)
 );END CODE

 

That insures that lisps in "Dim, Xref folders work.

 

But that lisp does not. Is there a variable or such that can change it without me adding an extra folder to my ACAD Search File Paths.

 

I attach a file with the lisp.

dblock.zip

[jammie]

Hey au-s,

 

The problem could be with DBLOCK.DCL, it needs to be saved in one of the ACAD search paths so it can be found and run when the dblock routine is loaded.

 

Have you added any of the directories "K:\CAD\AIX-meny-2008\Lisp\..." to your Acad "Support File Search Path"?

 

Regards,

 

Jammie

[au-s]

Hey au-s,

 

The problem could be with DBLOCK.DCL, it needs to be saved in one of the ACAD search paths so it can be found and run when the dblock routine is loaded.

 

Have you added any of the directories "K:\CAD\AIX-meny-2008\Lisp\..." to your Acad "Support File Search Path"?

 

Regards,

 

Jammie

 

Thanx for the answer.

The problem is that the dcl loads but it neither finds any slide images neither it finds blocks. Allthough when I add a support path like "Block" to support file path and put all the blocks, slides, dcl, lsp in it then it work.

But then, I have to have all blocks in one folder. That I consider unpractical due to many blocks at my work office and I wantr them devided in seperate fodlers. That means I have to add each and every of them to my support file path.

 

The lisp above is adding subPaths which are not added in the support file search paths.

 

DCL, I tried as you said. I put it in the support File search path and the rest of the lisp and blocks in another fiolder... did not work.

 

I think I need to somehow set the home dir of blocks?

like (setq home (strcat BlockDir "Path/goes/here)) ?