求助：一个程序之前用的好好的，为什么现在用不了了？

半听可乐

一个程序之前用的好好的，为什么现在用不了了？很奇怪，是不是程序加载多了的原因？

我通常使用方法是在图中加载了所有需要的图层，然后使用如下程序
;==========================================================
;★图元图层移至冷给水
;==========================================================
(defun c:SJ ()
(if (/= nil (setq ss (cadr (ssgetfirst))))
(command "change" ss "" "" "p" "la" "SJ_J" "")
(command "clayer" SJ_J)
)
(princ)
)
;==========================================================
;★图元图层移至排水
;==========================================================
(defun c:SW ()
(if (/= nil (setq ss (cadr (ssgetfirst))))
(command "change" ss "" "" "p" "la" "SP_W" "")
(command "clayer" SP_W)
)
(princ)
)


CAD命令行出现以下提示：
需要点或选项关键字。
; 错误: 函数被取消
指定修改点或 [特性(P)]:

xyz2009xyz

你的程序本来就有问题，修改一个：
(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图层是否存在，选择对象没有提示，不是很舒服！

xiaoyingzi

可能是某些程序改了某些系统变量没还原

xyz2009xyz

(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)
)
试试行不行，我以前好像也是这个原因！

半听可乐

xyz2009xyz 发表于 2012-6-29 08:25
你的程序本来就有问题，修改一个：
(defun c:SJ ()
(setvar "cmdecho" 0)                               ...

刚试了，还是不行

半听可乐

xiaoyingzi 发表于 2012-6-29 07:56
可能是某些程序改了某些系统变量没还原

再改变不至于改变源码吧？

xyz2009xyz

我测试没问题

半听可乐

xyz2009xyz 发表于 2012-6-29 12:11
我测试没问题

是不是我需要重新安装CAD呢？

xiaoyingzi

我这里按楼主的程序测试正常

半听可乐

正常了，谢谢大家，嘿嘿，按修改后程序重装CAD解决的