[求助]：请高手帮我看看，程序可以执行，但提示未知命令

eobser

;我想根据颜色建图层
;图层可以建立，对象也可以转到新建层上
;但连续提示未知命令 "test"
;先谢过.
(defun c:test ()
  (setvar "cmdecho" 0)
  (setq i 1)
  (while (< i 255)
    (setq ssn (ssget "X" (list (cons 62 i))))
    (if        ssn
      (progn
        (setq str_n (strcat "N-" (itoa i)))
        (command "-layer" "n" str_n "" "")
        (command "change" ssn "" "p" "la" str_n "")
      )
    )
    (setq i (1+ i))
  )
  (princ)
)

Underway

问题在下一列  ssn
(command "change" ssn "" "p" "la" str_n "")

ssn  必需要有值,若等于 nil 则有所叙述的错误
请自行验证

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun c:test ()
   
5.   (setvar "cmdecho" 0)
   
6.   (setq i 1)
   
7.   (while (< i 255)
   
8.    
   
9.     (if        (setq ssn (ssget "x" (list (cons 62 i))))
   
10.       (progn
    
11.         (setq str_n (strcat "N_" (itoa i)))
    
12.         (command "_layer" "n" str_n "" )
    
13.         (command "change" ssn "" "p" "la" str_n "")
    
14.       )
    
15.     )
    
16.     (setq i (1+ i))
    
17.   )
    
18.   (princ)
    
19. )
    
20.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:test ()<br />   (setvar "cmdecho" 0)<br />   (setq i 1)<br />   (while (< i 255)<br />     <br />     (if        (setq ssn (ssget "x" (list (cons 62 i))))<br />       (progn<br />         (setq str_n (strcat "N_" (itoa i)))<br />         (command "_layer" "n" str_n "" )<br />         (command "change" ssn "" "p" "la" str_n "")<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )<br />   [/FONT]<br />

dash231

代码下了
提示错误啊

tjchkys

3楼的代码没有错误,我已经测试过了

eobser

谢谢楼上的朋友
修改后如下 不过好像消耗太大了 高手能不能给优化下？

(defun c:test000 ()
  (setvar "cmdecho" 0)
  (setq i 1)
  (while (< i 255)
  (if (setq ssn (ssget "X" (list (cons 62 i))))
      (progn
        (setq str_n (strcat "N-" (itoa i)))
        (if (null (tblobjname "layer" str_n))
            (command "-layer" "n" str_n ""))
        (command "change" ssn "" "p" "la" str_n "")        
        (command "change" ssn "" "p" "c" "bylayer" "")        
        (command "-layer" "c" i str_n "")
       )
   )
  (setq i (1+ i))
  )
  (princ)
)

原地踏步

(if (null (tblsearch "layer" str_n))
  (command "_layer" "n" str_n "" )
)
其实就算不检查，程序好像也能正常运行。

xyp1964

2. [FONT=courier new](defun c:test000 ()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq i 0)
   
5.   (while (<= (setq i (1+ i)) 255)
   
6.     (if        (setq ssn (ssget "X" (list (cons 62 i))))
   
7.       (progn
   
8.         (setq str_n (strcat "N-" (itoa i)))
   
9.         (command "layer" "m" str_n "c" i str_n "")
   
10.         (command "change" ssn "" "p" "la" str_n "")
    
11.       )
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )[/FONT]

[FONT=courier new](defun c:test000 ()<br />   (setvar "cmdecho" 0)<br />   (setq i 0)<br />   (while (<= (setq i (1+ i)) 255)<br />     (if        (setq ssn (ssget "X" (list (cons 62 i))))<br />       (progn<br />         (setq str_n (strcat "N-" (itoa i)))<br />         (command "layer" "m" str_n "c" i str_n "")<br />         (command "change" ssn "" "p" "la" str_n "")<br />       )<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

eobser

谢谢斑竹
又学了一招