请问一下,这段代码的错误地方!

xufen

请问一下,这段代码错在哪里?

(defun c:yy(/ a1 a2 n index b1 b2 d1 d2 b3)
(graphscr)
(prompt "\nSelsct entities to be changed:")
(setq a1 (ssget))
(prompt "\nPoint to entity on target layer:")
(setq a2 (entsel))
(setq n (sslength a1))
(setq index 0)
(setq b2 (entget (car a2)))
(setq d2 (assoc 8 b2)))
(repeat n
(setq b1 (entget (ssname a1 index)))
(setq b1 (assoc 8 b1))
(setq d3 (subst d2 d1 b1))
(entmod b3)
(setq index (+index 1))
)
)

BDYCAD

(defun c:yy(/ a1 a2 n index b1 b2 d1 d2 b3)
(graphscr)
(prompt "\nSelsct entities to be changed:")
(setq a1 (ssget))
(prompt "\nPoint to entity on target layer:")
(setq a2 (entsel))
(setq n (sslength a1))
(setq index 0)
(setq b2 (entget (car a2)))
(setq d2 (assoc 8 b2))
(repeat n
(setq b1 (entget (ssname a1 index)))
(setq b1 (assoc 8 b1))
(setq d3 (subst d2 d1 b1))
(entmod b3)
(setq index (+ index 1))
)
)

userzhl

楼主，这段代码是什么功能的？

ZZXXQQ

userzhl发表于2006-1-18 16:48:00楼主，这段代码是什么功能的？

改变所选图元的图层到选定图元所在图层。

xufen

恩,不好意思,请问哪里一段出错了?

BDYCAD

1 (setq d2 (assoc 8 b2)))  這行多了一個 ")"符號 改成 (setq d2 (assoc 8 b2)) 這樣就好了,

2. 程序倒數第三句 (setq index (+index 1)) 這樣寫少了一個空格, 所以出錯, 改成(setq index (+ index 1)) 這樣就好了