Leaderboard

Remove the semicolon before the path to LISP. It's only for separating the paths and since LISP is the first one it shouldn't be there. If you simply moved the semicolon to the end of each path you wouldn't need the last ";" at the end.

Do you have to use entmake? Here is a simple example to add selected objects to a block using vla. (defun c:foo (/ a b s) (setq a (vla-get-activedocument (vlax-get-acad-object))) (setq b (vla-add (vla-get-blocks a) (vlax-3d-point '(0. 0. 0.)) "MyNewBlock")) ;; (vlax-for x b (vla-delete x)) (and (setq s (ssget)) (setq s (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))))) (vlax-invoke a 'copyobjects s b nil) ) (princ) ) (vl-load-com)

Attached is the code from TheSwamp. You should create an account there though ... lots of smart peeps there :). EntMaker CAB 05- MakeEntmake.lsp

One thing I see that could cause an issue is Yes .. you cannot pass a list to vl-string-subst. Use (car findjgw). Also your UNC path check could be simplified to this: (if (wcmatch (getvar 'dwgprefix) "\\*") "UNC" "MAPPED" ) Just guessing, but this looks like an incorrect path too. (setq sfpath (strcat "\\\\" drive "\\" dir1 "\\" dir2 "\\" dir3 "\\" dir4 "\\"))

First impression: the problem is here: findjgw is a list, (vl-string-subst expects a string there. (setq jpgname (vl-string-subst "jpg" "jgw" findjgw)) This should work: (setq jpgname (vl-string-subst "jpg" "jgw" (nth 0 findjgw )))