[求助]：[0210]修正图层输出与输入程序问题

vken7az2p

[求助]：[0210]修正图层输出与输入程序问题
请教各位高手们
以下这程序是用来输出及输入图档内图层的设定
但目前这程序有各问题
就是已存在的图层会出现些讯息
如果要改正这问题该怎样处理呢?
另外请教关于串列读取问题,假设为
   A B C D ...
1. 2 8 1 6 ...
2. 5 7 3 4 ...
3. 7 5 4 3 ...
如果说要读取的位置是 B-3 ,或 D-2 ;
请问该怎样选取到要读取的位置?
另外关于程式中用到数值记忆时,
有位高手说可以用这种读写档案的方式存取数值,
该怎样由这种方式存取呢?
最后,请问外部档案内可以设定注解吗?
以上问题烦请各位帮忙解答一下
谢谢~

2. (defun c:kP1()
3.        (setvar "cmdecho" 0)
4.        (setq ffn "c:\\layall.txt")
5.        (initget "r w")
6.        (setq ans (getkword "\n(W)图层写出 (R)读取外档<W>:"))
7.        (if (null ans)(setq ans "w"))
8.        (if (= ans "w")
9.            (w_lay)
10.            (r_lay)
11.       )
12.       (prin1)
13.     )
14. (defun w_lay()
15.        (setq ff (open ffn "w"))
16.        (close ff)
17.          (setq ff (open ffn "a"))
18.          (princ "图层名称    颜色    线型" ff)
19.          (princ "\n" ff)
20.           (close ff)
21.        (setq lay_a (tblnext "layer" t))
22.         (while lay_a
23.           (setq ff (open ffn "a"))
24.           (setq layname (cdr (assoc 2 lay_a)))
25.           (setq laycolor (cdr (assoc 62 lay_a)))
26.           (setq laylitype (cdr (assoc 6 lay_a)))
27.           (princ layname ff)
28.           (princ "," ff)
29.           (princ laycolor ff)
30.           (princ "," ff)
31.           (princ laylitype ff)
32.            (princ "\n" ff)
33.           (close ff)
34.           (setq lay_a (tblnext "layer"))
35.          )
36.      )
38. (defun r_lay()
39.        (setq ffk (open ffn "r"))
40.          (setq kaka (read-line ffk))
41.          (setq kaka (read-line ffk))
42.          (while kaka
43.            (setq pk 1 k "" kk "" kkk '())
44.            (repeat (strlen kaka)
45.            (setq k (substr kaka pk 1))
46.            (if (/= k ",")
47.            (setq kk (strcat kk k))
48.            (setq kkk (cons kk kkk) kk "")
49.            )   ; 结束if
50.            (setq pk (+ 1 pk))
51.            )  ;结束repeat
52.            (setq kkk (cons kk kkk))
53.            (setq keyt (reverse kkk))
54.          (setq tx0 (nth 0 keyt))
55.          (setq tx1 (nth 1 keyt))
56.          (setq tx2 (nth 2 keyt))
57.          (setq tstyle (tblsearch "ltype" tx2))
58. (if (= tstyle nil)
59. (command "linetype" "L" tx2 "acadiso" "" "")
60. (command "layer" "n" tx0 "c" tx1 tx0 "l" tx2 tx0 ""))
61. ) ;;_(if
62.          (setq kaka (read-line ffk))
63.          )
64. (close ffk)
65. (prin1)
66. )

(defun c:kP1()        (setvar "cmdecho" 0)        (setq ffn "c:\\layall.txt")        (initget "r w")        (setq ans (getkword "\n(W)图层写出 (R)读取外档<W>:"))        (if (null ans)(setq ans "w"))        (if (= ans "w")            (w_lay)            (r_lay)       )       (prin1)     ) (defun w_lay()        (setq ff (open ffn "w"))        (close ff)          (setq ff (open ffn "a"))          (princ "图层名称    颜色    线型" ff)          (princ "\n" ff)           (close ff)        (setq lay_a (tblnext "layer" t))         (while lay_a           (setq ff (open ffn "a"))           (setq layname (cdr (assoc 2 lay_a)))           (setq laycolor (cdr (assoc 62 lay_a)))           (setq laylitype (cdr (assoc 6 lay_a)))           (princ layname ff)           (princ "," ff)           (princ laycolor ff)           (princ "," ff)           (princ laylitype ff)            (princ "\n" ff)           (close ff)           (setq lay_a (tblnext "layer"))          )      ) (defun r_lay()        (setq ffk (open ffn "r"))          (setq kaka (read-line ffk))          (setq kaka (read-line ffk))          (while kaka            (setq pk 1 k "" kk "" kkk '())            (repeat (strlen kaka)            (setq k (substr kaka pk 1))            (if (/= k ",")            (setq kk (strcat kk k))            (setq kkk (cons kk kkk) kk "")            )   ; 结束if            (setq pk (+ 1 pk))            )  ;结束repeat            (setq kkk (cons kk kkk))            (setq keyt (reverse kkk))          (setq tx0 (nth 0 keyt))          (setq tx1 (nth 1 keyt))          (setq tx2 (nth 2 keyt))          (setq tstyle (tblsearch "ltype" tx2)) (if (= tstyle nil) (command "linetype" "L" tx2 "acadiso" "" "") (command "layer" "n" tx0 "c" tx1 tx0 "l" tx2 tx0 "")) ) ;;_(if          (setq kaka (read-line ffk))          ) (close ffk) (prin1) )

wandong

就是已存在的图层会出现些讯息
如果要改正这问题该怎样处理

可能与系统变量"expert"的设定有关.