[求助]：哪位高手帮忙看看这个程序错在了哪里？

userzhluserzhl

;有很多这样的属性块，提示有“标高_1:10”、“标高_1:20”“标高_1:40”“标高_1:50”“标高_1:100”“标高_1:150”“标高_1:200”。。。
;下面这个程序是选择图中符合条件的块，然后进行缩放。

(Defun c:tt (/ DATA II OS SN SS STR)
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (vlax-for BLK (vla-get-blocks
     (vla-get-activedocument (vlax-get-acad-object))
   )
     (vlax-for X BLK
       (if (and (= (vla-get-objectname X) "AcDbAttributeDefinition")
         (wcmatch (setq str (vla-get-promptstring X))
    "标高*"
         )
    )
  (setq data (cons (cons (vla-get-name BLK)
           (read (vl-string-subst
            ""
            "标高_1:"
            str
          )
           )
     )
     data
      )
  )
       )
     )
   )
   (foreach blk data
     (if (setq ii -1
        ss (ssget (list (cons 0 "insert") (cons 2 (car blk)))
    )
  )
       (repeat (sslength ss)
  (setq sn (ssname ss (setq ii (1+ ii))))
  (command "_.Scale"
    sn
    ""
    (cdr (assoc 10 (entget sn)))
    (/ 50.0 (cdr blk))
  )
       )
     )
   )
   (setvar "osmode" os)
   (princ)
)
;哪位高手帮忙看看这个程序错在了哪里？附件中有测试文件。

userzhl

(Defun c:tt ( / blk bnn bnx data ii scl sn ss ssi str)
(princ "\n 请选择图块 <退出>:")
(setq ss (ssget '((0 . "INSERT"))))
    (vlax-for BLK (vla-get-blocks
     (vla-get-activedocument (vla-get-objectname ss))
   );在此如何对已有选择对象SS进行判断呢？这里这样好像不行
     (vlax-for ss BLK
       (if (and (= (vla-get-objectname ss) "AcDbAttributeDefinition")
         (wcmatch (setq str (vla-get-promptstring ss))
    "标高*"
         )
    )
  (setq data (cons (cons (vla-get-name BLK)
           (read (vl-string-subst
            ""
            "标高_1:"
            str
          )
           )
     )
     data
      )
  )
       )
     )
   )
   (foreach blk data
     (setq bnn (car blk)
    bnn (if (= (substr bnn 1 1) "*")
   (strcat "`" bnn)
   bnn
        )
     )
     (if (null bnx)
       (setq bnx bnn)
       (setq bnx (strcat bnx "," bnn))
     )
   )
   (if (and (/= nil bnn) (setq ii -1))
(progn
(vl-cmdf "select" ss "")
(setq ssi (ssget "p" (list (cons 0 "INSERT") (cons 2 bnn))))
     (repeat (sslength ssi)
       (setq sn (ssname ssi (setq ii (1+ ii)))
      scl (cdr (assoc (cdr (assoc 2 (entget sn))) data))
       )
       (command "_.Scale"
         sn
         ""
         (cdr (assoc 10 (entget sn)))
         (/ 50.0 scl)
       )
     )
)
   )
   (princ)
)
我想要的是：对已有选择对象SS进行判断呢？

userzhluserzhl

哪位高手帮忙解决一下？急。