关于对象改色的问题？

嘒彼小星

zilong136 发表于 2024-3-26 00:15
希望改成这种效果：
1.支持框选
2.左键框选为同一颜色，包括多次框选

2. (defun c:tt(/ i ss)
   
3.         (setvar "cmdecho" 0)
   
4.         (setq i 1)
   
5.         (while t
   
6.                 (princ "选择对象，按ESC退出！")
   
7.                 (setq ss(ssget))
   
8.                 (command "chprop" ss "" "c" (itoa i) "")
   
9.                 (setq i (1+ i))
   
10.         )
    
11.         (setvar "cmdecho" 1)
    
12.         (princ)
    
13. )

(defun c:tt(/ i ss)<br />         (setvar "cmdecho" 0)<br />         (setq i 1)<br />         (while t<br />                 (princ "选择对象，按ESC退出！")<br />                 (setq ss(ssget))<br />                 (command "chprop" ss "" "c" (itoa i) "")<br />                 (setq i (1+ i))<br />         )<br />         (setvar "cmdecho" 1)<br />         (princ)<br /> )

咏郡

zilong136 发表于 2024-3-26 00:15
希望改成这种效果：
1.支持框选
2.左键框选为同一颜色，包括多次框选

那就必须按空格回车，两样应该不能兼得

zilong136

嘒彼小星 发表于 2024-3-26 10:24

左键框选完要立马改色就完美了。

嘒彼小星

zilong136 发表于 2024-3-26 16:11
左键框选完要立马改色就完美了。

咨询其他大佬把，