[求助]：一个程序无法运行，怎么了？

Lanfeng

2. (defun c: cc ( )
   
3.   (vl-load-com)
   
4.   (prompt "\nSelect Text: ")
   
5.   (setq ss (ssget "x" '((0 . "TEXT"))) n 0)
   
6.   (while (< n (sslength ss))
   
7.     (setq obj (vlax-ename->vla-object (ssname ss n)))
   
8.     (setq dtxt (vla-get-textstring obj))
   
9.     (setq dtxt (strcase (dtxt T)))
   
10.     (vla-put-textstring obj dtxt)
    
11.     (setq n (1+ n))
    
12.   )
    
13. )

(defun c: cc ( )<br />   (vl-load-com)<br />   (prompt "\nSelect Text: ")<br />   (setq ss (ssget "x" '((0 . "TEXT"))) n 0)<br />   (while (< n (sslength ss))<br />     (setq obj (vlax-ename->vla-object (ssname ss n)))<br />     (setq dtxt (vla-get-textstring obj))<br />     (setq dtxt (strcase (dtxt T)))<br />     (vla-put-textstring obj dtxt)<br />     (setq n (1+ n))<br />   )<br /> )

仿照各位大侠的作品编的，意在改大写字符为小写字符，但运行出错，提示语法错误，到底错在哪儿了？？？～～～

求大侠答疑解惑

eachy

(setq dtxt (strcase (dtxt T))) 此句不对

(setq dtxt (strcase dtxt T))

Lanfeng

(defun C:cc(/ s1 ename ti% p11 p10)
     (princ "Select Text to change:\n")
    (setq
        s1
        (ssget '((0 . "TEXT")))                ;构造针对TEXT的选择集
    )

    (setq ti% 0)
    (if (/= s1 nil)
     (progn
       (while
        (<=
                ti%
                (- (sslength s1) 1)
        )
        (setq ename(ssname s1 ti%))
        (setq p11 nil)                        ;将p11置空
        (setq table (entget ename))                ;取实体表e
        (setq p11 (cdr (assoc  1 table)))                                   ;取文字值
        (setq p10 (cdr (assoc  1 table)))                ;取文字值
        (setq p11 (strcase (strcat "" p11 "") T))       ;变成小写字符
        ;(prompt p11)
        ;(prompt "\n")
        ;(prompt p10)
        ;(prompt "\n")
        ;(prompt table)
        ;(prompt "\n")
        (setq table (subst (cons 1 p11) (cons 1 p10) table))        ;更换字符
        (entmod table)
        (setq ti%(+ 1 ti%))
         )  ;end while
      ) ;endprogn s1/=nil
    )  ;endif  s1 /= nil
    (setq s1 nil)
)


这个没用扩展命令的lisp试验通过，点对的操作容易被忽略