help me, please!!! not working

[hailualua]

(defun Copytest (/ curr_dir  foldrflname  edFname  edPath)
  (vl-load-com) 
 
  (setq edPath "D:\\")

  (setq edFname "05a_fr_54.dwg")  

  (setq foldrflname (strcat edPath  edFname ))  

   (setq curr_dir (strcat (getvar "dwgprefix") ))

   
    (vl-file-copy  (apply 'strcat foldrflname)  curr_dir)

  (princ)
)

 

 

 

Edited November 16, 2018 by hailualua

[dlanorh]

(vl-file-copy source-file destination-file)  

This is the correct syntax

 

 (setq curr_dir (strcat (getvar "dwgprefix") ))

curr_dir is NOT  a destination FILE

[BIGAL]

Maybe 

 (setq curr_dir (strcat (getvar "dwgprefix") ))

 (vl-file-copy foldrflname (strcat  curr_dir edfname ))
 (princ)

[Lee Mac]

Your error arises because you are attempting to use the apply function with a string argument as opposed to a list argument:

(apply 'strcat foldrflname)

Here, your variable foldrflname is a string, as returned by the earlier strcat expression:

(setq foldrflname (strcat edPath edFname))

But that aside, you will also need to specify a valid filename for the destination of your vl-file-copy expression, e.g.:

(defun c:copytest ( / edpath edfname )
    (setq edpath  "D:\\"
          edfname "05a_fr_54.dwg"
    )
    (vl-file-copy (strcat edpath edfname) (strcat (getvar 'dwgprefix) edfname))
)

 

Edited November 17, 2018 by Lee Mac