各位请教切换属性锁定不执行

maiko

以下是代码,
(defun c:attt ( / idx ins obj scl sel )
  (if (setq sel (ssget "_" '((0 . "INSERT") (66 . 1))))
    (repeat (setq idx (sslength sel))
      (setq obj (vlax-ename->vla-object (ssname sel (setq idx (1- idx)))))
      (if (and (vlax-property-available-p obj 'hasattributes)(= (vla-get-hasattributes obj) :vlax-true))
        (foreach att (vlax-safearray->list (vlax-variant-value (vla-getattributes obj)))
          (if (eq "AcDbAttribute" (vla-get-objectname att))
            (if (eq :vlax-true (vla-get-lockposition att))
              (vla-put-lockposition att :vlax-false)
              (vla-put-lockposition att :vlax-true)
            )
          )
        )
      )
    )
  )
  (princ)
)