[求助]：帮我看看这段有问题的代码

gucci218

目的：是把单行文本分解成单个字。
我写了一段代码，如果单行文本是字母，能分解；如果单行文本是文字，却分解不了（不知道单行文本是文字，为啥就分解不了?）
代码如下：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:tt()
   
5. (setq ent(entsel "\n选择文字:")
   
6.       entname(car ent)
   
7.       entdate(entget(car ent))
   
8. )
   
9. (command "erase" entname "")
   
10. (setq str(cdr(assoc 1 entdate))      
    
11.       n(strlen str)
    
12.       strlst(assoc 1 entdate)           
    
13.       str_idx(car(cdr(assoc 10 entdate)))
    
14.       str_idy(cadr(cdr(assoc 10 entdate)))
    
15.       str_idlst(assoc 10 entdate)
    
16.       strh (cdr(assoc 40 entdate))
    
17.       strs(cdr(assoc 41 entdate))
    
18.       w(* 0.66 strh strs)
    
19.       whalf(/ w 2)
    
20.       d(+ w whalf)
    
21.       i 1
    
22. )
    
23. (repeat n
    
24. (setq strchar(substr str i 1)
    
25.       strcharlst(cons '1 strchar)
    
26.       newstr_idx(+ str_idx (* d (1- i)))
    
27.       str_idxy(list newstr_idx str_idy 0.0)
    
28.       newstr_idlst(cons '10 str_idxy)         
    
29.       entdate(subst strcharlst strlst entdate)
    
30.       str_idlst(assoc 10 entdate)
    
31.       entdate(subst newstr_idlst str_idlst entdate)
    
32.       strlst(assoc 1 entdate)
    
33. )
    
34. (entmake entdate)
    
35. (setq i (1+ i))
    
36. )
    
37. (princ)
    
38. )
    
39.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:tt()<br /> (setq ent(entsel "\n选择文字:")<br />       entname(car ent)<br />       entdate(entget(car ent))<br /> )<br /> (command "erase" entname "")<br /> (setq str(cdr(assoc 1 entdate))      <br />       n(strlen str)<br />       strlst(assoc 1 entdate)           <br />       str_idx(car(cdr(assoc 10 entdate)))<br />       str_idy(cadr(cdr(assoc 10 entdate)))<br />       str_idlst(assoc 10 entdate)<br />       strh (cdr(assoc 40 entdate))<br />       strs(cdr(assoc 41 entdate))<br />       w(* 0.66 strh strs)<br />       whalf(/ w 2)<br />       d(+ w whalf)<br />       i 1<br /> )<br /> (repeat n<br /> (setq strchar(substr str i 1)<br />       strcharlst(cons '1 strchar)<br />       newstr_idx(+ str_idx (* d (1- i)))<br />       str_idxy(list newstr_idx str_idy 0.0)<br />       newstr_idlst(cons '10 str_idxy)         <br />       entdate(subst strcharlst strlst entdate)<br />       str_idlst(assoc 10 entdate)<br />       entdate(subst newstr_idlst str_idlst entdate)<br />       strlst(assoc 1 entdate)<br /> )<br /> (entmake entdate)<br /> (setq i (1+ i))<br /> )<br /> (princ)<br /> )<br />   [/FONT]<br />

wuzz

注意一个汉字占2个字节的问题

gucci218

哦。。。对了，多谢楼上提醒。我改了一下程序，见下：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:tt()
   
5. (setq ent(entsel "\n选择文字:")
   
6.       entname(car ent)
   
7.       entdate(entget(car ent))
   
8. )
   
9. (command "erase" entname "")
   
10. (setq str(cdr(assoc 1 entdate))      
    
11.       n(strlen str)
    
12.       strlst(assoc 1 entdate)           
    
13.       str_idx(car(cdr(assoc 10 entdate)))
    
14.       str_idy(cadr(cdr(assoc 10 entdate)))
    
15.       str_idlst(assoc 10 entdate)
    
16.       strh (cdr(assoc 40 entdate))
    
17.       strs(cdr(assoc 41 entdate))
    
18.       w(* 0.66 strh strs)
    
19.       whalf(/ w 2)
    
20.       d(+ w whalf)
    
21.       i 1
    
22. )
    
23. (repeat (/ n 2)
    
24. (setq strchar(substr str i 2)
    
25.       strcharlst(cons '1 strchar)
    
26.       newstr_idx(+ str_idx (* d (1- i)))
    
27.       str_idxy(list newstr_idx str_idy 0.0)
    
28.       newstr_idlst(cons '10 str_idxy)         
    
29.       entdate(subst strcharlst strlst entdate)
    
30.       str_idlst(assoc 10 entdate)
    
31.       entdate(subst newstr_idlst str_idlst entdate)
    
32.       strlst(assoc 1 entdate)
    
33. )
    
34. (entmake entdate)
    
35. (setq i (+ i 2))
    
36. )
    
37. (princ)
    
38. )
    
39. 
    
40.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:tt()<br /> (setq ent(entsel "\n选择文字:")<br />       entname(car ent)<br />       entdate(entget(car ent))<br /> )<br /> (command "erase" entname "")<br /> (setq str(cdr(assoc 1 entdate))      <br />       n(strlen str)<br />       strlst(assoc 1 entdate)           <br />       str_idx(car(cdr(assoc 10 entdate)))<br />       str_idy(cadr(cdr(assoc 10 entdate)))<br />       str_idlst(assoc 10 entdate)<br />       strh (cdr(assoc 40 entdate))<br />       strs(cdr(assoc 41 entdate))<br />       w(* 0.66 strh strs)<br />       whalf(/ w 2)<br />       d(+ w whalf)<br />       i 1<br /> )<br /> (repeat (/ n 2)<br /> (setq strchar(substr str i 2)<br />       strcharlst(cons '1 strchar)<br />       newstr_idx(+ str_idx (* d (1- i)))<br />       str_idxy(list newstr_idx str_idy 0.0)<br />       newstr_idlst(cons '10 str_idxy)         <br />       entdate(subst strcharlst strlst entdate)<br />       str_idlst(assoc 10 entdate)<br />       entdate(subst newstr_idlst str_idlst entdate)<br />       strlst(assoc 1 entdate)<br /> )<br /> (entmake entdate)<br /> (setq i (+ i 2))<br /> )<br /> (princ)<br /> )<br /> <br />   [/FONT]<br />

xiaoyue663

研究一下程序倒是满好
可实用性我看不大

gucci218

我本想写一个把单行文本分解成单个汉字，又可以把单个文字合并成单行文本，是有实际意义的。我是做工程设计的，免不了写材料表，再写说明的时候，有时一行写不下，要换行，就要复制，再删除上一行重复的文字，这样做，我觉得挺麻烦的，所以有了上面的想法，上面的代码应该只是其中的一部分，另一半功能还没有实现，等有时间再补齐。

草根

文字换行，文字连接，文字分解，文字对齐，文字输出，构成AUCAD文字处理基本过程。