[求助]大小写转换的LSP源码

hydkot99 · 发表于 2009-12-1 13:29:00

哪位能提供大小写英文字母转换的LSP源码供学习啊，不胜感谢

要求TEXT和MTEXT都能转换

samshs · 发表于 2010-4-20 14:15:00

以前見過有你在论談找一下

szboy · 发表于 2011-1-28 19:39:03

(Defun c:dx ( / case)
(command "redraw")
(setq fil (ssget))
(setq case (getint "\n 改成(1)小写 / <直接回车为大写>："))

(setq len (sslength fil))
(setq n 0)

(while (<= n (- len 1))
  (progn
(setq e (ssname fil n))
(cond
      ((= "TEXT" (cdr (assoc 0 (setq ed (entget e)))))
      (progn

         (setq ostr (cdr (assoc 1 ed)))
         (setq nstr (strcase ostr case))
         (setq ed (subst (cons 1 nstr) (assoc 1 ed) ed))
         (setq n (+ 1 n))
         (entmod ed)
      ))
      ((= "MTEXT" (cdr (assoc 0 (setq ed (entget e)))))
      (progn

         (setq ostr (cdr (assoc 1 ed)))
         (setq nstr (strcase ostr case))
         (setq lenstr (strlen nstr))
            (setq m 1)
            (while (< m lenstr)
            (if (= "\\p" (substr nstr m 2))

                  (setq nstr (strcat (substr nstr 1 m) "\P" (substr nstr (+ 2 m))))
               ;(setq m (+ 1 m))
            )
               (setq m (+ 1 m))
            )

         (setq ed (subst (cons 1 nstr) (assoc 1 ed) ed))
         (setq n (+ 1 n))
         (entmod ed)
      ))
   (T (setq n (+ 1 n)))
)
)
  )
princ)

pop159 · 发表于 2011-2-4 16:49:53

太强了！

vladimirputin · 发表于 2019-8-29 14:55:23

非标好的资料，谢谢楼主分享的。

注册 · 发表于 2019-8-30 07:56:08

感觉这个自己平时不是太用得到呢

ketxu · 发表于 2019-11-4 12:14:10

You might find tcase.lsp in express tool folder for learning purpose ^^

qssq · 发表于 2019-11-14 11:28:39

下载过类似的，看看这个

账号		自动登录	找回密码
密码			注册