大家来找查。。。。

linhui12

请大家帮忙找查。。。
(defun C:xx (/ r p1 p2 p3 b a p4 n)
(setq r (* (getvar "useril") 8))
(setq p1 (getpoint "\指定第一点:"))
(setq p2 (getpoint "\指定第二点:"))
(setq p3 (getpoint "\指定第三点:"))
(setq b (list (car p3) (cadr p2)))
(setq a (polar p2 (angle p2 b) r))
(command "line" p1 p2 a "")
(setq p4 (osnap a "midp"))
(setq n (getstring "\输入付件编号:"))
(command "text" "s" "STANDARD" "j" "bc" p4 0 n)
(princ)
)
(defun C:ww (/ r fp sp a n)
(setq r (* (getvar "useril") 5))
(setq fp (getpoint "\指定第一点:"))
(setq sp (getpoint "\指定第二点:"))
(command "circle" sp r)
(setq a (polar sp (angle sp fp) r))
(command "line" fp a "")
(setq n (getstring "\输入零件编号:"))
(command "text" "s" "STANDARD" "m" sp 0 n)
(princ)
)

以上是两个标零件的程序，看那里出问题了？？？

alin

useril 应为 useri1