LISP NOT WORKING

sachindkini

dear sir
this lisp working in 2011 but not working 2013 (windows 8 64 bit)

1. Command: BIGBOARD
   
2. ; error: bad argument type: FILE nil

复制代码

2. (defun C:BigBoard ( / userclick dlgname dcl_id  big-board-list _make-dialog)
   
3.   ;; bigboard
   
4.   (defun _make-dialog ( / fn f dcl )
   
5.     (setq fn (strcat (vl-filename-directory (findfile "acad.exe"))"\\$vld$.dcl")
   
6.           f (open fn "w")
   
7.           dcl
   
8.           '(
   
9.             "board : dialog {"
   
10.             ": list_box {"
    
11.             "key = "selections";"
    
12.             "multiple_select = true;"
    
13.             "height = 19;"
    
14.             "allow_accept = true;"
    
15.             "}"
    
16.             "ok_cancel;"
    
17.             "}"
    
18.             )
    
19.           )
    
20.     (mapcar
    
21.       (function
    
22.         (lambda ( x )
    
23.           (princ x f)
    
24.           (princ "\n" f)
    
25.           )
    
26.         )
    
27.       dcl
    
28.       )
    
29.     (close f)
    
30.     fn
    
31.     )
    
32.   (defun setItems (val lst / ret)
    
33.     (foreach n (mapcar (function (lambda (n) (- n 48)))
    
34.                        (vl-remove 32 (vl-string->list val))
    
35.                        )
    
36.              (setq ret (cons (nth n lst) ret))
    
37.              )
    
38.     (reverse ret)
    
39.     )
    
40.   (setq big-board-list '("Command           Description"
    
41.                          "-----------------------------------------------------------"
    
42.                          "Co                      Copy"
    
43.                          "M                       Move"
    
44.                          "Ano                    Automatic Numbering"
    
45.                          "Dr                      Door"
    
46.                          "Ww                    Window"
    
47.                          "Acal                   Area Calulation")
    
48.         )
    
49.   (setq dcl_id
    
50.         (load_dialog
    
51.           (setq dlgname (_make-dialog))))
    
52.   (if (not (new_dialog "board" dcl_id))(exit))
    
53.   (start_list "selections")
    
54.   (mapcar 'add_list big-board-list)
    
55.   (end_list)
    
56.   (action_tile "selections" "(setq strLst (setItems $value big-board-list))")
    
57.   (setq userclick (start_dialog))
    
58.   (unload_dialog dcl_id)
    
59.   (vl-file-delete dlgname)
    
60.   (and (= 1 userclick)
    
61.        (and strLst (print strLst)))
    
62. (princ)
    
63. )

