注释比例为何创建不成功

zdqwy19

;(addscale (car(entsel)) "1:2")
(defun AddScale (object scale / DefineNewDictHandle dicLv2 m1:1)  
  (defun DefineNewDictHandle(lst / leeter numbre handles retVal)
    (foreach letter '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K")
      (foreach number '(0 1 2 3 4 5 6 7 8 9)
        (setq handles (cons (strcat "*" letter (itoa number)) handles))))
    (setq handles (cdr(reverse handles)))
    (while (member (setq retVal (car handles)) lst) (setq handles (cdr handles)))
    retVal)
  (setq dicLv2 (entget(cdr (assoc 350 (entget(cdr (assoc 360  (entget(cdr (assoc 360 (entget object)))))))))))
  (setq m1:1 (cdr(assoc 350 dicLv2)))  
  (setq dicLv2 (append dicLv2 (list (cons 3 (DefineNewDictHandle (apply 'append(mapcar '(lambda(x)(if(=(car x)3)(list(cdr x)))) dicLv2))))(cons 350 m1:1))))
  (entmod dicLv2)
  )
注释比例为何创建不成功