[编程交流] Lisp例程帮助！Can#039；t

(defun c:applyassem (/ vars varlist)
 ;;retrieve XRecord "PartL1" from dictionary "WSI_DICT"
 ;;which in turn calls both functions below
 (setq vars (get-or-make-Xrecord))
 ;;get dictionary were "PartL1" is stored
 (setq adict (cdr (car (dictsearch (namedobjdict) "WSI_DICT"))))
 ;;get entity to app
 (setq ent (car (entsel)))
 (dictadd ent "PartL1" adict)
 
 (princ)
)
(defun get-or-create-Dict (/ adict)
 ;;test if "WSI_DICT" is already present in the main dictionary
 (if (not (setq adict (dictsearch (namedobjdict) "WSI_DICT")))
   ;;if not present then create a new one and set the main dictionary as owner
   (progn
     
     (setq adict (entmakex '((0 . "DICTIONARY")(100 . "AcDbDictionary"))))
     ;;if succesfully created, add it to the main dictionary
     (if adict (setq adict (dictadd (namedobjdict) "WSI_DICT" adict)))
     )
   ;;if present then just return its entity name
   (setq adict (cdr (assoc -1 adict)))
   )
 );defun
(defun get-or-make-Xrecord(/ adict anXrec)
 (cond
   ;;first get our dictionary. make here in case it doesn't exit
   ((setq adict (get-or-create-Dict))
    (cond
      ;;if "WSI_DICT" is now valid then look for "PartL1" Xrecord
      ((not (setq anXrec (dictsearch adict "PartL1")))
;;if "PartL1" was not found then create it
(setq anXrec (entmakex '((0 . "XRECORD")
                         (100 . "AcDbXrecord")
                         (7 . "PART#")                ;will be part number
                         (90 . 1)                 ;will be default qty of part
                         (91 . 16)                ;will be spacing in inches
                         )
                       );entmakex
      );setq anXrec
;;if creation succeeded then add it to our dictionary
(if anXrec (setq anXrec (dictadd adict "PartL1" anXrec)))
);not
      
      ;;if it's already present then just return its entity name
      (setq anXrec
(cdr (assoc -1(dictsearch adict "PartL1")))
);setq anxrex
      );cond
    );setq adict
   );cond
 );defun