[求助]改颜色

120120 · 发表于 2008-9-21 18:51:00

在坛子上搜了很多改颜色的贴子，看了很多，还是写不出改颜色的LSP程序来，特向各位请教！

改颜色有两个命令。一是用COMMAND的，另一个是VLA的。好像VLA运算速度快点吧。。不知是不是这样。望各位指教！

vla-get-color这个可以取得对象颜色。但我有一点不明白的，我用SSGET取得对象后，不能直接用vla-get-color取得对象颜色，会出错，WHY？

还有一个问题，如何对对象颜色与要改的颜色作一个对比？

120120 · 发表于 2008-9-23 18:43:00

楼上的大哥，能不能让它不断循环，直到获得正确有效值数才跳出！

(<= 0 col 256)这句好像没作用！

应该对所输的进行判断。对负值和在0-256范围外的值进行拒绝！

(initget 4)加了这个可以拒绝负值，但0-256的不知道怎么判断？

也不知道如何让它循环？

匆匆肥马 · 发表于 2019-10-22 10:09:18

caoyin 发表于 2008-9-22 16:00
;;; command并不一定慢！(defun c:chColor (/ col ss n)  (if (and (setq ss  (ssget)) &nb ...

请请教一下，选择对象为空时，不结束命令，而是直接弹出颜色选定窗口。怎么改啊？

2548572928 · 发表于 2021-12-10 10:05:10

caoyin 发表于 2008-9-24 09:17
本帖最后由作者于 2008-9-24 12:48:25 编辑 (defun c:chColor (/ col ss n)  (if  &nbs ...

大神厉害

120120 · 发表于 2008-9-21 19:57:00

没有人晓得啊？

120120 · 发表于 2008-9-22 09:44:00

怎么这么久还没有人知道啊?

liminnet · 发表于 2008-9-22 09:57:00

提示: 作者被禁止或删除内容自动屏蔽

120120 · 发表于 2008-9-22 12:30:00

楼主的大哥，要怎样才能对选集里的所有改颜色呢？

caoyin · 发表于 2008-9-22 16:00:00

;;; command并不一定慢！

(defun c:chColor (/ col ss n)
(if (and (setq ss (ssget))
           (setq col (acad_colordlg 7))
      )
    (repeat (setq n (sslength ss))
      (vla-put-color (vlax-ename->vla-object (ssname ss (setq n (1- n)))) col)
    )
)
)

liminnet · 发表于 2008-9-22 16:02:00

提示: 作者被禁止或删除内容自动屏蔽

luyu9635 · 发表于 2008-9-22 20:08:00

acad_colordlg 7这句是什么意思呀

120120 · 发表于 2008-9-22 22:23:00

谢谢6楼的大哥。我试试去。！

120120 · 发表于 2008-9-22 23:21:00

经过试用，楼主的程序是弹出CAD颜色对话框来选色的。
在对话框里，如果我按一下ESC键，就会返回NIL
不知能不能加入对ESC键的处理？就是如果按一下ESC键，会提示键入颜色号。
不知这样怎么实现？

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

liminnet liminnet 当前离线积分 9742 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2008-9-22 09:57:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9742 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2008-9-22 16:02:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