[求助]请帮忙用LISP程序编写，先谢了！！！已解决

changch

1、已知条件：AutoCAD中存在一组文本文字。



行数至少1行；


每一行有4列数据（文本文字）＜注意：每行中某一列可能无文本文字＞（其中，每个数据均用TEXT写入，且对齐方式均为左对齐；


行间距为7；


列间距为30；


举例说明（下面文字格式视同AutoCAD窗口格式，上面为最后行文字，最下面为第一行，左边为第1列，最右边为第4列）：


明　         经　         通　         道


Au                                 to                                                                                                        Lisp


2                                                 0                                                         0                                                 4


学　　　　习


二　 次　 开　 发


2、LISP程序要求：


窗选文字后，输出abc.dat（或abc.txt)文本文件


3、abc.dat（或abc.txt)文本文件内容格式如下：


(二　次　开　发)


(学　""　习　"")


(2 0 0 4)


(Au to "" Lisp)


(明 经 通 道)


4、感谢能为我编写此程序的各位朋友，来这里，我们相信你！！！！

alin

这倒像教课书上的一道练习题。

changch

这个程序对我来说太需要了


我知道咱们的能力的，一定会解决这个问题的，再等等看


我对花费很多时间，为我解决这个程序的各位表示感谢！！！！！

王咣生

把你写好的dwg数据贴上来,


数据格式讲了半天还是不如发上来明了!


无文本格式是不是是一个 TestString = " ", 等等

changch

无文本格式　就是在该行该列没有文字 [/URL]


文件中仅列出5行文字，其中文字最少为1行，最下面的为第1行，最左边的为第1列

无痕

(二　次　开　发)



(学　""　习　"")


(2 0 0 4)


(Au to "" Lisp)


(明 经 通 道)


格式不规范啊.如 (明 经 通 道) ,明是一个符号(变量),到了(Au to "" Lisp), au to lisp


都是变量的形式,而 "" 又是字符. 这样的表你怎么利用?


如果写到文本,提取出来变成"(明 经 通 道)" 而(Au to "" Lisp)变成 "(Au to \" \" Lisp)"


这真的是你想要的么?

changch

""　这两个字符代表一个空格位



(学　""　习　"")


即表示第3列及第4列没有有字符



要是编程输出""有难度的话，可以输出


(学　nil　习　nil)




再次感谢各位

changch

再等等，我们相信这版块有这个实力解决它的

changch

不会没有人肯帮我吧！！！！

meflying

文件存在c:\abc.txt下

2. (defun c:test( / ss i j n entlst ent ents ents2 line_lst lst filename f xmin m)
3.    (setq ss (ssget '((0 . "TEXT"))))
4.    (setq i 0)
5.    (repeat (sslength ss)
6.        (setq entlst (append entlst (list (ssname ss i))))
7.        (setq i (1+ i))
8.    )
9.    (setq entlst (vl-sort entlst '(lambda(e1 e2) (<
10.              (cadr (assoc 10 (entget e1)))
11.              (cadr (assoc 10 (entget e2)))
12.        ))))
13.    (setq entlst (vl-sort entlst '(lambda(e1 e2) (<
14.              (caddr (assoc 10 (entget e1)))
15.              (caddr (assoc 10 (entget e2)))
16.        ))))
17.    (setq i 0 n (length entlst))
18.    (while (< i (1- n))
19.        (setq ent (nth i entlst))
20.        (setq line_lst nil)
21.        (setq line_lst (append line_lst (list ent)))
22.        (setq ents (entget ent))
23.        (setq j (1+ i) m t)      
24.        (while m
25.            (setq ent (nth j entlst))
26.            (setq ents2 (entget ent))           
27.            (if (equal (caddr (assoc 10 ents)) (caddr (assoc 10 ents2)) 0.001)
28.   (setq line_lst (append line_lst (list ent)))
29.   (progn
30.      (setq lst (append lst (list line_lst)))
31.      (setq m nil)
32.      (setq i j)
33.   )
34.            )
35.            (setq j (1+ j))
36.            (if (>= j n)
37.   (progn (setq lst (append lst (list line_lst))) (setq m nil) (setq i j))
38.            )
39.        )
40.    )
41.    (setq lst (mapcar '(lambda(x)
42.                  (mapcar '(lambda(x / ents)
43.            (setq ents (entget x)) (cons (cadr (assoc 10 ents)) (cdr (assoc 1 ents))))
44.                    x))
45.            lst))
46.    (setq xmin (apply 'min (mapcar '(lambda(x) (caar x)) lst)))
47.    (setq filename "c:\\abc.txt")
48.    (setq f (open filename "w"))
49.    (mapcar '(lambda(x / i item str m)
50.            (setq i 0 m 0)
51.            (setq str "")
52.            (repeat 4
53.                (setq item (nth (- i m) x))
54.                (if (and item (equal (- (car item) xmin) (* i 30.0) 0.001))
55.      (setq str (strcat str (cdr item) "\t"))
56.      (progn
57.          (setq str (strcat str """" "\t"))
58.          (setq m (1+ m))
59.      )     
60.                )
61.                (setq i (1+ i))
62.            )
63.            (write-line (strcat "(" str ")")  f)           
64.        );lambda
65.      lst
66.    );mapcar
67.    (close f)
68.    (princ)               
69. )

(defun c:test( / ss i j n entlst ent ents ents2 line_lst lst filename f xmin m)    (setq ss (ssget '((0 . "TEXT"))))    (setq i 0)    (repeat (sslength ss)        (setq entlst (append entlst (list (ssname ss i))))        (setq i (1+ i))    )    (setq entlst (vl-sort entlst '(lambda(e1 e2) (<              (cadr (assoc 10 (entget e1)))              (cadr (assoc 10 (entget e2)))        ))))    (setq entlst (vl-sort entlst '(lambda(e1 e2) (<              (caddr (assoc 10 (entget e1)))              (caddr (assoc 10 (entget e2)))        ))))    (setq i 0 n (length entlst))    (while (< i (1- n))        (setq ent (nth i entlst))        (setq line_lst nil)        (setq line_lst (append line_lst (list ent)))        (setq ents (entget ent))        (setq j (1+ i) m t)              (while m            (setq ent (nth j entlst))            (setq ents2 (entget ent))                       (if (equal (caddr (assoc 10 ents)) (caddr (assoc 10 ents2)) 0.001)   (setq line_lst (append line_lst (list ent)))   (progn      (setq lst (append lst (list line_lst)))      (setq m nil)      (setq i j)   )            )            (setq j (1+ j))            (if (>= j n)   (progn (setq lst (append lst (list line_lst))) (setq m nil) (setq i j))            )        )    )    (setq lst (mapcar '(lambda(x)                  (mapcar '(lambda(x / ents)            (setq ents (entget x)) (cons (cadr (assoc 10 ents)) (cdr (assoc 1 ents))))                    x))            lst))    (setq xmin (apply 'min (mapcar '(lambda(x) (caar x)) lst)))    (setq filename "c:\\abc.txt")    (setq f (open filename "w"))    (mapcar '(lambda(x / i item str m)            (setq i 0 m 0)            (setq str "")            (repeat 4                (setq item (nth (- i m) x))                (if (and item (equal (- (car item) xmin) (* i 30.0) 0.001))      (setq str (strcat str (cdr item) "\t"))      (progn          (setq str (strcat str """" "\t"))          (setq m (1+ m))      )                     )                (setq i (1+ i))            )            (write-line (strcat "(" str ")")  f)                   );lambda      lst    );mapcar    (close f)    (princ)                )