RemoveSupportPath

[BobBuilder]

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?

 

[Jason Piercey]

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

 

[BillZ]

Bob,

Wrong way: (load "removeSupportPath.lsp")

Right way: (load "removeSupportPath")



Bill

 

[BillZ]

Sorry:
I was wrong on that.

Bill

 

[BobBuilder]

Hi,

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

This is the file attached

 

[BobBuilder]

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

Any ideas?

 

[RDI]

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]

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

 

[RDI]

DUH!

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

 

[RDI]

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

 

[R. Robert Bell]

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? | > | > | |

 

[ECCAD]

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

 

[ECCAD]

Sorry, like this:

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

DUH!

Bob

 

[BobBuilder]

Working Now, Thank you all.

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

Cheers

Chris

 

[R. Robert Bell]

The missing delimiter argument.

 

[ECCAD]

Ah,
Good.
Bob