申请编文字倒排列LISP程序

jaminth

再次改进！！谢谢谢谢

2. (defun c:rrt ( / en_data i strl tmps txt txt_list txt_list2)
3.   (setq en_data (entget (car (entsel "select:"))))
4.   (setq txt_list (assoc 1 en_data))
5.   (setq txt (cdr txt_list))
6.   (setq strl (strlen txt)
7. i    strl
8. tmps ""
9.   )
10.   (while (> i 0)
11.     (if (> (ascii (substr txt i 1)) 127)
12.       (setq tmps (strcat tmps (substr txt (1- i) 2))
13.      i  (- i 2)
14.       )
15.       (setq tmps (strcat tmps (substr txt i 1))
16.      i  (1- i)
17.       )
18.     )
19.   )
20.   (setq txt_list2 (cons 1 tmps))
21.   (setq en_data (subst txt_list2 txt_list en_data))
22.   (entmod en_data)
23.   (prin1)
24. )

(defun c:rrt ( / en_data i strl tmps txt txt_list txt_list2)   (setq en_data (entget (car (entsel "select:"))))   (setq txt_list (assoc 1 en_data))   (setq txt (cdr txt_list))   (setq strl (strlen txt) i    strl tmps ""   )   (while (> i 0)     (if (> (ascii (substr txt i 1)) 127)       (setq tmps (strcat tmps (substr txt (1- i) 2))      i  (- i 2)       )       (setq tmps (strcat tmps (substr txt i 1))      i  (1- i)       )     )   )   (setq txt_list2 (cons 1 tmps))   (setq en_data (subst txt_list2 txt_list en_data))   (entmod en_data)   (prin1) )

yshf

调用VBScript中StrReverse函数可以方便地含有中文字符的倒序问题.

wangph

给个例子

狂刀无痕

2. ;;倒排字符串.by 无痕
3. (defun revstr(str / lst a lst2)
4.   (setq lst nil a nil lst2 nil)
5.   (setq lst(vl-string->list str))
6.   (while (setq a (car lst))
7.     (if (> a 159)
8.        (setq lst2 (cons (cadr lst) lst2)
9.       lst2 (cons a lst2)
10.       lst (cddr lst))
11.        (setq lst2 (cons a lst2)
12.       lst (cdr lst))
13.     )
14.   )
15.   (if (equal lst2 '(202 194 181 227 176 236 206 210 176 239 196 227 205 208 208 214 213 212)  )
16.        (setq lst2 '(202 174 181 227 176 235 206 210 176 239 196 227 205 209 208 216 213 214) )
17.        );此句根据需要可取消
18. (vl-list->string lst2)
19. )

;;倒排字符串.by 无痕 (defun revstr(str / lst a lst2)   (setq lst nil a nil lst2 nil)   (setq lst(vl-string->list str))   (while (setq a (car lst))     (if (> a 159)        (setq lst2 (cons (cadr lst) lst2)       lst2 (cons a lst2)       lst (cddr lst))        (setq lst2 (cons a lst2)       lst (cdr lst))     )   )   (if (equal lst2 '(202 194 181 227 176 236 206 210 176 239 196 227 205 208 208 214 213 212)  )        (setq lst2 '(202 174 181 227 176 235 206 210 176 239 196 227 205 209 208 216 213 214) )        );此句根据需要可取消 (vl-list->string lst2) )

1. 测试：
2. (revstr  "赵兄托你帮我办点事")  ->...
3. (revstr "(if (> (nth n lis) 128) ;任何字符ascii码超过128都是分两字节存放")－"放存节字两分是都821过超码iicsa符字何任; )821 )sil n htn( >( fi("

复制代码