RemoveSupportPath

Hi,

i have dowloaded the removeSupportPath.lsp and StrParse.lsp from acadx.com but i am having a few problems.

in my acad.lsp i have added:-

(load "strparse.lsp")
(load "removeSupportPath.lsp")
(removeSupportPath "\\\\Server\\cad\\support")

but all i get is:-

; error: malformed list on input

Any ideas?

 

Sounds like a bad cut/paste. Make sure you didn't
leave out any ( ).

 

Bob,

Wrong way: (load "removeSupportPath.lsp")

Right way: (load "removeSupportPath")



Bill

 

Sorry:
I was wrong on that.

Bill

 

Hi,

i have re-created the file and still have the same problem.

This is the file attached

 

im now getting an error saying ; error: too few arguments

Any ideas?

 

This is from the StrParse description:
(StrParse Str Delimiter)

This is from the removeSupportPath's definition:
(StrParse (getenv "ACAD"))

It's missing the delimiter. Try changing it to (StrParse(getenv "ACAD")
"/")

 

Or (StrParse(getenv "ACAD") "\\")

 

DUH!

That should have read (StrParse(getenv "ACAD") ";")

 

Well--I guess that was a real DUH! moment.

 

The website has been updated. Sorry for the confusion.

--
R. Robert Bell, MCSE
www.AcadX.com


| DUH!
|
| That should have read (StrParse(getenv "ACAD") ";")
|
| --
|
| RDI
|
| (remove the exclamation from the email address)
|
| > This is from the StrParse description:
| > (StrParse Str Delimiter)
| >
| > This is from the removeSupportPath's definition:
| > (StrParse (getenv "ACAD"))
| >
| > It's missing the delimiter. Try changing it to (StrParse(getenv "ACAD")
| > "/")
| >
| >
| >
| > --
| >
| > RDI
| >
| > (remove the exclamation from the email address)
| >
| > | > > im now getting an error saying ; error: too few arguments
| > >
| > > Any ideas?
| >
| >
|
|

 

In function removeSupportPath, add a ' before the (StrParse (getenv "ACAD")) - Like so:

(defun removeSupportPath (dir / tmp)
(setq tmp "")
(mapcar '(lambda (x)
(if (/= (strcase x) (strcase dir))
(setq tmp (strcat tmp x ";"))
)
)
'(StrParse (getenv "ACAD"))
)
(setenv "ACAD" (substr tmp 1 (1- (strlen tmp))))
(princ)
)

That should clear up the problem.
Bob

 

Sorry, like this:

'(StrParse(getenv "ACAD") ";")

DUH!

Bob

 

Working Now, Thank you all.

What a website full of useful stuff "www.acadx.com"

Cheers

Chris

 

The missing delimiter argument.

--
R. Robert Bell, MCSE
www.AcadX.com


| So, what was the problem ?
| Bob

 

Ah,
Good.
Bob