[求助]：请高手帮忙指点以下程序:问题点是在使用Vlisp制作图块时,怎样将所选图元加入

foxzmx

(DEFUN EDIT-PRESS ()
  (GET-SELECT)
  (PROMPT "请选择要编辑的图元:")
  (SETQ        N 0
        M 0
        )
  (SETQ SSEL (SSGET '((-4 . "<or") (0 . "CIRCLE") (0 . "LWPOLYLINE") (0 . "ARC") (0 . "LINE") (-4 . "or>"))))
  (WHILE (> (SSLENGTH SSEL) 0)
    (SETQ SSEL-TYPE (CDR (ASSOC 0 (ENTGET (SETQ SS (SSNAME SSEL N))))))
    (IF        (= SSEL-TYPE "CIRCLE")
      (PROGN (SETQ SSEL-RAD (CDR (ASSOC 40 (ENTGET SS))))
             (SETQ SS-RAD (CONS 40 SSEL-RAD))
             (SETQ SSEL-CIRCLE (SSGET "X" (LIST '(-4 . "<and") '(0 . "CIRCLE") '(8 . "STRIP") SS-RAD '(-4 . "and>"))))
             (REPEAT (SSLENGTH SSEL-CIRCLE)
               (SETQ CIRCLE-NAME (SSNAME SSEL-CIRCLE M))
               (SETQ CIRCLE-CENTER (CDR (ASSOC 10 (ENTGET CIRCLE-NAME))))
               (SETQ LAYERNAME (VLA-GET-NAME (VLA-GET-ACTIVELAYER ACADDOCUMENT)))
               (SETQ BLOCKNAME (STRCAT (STRCASE "zmxcad") "_" LAYERNAME "_" "AA"))
               (SETQ CIRCLE-TBLSEARCH (TBLSEARCH "BLOCK" BLOCKNAME))
               (IF (/= CIRCLE-TBLSEARCH NIL)
                 (SETQ CIRCLE-INSERT (VLA-INSERTBLOCK MSPACE (VLAX-3D-POINT CIRCLE-CENTER) BLOCKNAME 1 1 1 0.00))
                 (PROGN        (SETQ BLOCK (VLA-GET-BLOCKS ACADDOCUMENT))
                        (SETQ CIRCLE-BLOCK (VLA-ADD BLOCK (VLAX-3D-POINT CIRCLE-CENTER) BLOCKNAME))
                        (SETQ CIRCLE-IN (VLA-ADD CIRCLE-BLOCK (SETQ CIRCLE-DD (VLAX-ENAME->VLA-OBJECT CIRCLE-NAME))))
;;;                              (ATTRIBUTE)
                        )
                 )
               (SETQ M (1+ M))
               )
             )
      )
    (SETQ N (1+ N))
    )
  )