请教下，怎么这个改视口图层颜色运行不了，请高手帮忙下

pizi158545086

改视口图层颜色运行不了，请高手帮忙下


(defun c:sy(/ ss1)
  (if (not (setq ss1(ssget "i")))
    (setq ss1(ssget))
  )
(command "vplayer" "c" "250" "" ss "c" ""))

start4444

还有把图层提取出来
(defun c:tt5 (/ en i ss)
(setq ss (ssget))
(setq i -1)
        (while (setq en (ssname ss (setq i (1+ i))))               
(command "vplayer" "c" 250  (cdr (assoc 8 (entget en))) "" "")
)
(princ)        
)

start4444

低版本没有这个命令的

pizi158545086

start4444 发表于 2023-6-29 11:00
低版本没有这个命令的

我用的是2024，命令出来是这样的，想把图层的视口颜色调整为250号色，怎么调试都不对

start4444

前面选集是ss1，命令里是ss，不对应

pizi158545086

start4444 发表于 2023-6-29 11:06
前面选集是ss1，命令里是ss，不对应

还是不行 可以帮忙测试下吗  小白一个

pizi158545086

start4444 发表于 2023-6-29 10:47
还有把图层提取出来
(defun c:tt5 (/ en i ss)
(setq ss (ssget))

非常感谢