高手请进！

leeyuan

帮忙看看 (defun c:bgj (/e i n d inf t1 txt tx ty ta tb t2 inf1)
(princ "\n修改管径----c:bgj\n")
(setq e (ssget '((0 . "TEXT"))))
(setq n (sslength e)
i 0
)
(setq d (getstring "\n输入管径:"))
(while (< i n)
(setq inf (entget (ssname e i)))
(setq t1 (assoc 1 inf))
(setq txt (cdr t1))
(setq tx (substr txt 1 1))
(setq ty (substr txt 2 1))
(if (and (= tx "D") (= ty "="))
(progn
(setq ta (strcat "D=" d))
(setq tb (substr txt 6))
(setq t2 (cons 1 (strcat ta tb)))
(setq inf1 (subst t2 t1 inf))
(setq inf1 (cons (cons 62 2) inf1))
(entmod inf1)
)
)
(setq i (1+ i))
)
(command "change" e "" "p" "color" 1 "") (princ)
)
为何在运行的时候提示参数太少呢？

maomao2004

图面内必须要有text创建的文本，你那有吗？

leeyuan

问题的中心并不在此，图面肯定是有text创建的文本，我个人认为是不是定义局部变量时出现漏项，可仔细检查还是未发现

龙龙仔

(defun c:bgj (/e i n d inf t1 txt tx ty ta tb t2 inf1)
-> (defun c:bgj (/ e i n d inf t1 txt tx ty ta tb t2 inf1)

leeyuan

谢谢龙兄，可以啦！

maomao2004

呵呵


谢谢


了

花开梦落

帮助中就已明确指出，“/”和局部变量间须有空格。