[求助]改颜色

caoyin

(defun c:chColor (/ col ss n)
  (if (and (setq ss  (ssget))
           (or (setq col (acad_colordlg 7))
               (and (setq col (getint "\n指定颜色索引号(0~256): "))
                    (<= 0 col 256)
               )
           )
      )
    (repeat (setq n (sslength ss))
      (vla-put-color (vlax-ename->vla-object (ssname ss (setq n (1- n)))) col)
    )
  )
  (princ)
)

120120

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

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

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

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

也不知道如何让它循环？

caoyin

(defun c:chColor (/ col ss n)
  (if
    (and (setq ss (ssget))
         (progn
           (setq col (acad_colordlg 7))
           (while (not col)
             (if (setq col (getint "\n指定颜色索引号(0~256): "))
               (if (<= 0 col 256)
                 T
                 (progn (setq col nil) (princ "\n需要 0~256 的整数。"))
               )
             )
           )
           col
         )
    )
     (repeat (setq n (sslength ss))
       (vla-put-color
         (vlax-ename->vla-object (ssname ss (setq n (1- n))))
         col
       )
     )
  )
  (princ)
)

120120

谢谢CAOYIN。实在太历害了！

120120

刚刚认真测试了一下，还有一点小毛病。CAD颜色号好像没有小数点的吧？

不知怎么让它只接爱正整数呢？用INITGET可以不？

caoyin

不需要

(getint "\n指定颜色索引号(0~256): ") 你能得到小数？？？

120120

自已搞错了。谢谢CAOYIN！

匆匆肥马

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

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

2548572928

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

大神 厉害