(defun C:BigBoard ( / userclick dlgname dcl_id  big-board-list _make-dialog)<br />   ;; bigboard<br />   (defun _make-dialog ( / fn f dcl ) <br />     (setq fn (strcat (vl-filename-directory (findfile "acad.exe"))"\\$vld$.dcl")<br />           f (open fn "w")<br />           dcl<br />           '(<br />             "board : dialog {"<br />             ": list_box {"<br />             "key = "selections";"<br />             "multiple_select = true;"<br />             "height = 19;"<br />             "allow_accept = true;"<br />             "}"<br />             "ok_cancel;"<br />             "}"<br />             )<br />           )<br />     (mapcar <br />       (function<br />         (lambda ( x )<br />           (princ x f)<br />           (princ "\n" f)<br />           )<br />         ) <br />       dcl<br />       )<br />     (close f)<br />     fn<br />     )<br />   (defun setItems (val lst / ret)<br />     (foreach n (mapcar (function (lambda (n) (- n 48)))<br />                        (vl-remove 32 (vl-string->list val))<br />                        )<br />              (setq ret (cons (nth n lst) ret))<br />              )<br />     (reverse ret)<br />     )<br />   (setq big-board-list '("Command           Description"<br />                          "-----------------------------------------------------------"<br />                          "Co                      Copy"<br />                          "M                       Move"<br />                          "Ano                    Automatic Numbering"<br />                          "Dr                      Door"<br />                          "Ww                    Window"<br />                          "Acal                   Area Calulation")<br />         )<br />   (setq dcl_id <br />         (load_dialog <br />           (setq dlgname (_make-dialog))))<br />   (if (not (new_dialog "board" dcl_id))(exit))<br />   (start_list "selections")<br />   (mapcar 'add_list big-board-list)<br />   (end_list)<br />   (action_tile "selections" "(setq strLst (setItems $value big-board-list))")<br />   (setq userclick (start_dialog))<br />   (unload_dialog dcl_id)<br />   (vl-file-delete dlgname)<br />   (and (= 1 userclick)<br />        (and strLst (print strLst)))<br /> (princ)<br /> )

Gu_xl

It is working well in cad2013 (windows 7 64 bit)!
"error: bad argument type: FILE nil " means the variable f is null!

sachindkini

Gu_xl 发表于 2013-4-17 20:25
It is working well in cad2013 (windows 7 64 bit)!
"error: bad argument type: FILE nil " means the v ...

dear sir,
over the head

mccad

Maybe the directory you want to generated DCL temporary file haven't written permission.In WIN8 or WIN7, the “/program files/” directory is read only.

sachindkini

mccad 发表于 2013-4-17 22:07
Maybe the directory you want to generated DCL temporary file haven't written permission.In WIN8 or W ...

Dear Sir,

Thx ...
what is another solution????

ZZXXQQ

Try agan.

1. (defun C:BigBoard ( / userclick dlgname dcl_id  big-board-list _make-dialog)
   
2.   ;; bigboard
   
3.   (defun _make-dialog ( / fn f dcl )
   
4.     (setq fn (strcat (vl-filename-directory (findfile "acad.exe"))"\\$vld$.dcl")
   
5.           f (open fn "w")
   
6.           dcl
   
7.           '(
   
8.             "board : dialog {"
   
9.             ": list_box {"
   
10.             "key = \"selections\";"
    
11.             "multiple_select = true;"
    
12.             "height = 19;"
    
13. ;            "allow_accept = true;"
    
14.             "}"
    
15.             "ok_cancel;"
    
16.             "}"
    
17.             )
    
18.           )
    
19.     (mapcar
    
20.       (function
    
21.         (lambda ( x )
    
22.           (princ x f)
    
23.           (princ "\n" f)
    
24.           )
    
25.         )
    
26.       dcl
    
27.       )
    
28.     (close f)
    
29.     fn
    
30.     )
    
31. ;  (defun setItems (val lst / ret)
    
32. ;    (foreach n (mapcar (function (lambda (n) (- n 48)))
    
33. ;                       (vl-remove 32 (vl-string->list val))
    
34. ;                       )
    
35. ;             (setq ret (cons (nth n lst) ret))
    
36. ;             )
    
37. ;    (reverse ret)
    
38. ;    )
    
39.   (defun setItems (val lst / ret)
    
40.    (foreach n (read(strcat "(" val ")")) (setq ret (cons (nth n lst) ret)))
    
41.    (reverse ret)
    
42.   )
    
43.   (defun readata ()
    
44.    (setq strlst (setitems (get_tile "selections") big-board-list))
    
45.   )
    
46.   (setq big-board-list '("Command           Description"
    
47.                          "-----------------------------------------------------------"
    
48.                          "Co                      Copy"
    
49.                          "M                       Move"
    
50.                          "Ano                    Automatic Numbering"
    
51.                          "Dr                      Door"
    
52.                          "Ww                    Window"
    
53.                          "Acal                   Area Calulation")
    
54.   )
    
55.   (setq dcl_id
    
56.         (load_dialog
    
57.           (setq dlgname (_make-dialog))))
    
58.   (if (not (new_dialog "board" dcl_id))(exit))
    
59.   (start_list "selections")
    
60.   (mapcar 'add_list big-board-list)
    
61.   (end_list)
    
62. ;  (action_tile "selections" "(setq strLst (setItems $value big-board-list))")
    
63.   (action_tile "accept" "(readata) (done_dialog 1)")
    
64.   (action_tile "cancel" "(done_dialog 0)")
    
65.   (setq userclick (start_dialog))
    
66.   (unload_dialog dcl_id)
    
67.   (vl-file-delete dlgname)
    
68.   (and (= 1 userclick)
    
69.        (and strLst (print strLst)))
    
70. (princ)
    
71. )
    

(defun C:BigBoard ( / userclick dlgname dcl_id  big-board-list _make-dialog)<br />   ;; bigboard<br />   (defun _make-dialog ( / fn f dcl ) <br />     (setq fn (strcat (vl-filename-directory (findfile "acad.exe"))"\\$vld$.dcl")<br />           f (open fn "w")<br />           dcl<br />           '(<br />             "board : dialog {"<br />             ": list_box {"<br />             "key = \"selections\";"<br />             "multiple_select = true;"<br />             "height = 19;"<br /> ;            "allow_accept = true;"<br />             "}"<br />             "ok_cancel;"<br />             "}"<br />             )<br />           )<br />     (mapcar <br />       (function<br />         (lambda ( x )<br />           (princ x f)<br />           (princ "\n" f)<br />           )<br />         ) <br />       dcl<br />       )<br />     (close f)<br />     fn<br />     )<br /> ;  (defun setItems (val lst / ret)<br /> ;    (foreach n (mapcar (function (lambda (n) (- n 48)))<br /> ;                       (vl-remove 32 (vl-string->list val))<br /> ;                       )<br /> ;             (setq ret (cons (nth n lst) ret))<br /> ;             )<br /> ;    (reverse ret)<br /> ;    )<br />   (defun setItems (val lst / ret)<br />    (foreach n (read(strcat "(" val ")")) (setq ret (cons (nth n lst) ret)))<br />    (reverse ret)<br />   )<br />   (defun readata ()<br />    (setq strlst (setitems (get_tile "selections") big-board-list))<br />   )<br />   (setq big-board-list '("Command           Description"<br />                          "-----------------------------------------------------------"<br />                          "Co                      Copy"<br />                          "M                       Move"<br />                          "Ano                    Automatic Numbering"<br />                          "Dr                      Door"<br />                          "Ww                    Window"<br />                          "Acal                   Area Calulation")<br />   )<br />   (setq dcl_id <br />         (load_dialog <br />           (setq dlgname (_make-dialog))))<br />   (if (not (new_dialog "board" dcl_id))(exit))<br />   (start_list "selections")<br />   (mapcar 'add_list big-board-list)<br />   (end_list)<br /> ;  (action_tile "selections" "(setq strLst (setItems $value big-board-list))")<br />   (action_tile "accept" "(readata) (done_dialog 1)")<br />   (action_tile "cancel" "(done_dialog 0)")<br />   (setq userclick (start_dialog))<br />   (unload_dialog dcl_id)<br />   (vl-file-delete dlgname)<br />   (and (= 1 userclick)<br />        (and strLst (print strLst)))<br /> (princ)<br /> )<br />

sachindkini

ZZXXQQ 发表于 2013-4-18 08:21
Try agan.

Dear sir,

Thx for valuable time

lisp not working same error

1. Command: AP
   
2. APPLOAD BigBoard1.lsp successfully loaded.
   
3. 
   
4. Command: BIGBOARD1
   
5. ; error: bad argument type: FILE nil
   

复制代码

Gu_xl

sachindkini 发表于 2013-4-18 13:13
Dear sir,

Thx for valuable time

Try this:
...
(setq fn  "d:\\$vld$.dcl"
...

sachindkini

Gu_xl 发表于 2013-4-18 14:21
Try this:
...
(setq fn  "d:\\$vld$.dcl"

dear sir,

not working

sachindkini

Dear Sir,
See this image i want this result with double click execute command