[编程交流] 启动时Lisp错误

;;;Xref to back, text to front;;;
(setvar "cmdecho" 1)
(COMMAND "-LAYER" "unlock" "e-anno-refr" "")
             (vl-load-com)
             (setq selset (ssget "x" '((0 . "INSERT"))) SelToSend selset)
                     (repeat (setq i (sslength selset))
                             (if (equal (vla-get-IsXRef 
                       (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))     
                       (vla-get-effectivename
                             (vlax-ename->vla-object (setq ent (ssname selset (setq i (1- i))))))
                             )
                                          ) :vlax-false )
                           (setq SelToSend (ssdel ent SelToSend))
                           )
                     )
     (sssetfirst nil SelToSend)
     (command "_draworder" "_Back")
(COMMAND "-LAYER" "lock" "e-anno-refr" "")
(command "texttofront" "all")

(defun xref2back  (/ str blk sel fnd )
 ;; Tharwat - Date: 01.Nov.2017        ;;
 (or (= (getvar 'CMDECHO) 1) (setvar 'CMDECHO 1))
 (and (setq fnd (tblsearch "LAYER" "e-anno-refr")) (command "-LAYER" "unlock" "e-anno-refr" ""))
 (setq str "")
 (while (setq blk (tblnext "BLOCK" (not blk)))
   (if (cdr (assoc 1 blk))
     (setq str (strcat str (cdr (assoc 2 blk)) ","))
     )
   )
 (and (setq sel (ssget "_X" (list '(0 . "INSERT") (cons 2 str))))
      (sssetfirst nil sel) (command "_draworder" "_Back"))
 (and fnd (command "-LAYER" "lock" "e-anno-refr" ""))
 (command "texttofront" "all")
 (princ)
 )
;; The following is to invoke the function without user's intervention.
(xref2back)

(defun c:xrb (/ b n sp tx)
 (setvar 'cmdecho 0)
 (setq        sp (vlax-get (vla-get-activedocument (vlax-get-acad-object))
             (if (= (getvar 'cvport) 1)
               'paperspace
               'modelspace
             )
   )
 )
 (setq b (ssadd))
 (setq tx (ssadd))
 (vlax-for o sp
   (setq n (vla-get-objectname o))
   (cond ((and (= "AcDbBlockReference" n) (vlax-property-available-p o 'path))
   (setq b (ssadd (vlax-vla-object->ename o) b))
  )
  ((wcmatch n "AcDb*Text,*Dimension*,*Leader*")
   (setq tx (ssadd (vlax-vla-object->ename o) tx))
  )
   )
 )
 (and (> (sslength b) 0) (command "_.draworder" b "" "Back"))
 (and (> (sslength tx) 0) (command "_.draworder" tx "" "Front"))
 (setvar 'cmdecho 1)
 (princ)
)
(vl-load-com)

(and (sssetfirst nil (ssget "_X" (list '(0 . "INSERT") (cons 2 str)))))

(defun c:xrb (/ bl ed n tbl tx)
 (vlax-for a (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
   (if        (and (= -1 (vlax-get a 'islayout))
     (setq ed (vla-getextensiondictionary a))
     (setq tbl (vla-addobject ed "Acad_Sortents" "AcDbSortentsTable"))
)
     (progn (vlax-for b a
       (setq n (vla-get-objectname b))
       (cond ((and (= "AcDbBlockReference" n) (vlax-property-available-p b 'path))
              (setq bl (cons b bl))
             )
             ((wcmatch n "AcDb*Text,*Dimension*,*Leader*") (setq tx (cons b tx)))
       )
     )
     (and bl (vl-catch-all-apply 'vlax-invoke (list tbl 'movetobottom bl)))
     (and tx (vl-catch-all-apply 'vlax-invoke (list tbl 'movetotop tx)))
     (mapcar 'set '(bl tx) '(nil nil))
     )
   )
 )
 (vla-update (vlax-get-acad-object))
 (princ)
)
(vl-load-com)