[求助]：这段子程序看不太懂谁能给个注释谢谢。(chktxt)

xxming

(defun c:lsp_36()
(prompt "\n选取文字...")
(setq ss (ssget))
(setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstyp (cdr (assoc 0 ssdata)))
(if (= sstyp "TEXT")
(progn
(setq old_txt (assoc 1 ssdata))
(setq txt (cdr old_txt))
(chktxt)
(setq new_txt (cons 1 pp))
(setq ssdata (subst new_txt old_txt ssdata))
(entmod ssdata)
)
)
(setq i (1+ i))
)
)
(defun chktxt() ;判断文字，转换大小写子程序
(setq p "" pp "" n 1 key nil)
(repeat (strlen txt)
(setq pk p)
(setq p (substr txt n 1))
(if (= n 1)
(setq key t)
(if (= pk " ") (setq key t) (setq key nil))
)
(if (= key nil)
(setq pp (strcat pp (strcase p t)))
(setq pp (strcat pp (strcase p)))
)
(setq n (1+ n))
)
)
(princ "\n---------->> LSP_36 <<----------")
(prin1)

舟自横

(defun c:lsp_36()
(prompt "\n选取文字...")
(setq ss (ssget));;;;选取需要大小写转换的文字
(setq i 0);;;;;记数器归0
(repeat (sslength ss);;;;;进入循环次数为你选择对象的数量
(setq ssn (ssname ss i));;;;取得第I个对象
(setq ssdata (entget ssn));;;;取得对象的DXF代码信息
(setq sstyp (cdr (assoc 0 ssdata)));;;取得对象的类型
(if (= sstyp "TEXT");;;如果对象类型是文字
(progn   ;;;则
(setq old_txt (assoc 1 ssdata));;取得对象包含的文字内容群码
(setq txt (cdr old_txt));;;取得对象文字内容
(chktxt);;;调用自程序转换大小写
(setq new_txt (cons 1 pp));;;将子程序产生的新文字组码
(setq ssdata (subst new_txt old_txt ssdata));;;新旧码替换
(entmod ssdata);;;;更新文字对象
)
)
(setq i (1+ i));;;记数器加一
)
)
(defun chktxt() ;判断文字，转换大小写子程序
(setq p "" pp "" n 1 key nil);;;初始化数据,
(repeat (strlen txt);;;以对象文字含字母数循环
(setq pk p);;将P赋给PK即""
(setq p (substr txt n 1));;取得文字中第N个字母
(if (= n 1) ;;;如果是第一个字母
(setq key t);;;判断量KEY为真
(if (= pk " ") (setq key t) (setq key nil));;;如果前一个字母为空格,判断量KEY为真否则为空
)
(if (= key nil);;如果KEY为空,即是说前一个字母既不是开头字母也不是空格的话
(setq pp (strcat pp (strcase p t)));;;;将它转为小写
(setq pp (strcat pp (strcase p)));;否则转为大写
)
(setq n (1+ n));;;循环加1
)
)
(princ "\n---------->> LSP_36 <<----------");;;程序结束时打印文字
(prin1) ;;;无返回推出该程序
私下认为该程序不够漂亮,有些繁琐,可以写得更漂亮些..
调用自程序最好是以参数方式调用,否则看上去有些混乱!

武林至尊李小龙

好，学习了。讲解很详细，希望多出这样的教程，帮助初学者成长。详细楼主