关于 xdrxapi 中 string 部分函数的修改

iLisp

在 Autocad 中编程处理字符串时，strlen substr 以及 vl-string * 部分函数中处理中文时，一个中文字符都是按两个自交，xdrxapi 中的 xdrx_string 部分也是这样的规则，能不能改成一个中文字符按一个字节计算，这样省得很多应用中单独计算中文字符长度，可能包括下面几个函数

xdrx_string_length
xdrx_string_substr

xdrx_string_Find
xdrx_string_FindOneOf
xdrx_string_Insert
xdrx_string_left
xdrx_string_mid
xdrx_string_Remove
xdrx_st_ing_right

csharp

UNICODE 编码方式下一个中文是一个字符，一个西文也是一个字符，AutoCAD 从 2007 开始都是 Unicode ，不知道问什么 autolisp 还是 ANSI 方式

XDSoft

还是在LISP函数库里面写个处理比较好，底层的不变。

csharp

XDSoft 发表于 2016-1-29 09:32
还是在LISP函数库里面写个处理比较好，底层的不变。

2006 以上有了 AcString 类

1. 
   
2. static int ads_cstrlen(void)
   
3.         {
   
4.                 resbuf *args=acedGetArgs();
   
5.                 if (args==NULL || args->restype!=RTSTR)
   
6.                 {
   
7.                         return RTNORM;
   
8.                 }
   
9.                 AcString txt(args->resval.rstring);                 
   
10.                 return acedRetInt(txt.tcharLength());
    
11.         }
    
12.         static int ads_csubstr(void)
    
13.         {
    
14.                 resbuf *args=acedGetArgs();
    
15.                 if (args==NULL || args->restype!=RTSTR)
    
16.                 {
    
17.                         return RTNORM;
    
18.                 }
    
19.                 AcString txt(args->resval.rstring);
    
20.                 int len=txt.tcharLength();
    
21.                 args=args->rbnext;
    
22.                 if (args==NULL || args->restype!=RTSHORT)
    
23.                 {
    
24.                         return RTNORM;
    
25.                 }
    
26.                 int nStart=args->resval.rint;
    
27.                 if (!(nStart<len)|| nStart==len-1)
    
28.                 {
    
29.                         acedRetStr(txt);
    
30.                         return RTSTR;
    
31.                 }
    
32.                 args=args->rbnext;
    
33.                 if (args==NULL)
    
34.                 {
    
35.                         AcString ret=txt.substr(0,nStart);
    
36.                         return acedRetStr(ret);
    
37.                 }
    
38.                 else
    
39.                 {
    
40.                         if ( args->restype!=RTSHORT)
    
41.                         {
    
42.                                 return RTNORM;
    
43.                         }
    
44.                         int nNum=args->resval.rint;
    
45.                         if (nNum<1)
    
46.                         {
    
47.                                 return RTNORM;
    
48.                         }
    
49.                         return acedRetStr(txt.substr(nStart,nNum));
    
50.                 }
    

复制代码

csharp

api的string部分已经按UNICODE处理了

XDSoft

是的，xdrx_string_length , xdrx_string_mid,xdrx_string_substr.....汉字都作为一个字符看待了。

XDSoft

csharp 发表于 2016-1-29 09:02
UNICODE 编码方式下一个中文是一个字符，一个西文也是一个字符，AutoCAD 从 2007 开始都是 Unicode ，不知 ...

AUTOLISP 为的是要兼容老的程序吧。

eachy

XDSoft 发表于 2016-7-1 21:43
AUTOLISP 为的是要兼容老的程序吧。

其实只要有中文的就按 UNICODE 处理才方便

XDSoft

eachy 发表于 2016-7-1 21:46
其实只要有中文的就按 UNICODE 处理才方便

可能老的LISP程序，处理中文的时候都用2字节处理，积累了海量程序了，如果改成UNICODE，可能会造成很多程序出错了。他们应该单独提供个UNICODE的函数。