[求助]我需要个隐藏或显示属性块属性的LISP，哪位能帮我一下？

龙龙仔

(defun C:HIDEATTS (/               SHOW_HIDE   TOGGLE_ID   BLOCK_SSET
                   N               BSS_LEN           AQ               VLA_ATT2FIX
                  )
  (command "_.undo" "group")
  (initget "S H")
  (setq SHOW_HIDE (getkword "\nShow(S) or Hide all attributes?<H>: "))
  (if (= SHOW_HIDE "S")
    (setq SHOW_HIDE 1
          TOGGLE_ID "Showed"
          BLOCK_SSET
           (ssget ; "X"
             (list (cons 0 "INSERT")
                   (cons 66 1)
                   (cons 410 (getvar "ctab"))
             )
           )
    )
    (setq SHOW_HIDE 0
          TOGGLE_ID "Hid"
          BLOCK_SSET
           (ssget ; "X"
             (list (cons 0 "INSERT")
                   (cons 66 1)
                   (cons 410 (getvar "ctab"))
             )
           )
    )
  )
  (setq        N        0
        AQ        0
        BSS_LEN        (sslength BLOCK_SSET)
  )
  (repeat BSS_LEN
    (setq VLA-ATT2FIX (ssname BLOCK_SSET N))
    (while (and        (setq VLA-ATT2FIX (entnext VLA-ATT2FIX))
                (= "ATTRIB" (cdr (assoc 0 (entget VLA-ATT2FIX))))
           )
      (setq AQ (1+ AQ))
      (vlax-put-property
        (vlax-ename->vla-object VLA-ATT2FIX)
        'VISIBLE
        SHOW_HIDE
      )
    )

    ;|
    (setq VLA-ATT2FIX (vlax-ename->vla-object (ssname BLOCK_SSET N)))
    (mapcar
      '(lambda (NN)
         (setq AQ (1+ AQ))
         (vlax-put-property NN 'VISIBLE SHOW_HIDE)
       )
      (vlax-safearray->list
        (vlax-variant-value
          (vla-getattributes
            VLA-ATT2FIX
          )
        )
      )
    )|;

    (setq N (1+ N))
  )
  (prompt (strcat TOGGLE_ID
                  " "
                  (rtos AQ)
                  " attributes in "
                  (rtos BSS_LEN)
                  " blocks..."
          )
  )
  (command "_.undo" "end")
  (princ)
)

yybu

龙龙仔版主 ：

能不能把上面的程序改一下，使他能在R2005，06下使用啊！