[求助]：最近发现 R2007 里substr的一个问题

aeo

最近发现 R2007 里substr的一个问题

1. 
   
2. 命令: (substr "但pat适" 1 1)
   
3. ; 错误: 发生未知意外
   
4. ; 警告: 忽略展开 未知异常
   
5. 
   
6. 命令: (substr "但pat适" 1 2)
   
7. "但"
   
8. 
   
9. 命令: (substr "但pat适" 2 1)
   
10. ; 错误: 发生未知意外
    
11. ; 警告: 忽略展开 未知异常
    

复制代码

cad2007用的是unicode,现在很多以前的代码不知道怎么处理了,
怎么办?

雨箭风刀

ｍｍｍｍ还是谁谁早提出过这个问题．2007ｃａｄ不认半个中文字符．
ｖｌ－ｓｔｒｉｎｇ－＞ｌｉｓｔ　看是否是中文字符，再分断

snoopychen

对啊，可能只能用这两个vl函数来构建一下函数了。

(setq a "我的家")
(substr a 1 1)
; error: Unknown exception occurred
; warning: unwind skipped on unknown exception

(setq b (vl-string->list a))＝》
(206 210 181 196 188 210)

(vl-list->string b)
"我的家"

(vl-list->string '(100 100 100 100 206 210))
"dddd我"


(setq c "但pat适")
"但pat适"

(setq d (vl-string->list c))
(181 171 112 97 116 202 202)

可能把substr按照这种unicode的写法进行改写，感觉应该可行

可以看出，汉字的数字都是大于某个数的，大于某个数之后就得用两个数字来表达了,好像是大于128

aeo版主前我班门弄斧一下了

2. 
   
3. (defun substr (str star leng / res strlst i x j item res1)
   
4.   (setq strlst (vl-string->list str))
   
5.   (setq i 0)
   
6.   (while (< i (length strlst))
   
7.     (if (< (nth i strlst) 129)
   
8.       (setq res (append
   
9.                   res
   
10.                   (list (list (nth i strlst)))
    
11.                 )
    
12.             i (1+ i)
    
13.       )
    
14.       (setq res (append
    
15.                   res
    
16.                   (list (list (nth i strlst) (nth (1+ i) strlst)))
    
17.                 )
    
18.             i (+ i 2)
    
19.       )
    
20.     )
    
21.   )
    
22.   (setq j star)
    
23.   (repeat leng
    
24.      (if (setq item (nth (1- j) res))
    
25.      (setq res1 (append res1 item))
    
26.      )
    
27.      (setq j (1+ j))
    
28.   )
    
29.   (vl-list->string res1)
    
30. 
    
31. )
    
32. 
    
33. (substr "但pat适" 1 1)
    

<br /> (defun substr (str star leng / res strlst i x j item res1)<br />   (setq strlst (vl-string->list str))<br />   (setq i 0)<br />   (while (< i (length strlst))<br />     (if (< (nth i strlst) 129)<br />       (setq res (append<br />                   res<br />                   (list (list (nth i strlst)))<br />                 )<br />             i (1+ i)<br />       )<br />       (setq res (append<br />                   res<br />                   (list (list (nth i strlst) (nth (1+ i) strlst)))<br />                 )<br />             i (+ i 2)<br />       )<br />     )<br />   )<br />   (setq j star)<br />   (repeat leng<br />      (if (setq item (nth (1- j) res))<br />      (setq res1 (append res1 item))<br />      )<br />      (setq j (1+ j))<br />   )<br />   (vl-list->string res1)<br /> <br /> )<br /> <br /> (substr "但pat适" 1 1)<br />

函数编写拖沓无比，要是用些lambda或者mapcar应会好很多，可惜不大懂，加了一堆局部变量。

现在有一个问题就是，autocad中的substr的length是可选参数，这个在lisp中怎么做到的？
这里有一篇讨论的，不过我不大看得懂
http://groups.google.com/group/a ... =1#2870653450465343

不过现在想想，autocad可能不再要Lisp了，从2000之后都没有见它增加什么函数，真郁闷。

雨箭风刀

[php]
;|
(x-txt2lst e) ＝ text文本以单个文字列表输出-------------------lxx.2004.8
(x-txt2lst (ssname (ssget ":s" '((0 . "TEXT"))) 0))
"cad总平面－规划图" -> ("c" "a" "d" "总" "平" "面" "－" "规" "划" "图")
|;
(defun x-txt2lst (e / txt st stl)
  (setq txt (cdr(assoc 1 (entget e))) stl T);(x-getdxf e 1);;
  (mapcar 'vl-list->string
    (vl-remove-if 'null
      (mapcar '(lambda(x)
                  (cond
                    ((< x 160) (list x)) ;; 一般 汉字编码 > 160.
                    (T (if stl (setq st x stl nil)(setq stl (list st x))))
                   )
                ) (vl-string->list txt)
      )
    )
  )
)[/php]

aeo

写都会写
就算lisp从此没substr，程序也可以写
关键现在很多以前的函数都没用了

(while ... (substr str n 1) ...
都会出错，比如std-系列有很多是这么写的，都要改写。
autodesk太不负责了.




还有更深的也不行了
命令: (chr 100)
"d"

命令: (wcmatch (strcat (chr 166)(chr 100)) "*d")
nil

命令: (wcmatch (strcat (chr 201)(chr 166)(chr 100)) "*d")
T

半个字wcmatch就不行了

snoopychen

个人觉得，假如是自己用，要不就转成低版本（不过以后要是cad08，09一直来，就比较麻烦）

或者暂时写一些通用函数，自动加载代替之（也比较烦）

看来有时候抗拒arx的版本不通用，看来lisp的不通用也可能不久了。