Topic: Why this lisp not working in CAD2016

[HasanCAD]

I am wondering why this lisp is working fine in CAD2014 but not working in 2016

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2. (setq *files* (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
3. (SETQ ORIGPATH (vla-get-SupportPath *files*))
4. (SETQ ONEPATH   (setq w         ";B:\\Fonts"))
5. (if (not (vl-string-search w ORIGPATH))
6.   (progn
7.     (SETQ MYENV (STRCAT ORIGPATH ONEPATH))
8.     (if (< (strlen myenv) 1000); <- not sure why you are checking the length
9.                                          ; I've seen something referring to 800 chars
10.                                          ; but my normal path is over 900 and I have no problems
11.       (vla-put-SupportPath *files* myenv)
12.     )
13.   )
14. )

Thanks

[ChrisCarlson]

Apparently I'm a repository for Lee 

Code - Auto/Visual Lisp: [Select]

1. (defun LM:sfsp+ ( lst / str )
2. ;; Add Support File Search Paths  -  Lee Mac
3. ;; Adds a list of Support File Search Paths, excluding duplicates and invalid paths.
4. ;; lst - [lst] list of paths to add, e.g. '("C:\\Folder1" "C:\\Folder2" ... )
5. ;; Returns: [str] "ACAD" Environment String following modification
6.     (setenv "ACAD"
7.         (strcat (setq str (vl-string-right-trim ";" (getenv "ACAD"))) ";"
8.             (apply 'strcat
9.                 (mapcar (function (lambda ( x ) (strcat x ";")))
10.                     (vl-remove-if
11.                         (function
12.                             (lambda ( x )
13.                                 (or (vl-string-search (strcase x) (strcase str))
14.                                     (not (findfile x))
15.                                 )
16.                             )
17.                         )
18.                         (mapcar
19.                             (function
20.                                 (lambda ( x )
21.                                     (vl-string-right-trim "\\" (vl-string-translate "/" "\\" x))
22.                                 )
23.                             )
24.                             lst
25.                         )
26.                     )
27.                 )
28.             )
29.         )
30.     )
31. )

Code - Auto/Visual Lisp: [Select]

1.         (LM:sfsp+ '("B:\\Fonts"))

[Lee Mac]

Thanks Chris - I recently updated those functions here: Add & Remove Support File Search Paths

[kdub_nz]

I am wondering why this lisp is working fine in CAD2014 but not working in 2016

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2. (setq *files* (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
3. (SETQ ORIGPATH (vla-get-SupportPath *files*))
4. (SETQ ONEPATH   (setq w         ";B:\\Fonts"))
5. (if (not (vl-string-search w ORIGPATH))
6.   (progn
7.     (SETQ MYENV (STRCAT ORIGPATH ONEPATH))
8.     (if (< (strlen myenv) 1000); <- not sure why you are checking the length
9.                                          ; I've seen something referring to 800 chars
10.                                          ; but my normal path is over 900 and I have no problems
11.       (vla-put-SupportPath *files* myenv)
12.     )
13.   )
14. )

Thanks

Since no-one else has asked :
What is not working with the code you posted ?

//=============

FYI: I just checked my AC2016

_$ (strlen myenv)
1608


so I don't understand the 1000 check conditional.