[求助]：寻一个简单程序

alwaysbin · 发表于 2006-12-26 20:52:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

一张图纸上有很多个数字，都是独立的文字，
如何能做到框选以后，把所有文字中，数字大于50的，改成红色？？？
最关键的，数字的格式全是a－b－c
比如"11-47-58",，如何写这个程序？？？

zxq0220 · 发表于 2006-12-27 09:48:21

(DEFUN C:TORED ()
(SETVAR "CMDECHO" 0)
(IF (SETQ SS (SSGET "X" '((0 . "*TEXT") (1 . "*-5*"))))
(COMMAND "CHPROP" SS "" "C" 1 "")
)
(SETVAR "CMDECHO" 1)
(PRINC)
)

alwaysbin · 发表于 2006-12-27 11:26:02

???先谢谢楼上
不过没有明白我的意思，用你的程序，
我还没有进行框选，就自动变色了，而且，改变的没有变，不该变的变了，
好像没有判断>50的语句。

zxq0220 · 发表于 2006-12-27 13:12:30

程序是自动的，选择串中包含“-5”的文本进行更改，因给的例子是“11-47-58”串中包含“-5”。

alwaysbin · 发表于 2006-12-27 16:28:15

这个根本不行！！！！
我需要的是选择性判断的程序，你这样把包含5的都变了！！比如15
有没有高手？？
本版斑竹这个时候该发言了……

lijiao · 发表于 2006-12-29 09:15:48

你的这个要求恐怕不好实现，因为你的数字格式是a－b－c，假如是TEXT对象，就不可能实现，因为TEXT对象不能具有两种颜色。如果是MTEXT对象，倒还有可能，假如b是大于50的数，只要把文字串变成a-{\\c1;b}-c即可。如果一定要对TEXT对象进行处理，可以将TEXT转换成MTEXT，再修改颜色，如果想得到TEXT，可以将其炸开。

狂刀 · 发表于 2006-12-29 19:33:22

TEXT对象不能具有两种颜色。如果是MTEXT对象，倒还有可能，
同意！
不过楼主可以将ｔｅｘｔ改为ｍｔｅｘｔ，不知道合要求否

alwaysbin · 发表于 2006-12-31 20:35:42

不需要那么麻烦，只需要a－b－c中有一个大于50，就把这个text全部改成红色就行了
可以吗？？

carrot1983 · 发表于 2007-1-1 02:49:12

我花了好长时间。。。才搞定了
里面的变量很乱。想改再改吧
不过一定可以用的。。我试过了。。
a-b-c，当中只要有一个a或b或c大于50的。
就会变成红色的。。。。符合楼主要求/。
俺是初学者。。一直在学习。。。
其它的楼主是厉害人物可以自己改。
[php]
(setq ss (ssget))
可以自己改
(setq ss (ssget '((0 . "*TEXT"))))
[/php]
（初学者比较穷）
还有，我这个爱心币有没有设置成功啊？？（就是有没有收到钱呢。。哈哈。。试试）

alwaysbin · 发表于 2007-1-1 12:23:05

谢谢楼上，可以了，非常感谢！！！
现在人老了，事情多了，好久没有编程序了，还得靠大家的帮助啊……
如果你需要爱心币，说一声，我到银行去给你100个。

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

[求助] [求助]：寻一个简单程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

这个绝对可行