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

dwgplt · 发表于 2002-11-19 11:47:00

(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?: "))
  (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)
)

龙龙仔 · 发表于 2002-11-20 07:57:00

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

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

发表回复

精选推荐