为什么同一个程序在不同的图里用不了？

半听可乐

为什么同一个程序在不同的图里用不了？程序如下（附件里也有）
在 《正常图》 中加载这个程序后可以正常实现程序功能：选择图元--输入命令--图元移至指定图层
在 《问题图》 中加载这个程序后不能实现程序功能：选择图元--输入命令--图元移至指定图层
为什么会这样？是程序缺陷吗？求高手完善程序
;==========================================================
;★图元图层移至冷给水
;==========================================================
(defun c:SJ ()
(setvar "cmdecho" 0)
(if (/= nil (setq ss (cadr (ssgetfirst))))
(command "change" ss "" "p" "la" "SJ_J" "")
(command "clayer" SJ_J)
)
(setvar "cmdecho" 0)
(princ)
)


;==========================================================
;★图元图层移至排水
;==========================================================
(defun c:SW ()
(setvar "cmdecho" 0)
(if (/= nil (setq ss (cadr (ssgetfirst))))
(command "change" ss "" "p" "la" "SP_W" "")
(command "clayer" SJ_W)
)
(setvar "cmdecho" 0)
(princ)
)

print1985

试试这个 VL函数的

2. ;改图元图层
   
3. (vl-load-com)
   
4. (defun c:sj()(gtc "SJ_J"))
   
5. (defun c:sw()(gtc "SP_W"))
   
6. 
   
7. (defun gtc (tcm /  ss k ent obj);改图层子程序
   
8.   (if (setq ss (ssget))
   
9.    (progn
   
10.     (setq k 0)
    
11.     (repeat (sslength ss)
    
12.      (setq ent (ssname ss k))
    
13.      (setq obj (vlax-ename->vla-object ent))
    
14.      (vla-put-layer obj tcm)
    
15.      (setq k (1+ k))
    
16.     )
    
17.   ))
    
18. (princ)
    
19. )

;改图元图层<br /> (vl-load-com)<br /> (defun c:sj()(gtc "SJ_J"))<br /> (defun c:sw()(gtc "SP_W"))<br /> <br /> (defun gtc (tcm /  ss k ent obj);改图层子程序<br />   (if (setq ss (ssget))<br />    (progn<br />     (setq k 0)<br />     (repeat (sslength ss)<br />      (setq ent (ssname ss k))<br />      (setq obj (vlax-ename->vla-object ent))<br />      (vla-put-layer obj tcm)<br />      (setq k (1+ k))<br />     )<br />   ))<br /> (princ)<br /> )

461045462

试了试，没有理解
两个图形没有变化
命令: sw
需要点或选项关键字。
; 错误: 函数被取消

Andyhon

在《问题图》 中 预选择图元
试了,  SJ & SW 都ok

未必合乎您的 预选
亦或请将 所选 另行提出 以符相同的调试检验

fanqinwei

难以理解的就是这一点了，家里和公司的成图，同是一个软件，都是我自己安装的，有些插件，在家里能用，到公司里就不行了，最可气的是，有些功能公司里能用，到家里却不能用了。

半听可乐

Andyhon 发表于 2012-7-17 21:05
在《问题图》 中 预选择图元
试了,  SJ & SW 都ok

我cad04的，求深入试用

自贡黄明儒

(defun c:SJ ()
(setvar "cmdecho" 0)
(if (/= nil (setq ss (cadr (ssgetfirst))))
(command "change" ss "" "p" "la" "SJ_J" "")
(command "clayer" SJ_J)
)
(setvar "cmdecho" 0)
(princ)
这个程序是不是应该检查一下图层SJ_J存在？

半听可乐

自贡黄明儒 发表于 2012-7-17 22:37
(defun c:SJ ()
(setvar "cmdecho" 0)
(if (/= nil (setq ss (cadr (ssgetfirst))))

图层都是存在的

print1985

2. ;==========================================================
   
3. ;★图元图层移至冷给水
   
4. ;==========================================================
   
5. (defun c:SJ ()
   
6. (setvar "cmdecho" 0)
   
7. (if (/= nil (setq ss (ssget)))
   
8. (progn
   
9. (command "change" ss "" "p" "la" "SJ_J" "")
   
10. (command "clayer" "SJ_J")
    
11. ))
    
12. (setvar "cmdecho" 0)
    
13. (princ)
    
14. )
    
15. 
    
16. ;==========================================================
    
17. ;★图元图层移至排水
    
18. ;==========================================================
    
19. (defun c:SW ()
    
20. (setvar "cmdecho" 0)
    
21. (if (/= nil (setq ss (ssget)))
    
22. (progn
    
23. (command "change" ss "" "p" "la" "SP_W" "")
    
24. (command "clayer" "SP_W")
    
25. ))
    
26. (setvar "cmdecho" 0)
    
27. (princ)
    
28. )

;==========================================================<br /> ;★图元图层移至冷给水<br /> ;==========================================================<br /> (defun c:SJ ()<br /> (setvar "cmdecho" 0)<br /> (if (/= nil (setq ss (ssget)))<br /> (progn<br /> (command "change" ss "" "p" "la" "SJ_J" "")<br /> (command "clayer" "SJ_J")<br /> ))<br /> (setvar "cmdecho" 0)<br /> (princ)<br /> )<br /> <br /> ;==========================================================<br /> ;★图元图层移至排水<br /> ;==========================================================<br /> (defun c:SW ()<br /> (setvar "cmdecho" 0)<br /> (if (/= nil (setq ss (ssget)))<br /> (progn<br /> (command "change" ss "" "p" "la" "SP_W" "")<br /> (command "clayer" "SP_W")<br /> ))<br /> (setvar "cmdecho" 0)<br /> (princ)<br /> )

半听可乐

print1985 发表于 2012-7-17 23:09

能阐述一下完善的原理吗？我还不知到问题所在，今天重新装了一下CAD，问题图又可以了，这种问题已经反反复复折磨我多次，每次都要通过重装CAD解决，很麻烦