[求助]照书上写的程序,不知错在哪里!大家帮忙看一下!

362810200

大家好，我是刚刚自学“AutoLISP”，这是我照书上写出来的程序，这个程序的作用书上写的是“让切圆动起来”，可我写出来以后，怎么也运行不了，就到“(setq cen2 (getpoint "\n 切圆圆心: "))”这一步，下面的“(setq cen2 (getpoint "\n 切圆圆心: "))”就不能显示了，是我哪里写错了吗？我看了半天也没有看出来，下面还有个图。所以发到论坛上让大家帮忙看一下，帮帮我这个新手！提前谢谢大家了！！！

ZZXXQQ

小错误。变量名写错了。

3. (defun c:lsp_56()
4.   (setvar"cmdecho"0)
5.   (setq en (car (entsel "\n 选取一个圆: ")))
6.   (setq cen2 (getpoint "\n 切圆圆心: "))
7.   (princ "\n 按任意键可转动切圆，[Enter]结束... ")
8.   (setq endata (entget en))
9.   (setq cenl (cdr (assoc 10 endata)))
10.   (setq rrl (cdr (assoc 40 endata)))
11.   (setq dd (distance cenl cen2))
12.   (setq rr2 (abs (- dd rrl)))
13.   (command "circle" cen2 rr2)
14.   (setq k l)
15.   (while (/= k 13)
16.     (command "rotate" en "" cen2 10)
17.     (setq k (cadr (grread)))
18. )
19.   (princ)
20. )

(defun c:lsp_56()   (setvar"cmdecho"0)   (setq en (car (entsel "\n 选取一个圆: ")))   (setq cen2 (getpoint "\n 切圆圆心: "))   (princ "\n 按任意键可转动切圆，[Enter]结束... ")   (setq endata (entget en))   (setq cenl (cdr (assoc 10 endata)))   (setq rrl (cdr (assoc 40 endata)))   (setq dd (distance cenl cen2))   (setq rr2 (abs (- dd rrl)))   (command "circle" cen2 rr2)   (setq k l)   (while (/= k 13)     (command "rotate" en "" cen2 10)     (setq k (cadr (grread))) )   (princ) )

Andyhon

(defun c:lsp_56 ()
  (setvar "cmdecho" 0)
  (setq en (car (entsel "\n 选取一个圆: ")))
  (setq cen2 (getpoint "\n 切圆圆心: "))
  (princ "\n 按任意键可转动切圆，[Enter]结束... ")
  (setq endata (entget en))
  (setq cenl (cdr (assoc 10 endata)))
  (setq rrl (cdr (assoc 40 endata)))
  (setq dd (distance cenl cen2))
  (setq rr2 (abs (- dd rrl)))
  (command "circle" cen2 rr2)
  (setq en2 (entlast))
  (setq k l)
  (while (/= k 13)
    (command "rotate" en2 "" cenl 10)
    (setq k (cadr (grread)))
  )
  (prin1)
)

362810200

我刚看了看两位的,没有什么不一样的呀!我是个新手,刚刚才学,两位能不能指点一下,是哪个变量写错了.

谢谢了!

ZZXXQQ

前边用的变量enl，后面用cenl，当然不对了。

另外函数prin1写成prinl了，数字1写成小写字母l。一般容易将数字和字母写错，如数字0和字母O，数字8和字母B……

362810200

谢谢你，“ZZXXQQ”。我以后会注意这些容易写错的地主了，同时也谢谢“Andyhon”。谢谢你们对我这个新手的耐心指导！

以后有我不明白的，就麻烦大家了！