谁能帮我看看这个程序为什么和 ET冲突吗？

vivi8543

下面是我写的一个自动对齐文字的小程序，为什么执行完命令后就不能express tool了呢？显示“语法错误”。

3. (defun c:txt()
4. (setvar "cmdecho" 0)
5. (setq dis(getreal "请输入行距(1.5倍行距)"))
6. (princ "请依次选择要对齐的第一行文字:")
7. (setq member(entget(car(entsel))))
8. (setq point (getpoint "请选择插入点"))
9. (setq member(subst (cons 10 point) (assoc 10 member) member))
10. (entmod member)
11. (setq y(cadr (cdr (assoc 10 member))))
12. (if (= dis nil) (setq dis(* 1.5 (cdr (assoc 40 member)))))
13. (setq n 1)
14. (repeat 100
15. (princ "请依次选择要对齐的文字:")
16. (setq membern(entget(car(entsel))))
17. (setq membern(subst (cons 10 (list (car (cdr (assoc 10 member))) (- (cadr (cdr (assoc 10 member))) (* n dis)) (caddr (cdr (assoc 10 member))))) (assoc 10 membern) membern))
18. (entmod membern)
19. (setq n(1+ n))
20. )
21. (princ "   *******well done!!!*******   ")
22. (prin1)
23. )
24. (prompt"*********<<c:txt>>***********")
25. (prin1)

(defun c:txt() (setvar "cmdecho" 0) (setq dis(getreal "请输入行距(1.5倍行距)")) (princ "请依次选择要对齐的第一行文字:") (setq member(entget(car(entsel)))) (setq point (getpoint "请选择插入点")) (setq member(subst (cons 10 point) (assoc 10 member) member)) (entmod member) (setq y(cadr (cdr (assoc 10 member)))) (if (= dis nil) (setq dis(* 1.5 (cdr (assoc 40 member))))) (setq n 1) (repeat 100 (princ "请依次选择要对齐的文字:") (setq membern(entget(car(entsel)))) (setq membern(subst (cons 10 (list (car (cdr (assoc 10 member))) (- (cadr (cdr (assoc 10 member))) (* n dis)) (caddr (cdr (assoc 10 member))))) (assoc 10 membern) membern)) (entmod membern) (setq n(1+ n)) ) (princ "   *******well done!!!*******   ") (prin1) ) (prompt"*********<<c:txt>>***********") (prin1)

Hart

你这个程序变量没有设为局部变量,可能是变量与ET中的变量冲突。

Andyhon

(setq member(entget(car(entsel))))

MEMBER 是内建函数
用来做变量,之后的程序如果用到它就垮了

vivi8543

多谢楼上