这个代码怎么可以变成批量操作的。

好大一只妖

(defun C:XZ()
  (setq ss (ssget ":s" '((0 . "insert"))))
  (setq enl(ssname ss 0 ))
  (setq ent (entget enl)
        jd (cdr (assoc 50 ent))
        jd(+ jd (/ pi 2))
        ent(subst (cons 50 jd)(assoc 50 ent) ent))
  (entmod ent)
  (entupd enl)
  (sssetfirst nil ss)
  (princ)
  )
我是初学的，在朋友帮助下编写的这个命令。
这是一个固定选择图块90度的代码，但是一次只能操作一个块，选中多个块也只有一个可以旋转。请问如何可以修改成可以批量选装的命令啊～

自贡黄明儒

1. (defun C:XZ (/ E ENT JD SS)
   
2.   (setq ss (ssget ":s" '((0 . "insert"))))
   
3.   (repeat (sslength ss)
   
4.     (setq e (ssname ss 0))
   
5.     (setq ent (entget e)
   
6.           jd  (cdr (assoc 50 ent))
   
7.           jd  (+ jd (/ pi 2))
   
8.           ent (subst (cons 50 jd) (assoc 50 ent) ent)
   
9.     )
   
10.     (entmod ent)
    
11.     (entupd e)
    
12.     (ssdel e ss)
    
13.   )
    
14.   ;;(sssetfirst nil ss)
    
15.   (princ)
    
16. )

(defun C:XZ (/ E ENT JD SS)<br />   (setq ss (ssget ":s" '((0 . "insert"))))<br />   (repeat (sslength ss)<br />     (setq e (ssname ss 0))<br />     (setq ent (entget e)<br />           jd  (cdr (assoc 50 ent))<br />           jd  (+ jd (/ pi 2))<br />           ent (subst (cons 50 jd) (assoc 50 ent) ent)<br />     )<br />     (entmod ent)<br />     (entupd e)<br />     (ssdel e ss)<br />   )<br />   ;;(sssetfirst nil ss)<br />   (princ)<br /> )