有一段程序老是修改不好请大神看看

Andyhon

;(setq st (cdr (assoc 2 s)))
(setq st s)
先这样试==>
(setq st (cdr (assoc 2 ss)))
;; (setq st s)

流_星

Andyhon 发表于 2014-12-2 20:27
;(setq st (cdr (assoc 2 s)))
(setq st s)
先这样试==>

我明天试试谢谢啦

流_星

流_星 发表于 2014-12-2 22:27
我明天试试谢谢啦

好像不成ys为 nil

Andyhon

"tbl2013" /= "TBL2013"

流_星

Andyhon 发表于 2014-12-3 09:52
"tbl2013" /= "TBL2013"

还是不成都改成小写的了

Andyhon

错误讯息是啥!?
该处的变量值应为啥才是对的!?

流_星

Andyhon 发表于 2014-12-3 13:42
错误讯息是啥!?
该处的变量值应为啥才是对的!?

变量ys应该是   lj.ctb 或是pipe.ctb 或是zp.ctb或是pip.ctb

流_星

根据不同图值不一样

Andyhon

(setq st (cdr (assoc 2 ss)))
变量 ss 在 While 回圈 内递变着

(setq ss (entget (ssname s 0)))  
(setq st (cdr (assoc 2 ss)))   ; 先保存 st
(princ st)

您可以用老方法查验 变量值
ex. (princ st)

流_星

Andyhon 发表于 2014-12-3 16:34
(setq st (cdr (assoc 2 ss)))
变量 ss 在 While 回圈 内递变着

我试了可以
谢谢由衷感谢你不厌其烦给我改谢谢