cac bac xem giup em. bi loi gi`

[hailualua 0]

xem giúp mình đoạn code sau nó báo lỗi như hình đính kèm

 

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

  (setq edFname "05a_fr_54.dwg")  

  (setq duongdan (strcat edPath  edFname ))  

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

   
    (vl-file-copy  duongdan  curr_dir)

  (princ)
)

 

[Danh Cong 422]

+ Bài này bị lỗi nói ngọng !

[hailualua 0]

8 phút trước, Danh Cong đã nói:

+ Bài này bị lỗi nói ngọng !

em hỏi thiệt tình mà bác! :)

[ngokiet 169]

Sai ở đây nè : (strcat (getvar "dwgprefix") )

 

[hailualua 0]

14 phút trước, ngokiet đã nói:

Sai ở đây nè : (strcat (getvar "dwgprefix") )

 

chỉ rõ hơn cho e được không? mình mới tập tành viet lisp nên còn gà mờ lắm. mong duoc95 chir giáo nhiệt tình!!!
thanks bác

[ngokiet 169]

Bạn sửa lại vậy nè

(defun c:Copytest (/ curr_dir  duongdan  edFname  edPath)
  (vl-load-com)
  (setq edPath "D:\\"
    edFname "05a_fr_54.dwg"
    duongdan (strcat edPath  edFname )
    curr_dir (strcat (getvar "dwgprefix") edFname))
  (vl-file-copy  duongdan  curr_dir)
  (princ))

Mình gom lại cho gọn

[hailualua 0]

5 phút trước, ngokiet đã nói:

Bạn sửa lại vậy nè

(defun c:Copytest (/ curr_dir  duongdan  edFname  edPath)
  (vl-load-com)
  (setq edPath "D:\\"
    edFname "05a_fr_54.dwg"
    duongdan (strcat edPath  edFname )
    curr_dir (strcat (getvar "dwgprefix") edFname))
  (vl-file-copy  duongdan  curr_dir)
  (princ))

Mình gom lại cho gọn

thanks bac nhieu nhe' code chay ok roi!!!