字母大小写切换（练手之作）请多多指教

42142 · 发表于 2012-12-26 01:10

(defun c:tt ()
  (setvar "DYNPROMPT" 1)
  (repeat 2  (setq ss (entget (car (entsel))))
      (setq tfas (getvar "DYNPROMPT"))
(if (= 1 tfas)
   (progn
   (setq ss1 (strcase (cdr (assoc 1 ss)) t ))
   (setq ss (entmod (subst (cons 1 ss1) (assoc 1 ss) ss)))
   (setvar "DYNPROMPT" 0)
   ))
   (if (= 0 tfas)
   (progn
   (setq ss2 (strcase (cdr (assoc 1 ss))))
   (setq ss (entmod (subst (cons 1 ss2) (assoc 1 ss) ss)))))
  )
  (c:tt)
  (princ)
)

Aries · 发表于 2019-8-12 15:13

ZZXXQQ 发表于 2012-12-27 09:58
还可以再简化

能增加选属性块块里的字母么？

zhangrunze · 发表于 2024-4-28 14:17

感谢分享~学习了~
要是能单独把第一个字母改大写就好了~（Book）

jkop · 发表于 2023-10-31 17:35

简洁的程序，收藏先！

ZZXXQQ · 发表于 2012-12-26 08:44

本帖最后由 ZZXXQQ 于 2012-12-26 20:17 编辑

程序递归调用，只能强制退出。
下面是另写的一个：

(defun c:tt ()
(while (setq ss (ssget ":E:S" '((0 . "TEXT"))))
(setq ent (entget (ssname ss 0))
txt (cdr(assoc 1 ent)))
(if (wcmatch txt "*[A-Z]*")
(entmod (subst (cons 1 (strcase txt T)) (assoc 1 ent) ent))
(entmod (subst (cons 1 (strcase txt)) (assoc 1 ent) ent))
)
)
(princ)
)

xiabin68 · 发表于 2012-12-26 10:21

Z版快哦，，，，

42142 · 发表于 2012-12-26 12:55

ZZXXQQ 发表于 2012-12-26 08:44
程序递归调用，只能强制退出。
下面是另写的一个：

Z版出手，非同凡响

kwok · 发表于 2012-12-26 12:55

ZZXXQQ 发表于 2012-12-26 08:44
程序递归调用，只能强制退出。
下面是另写的一个：

简洁明了,可以框选不.

42142 · 发表于 2012-12-26 13:23

ZZXXQQ 发表于 2012-12-26 08:44
程序递归调用，只能强制退出。
下面是另写的一个：

z版刚刚又测试了一下，您的程序在 fasgsadg 这种情况下没有问题到这种 (PRINC) 第一个不是字母或者有空格就会无法运行，请z版看看

ZZXXQQ · 发表于 2012-12-26 20:18

沙发修好了

42142 · 发表于 2012-12-26 22:45

ZZXXQQ 发表于 2012-12-26 20:18
沙发修好了

z版威武

ZZXXQQ · 发表于 2012-12-27 09:58

还可以再简化

(defun c:tt ()
(while (setq ss (ssget ":E:S" '((0 . "TEXT"))))
(setq ent (entget (ssname ss 0))
txt (cdr(assoc 1 ent)))
(entmod (subst (cons 1 (strcase txt (wcmatch txt "*[A-Z]*"))) (assoc 1 ent) ent))
)
(princ)
)

200853006 · 发表于 2013-1-7 14:22

厉害啊、、、、、Z版

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

字母大小写切换（练手之作）请多多指教

相关帖子

点评

评分

点评

评分