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

changch · 发表于 2004-10-13 16:21:00

1、已知条件：中存在一组文本文字。行数至少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 · 发表于 2004-10-13 18:12:00

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

changch · 发表于 2004-10-14 08:08:00

这个程序对我来说太需要了
我知道咱们的能力的，一定会解决这个问题的，再等等看
我对花费很多时间，为我解决这个程序的各位表示感谢！！！！！

王咣生 · 发表于 2004-10-14 08:18:00

把你写好的dwg数据贴上来,
数据格式讲了半天还是不如发上来明了!
无文本格式是不是是一个 TestString = " ", 等等

changch · 发表于 2004-10-14 08:43:00

无文本格式　就是在该行该列没有文字 [/URL]mjtd.dwg
文件中仅列出5行文字，其中文字最少为1行，最下面的为第1行，最左边的为第1列

无痕 · 发表于 2004-10-14 09:25:00

(二　次　开　发) (学　""　习　"")
(2 0 0 4)
(Au to "" Lisp)
(明经通道)
格式不规范啊.如 (明经通道) ,明是一个符号(变量),到了(Au to "" Lisp), au to lisp
都是变量的形式,而 "" 又是字符. 这样的表你怎么利用?
如果写到文本,提取出来变成"(明经通道)" 而(Au to "" Lisp)变成 "(Au to \" \" Lisp)"
这真的是你想要的么?

changch · 发表于 2004-10-14 11:27:00

""　这两个字符代表一个空格位 (学　""　习　"")
即表示第3列及第4列没有有字符要是编程输出""有难度的话，可以输出
(学　nil　习　nil)
再次感谢各位

changch · 发表于 2004-10-14 14:18:00

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

changch · 发表于 2004-10-15 09:14:00

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

meflying · 发表于 2004-10-15 12:05:00

文件存在c:\abc.txt下

copy


(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) (= 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)               
)

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

发表回复

精选推荐