显隐一命令？

st788796 · 发表于 2013-8-30 21:04:59

(xdrx_entity_setvisible ss t)

Free-Lancer · 发表于 2013-8-30 21:38:13

(defun c:tt (/ ss)
(if (setq ss (ssget "x" '((60 . 1))))
(xdrx_entity_setvisible ss t)
)
(princ "\n选择要隐藏实体....")
(if (setq ss (ssget))
(xdrx_entity_setvisible ss nil)
)
(princ)
)

On_the_way · 发表于 2013-8-31 15:23:52

本帖最后由 On_the_way 于 2013-8-31 15:27 编辑

牢固发表于 2013-8-30 19:32
这个完全可以满足你的需求:

大侠还是没达到我想要的效果，我是要选择隐藏对象后，在运行就是显示刚刚隐藏的，在运行就是再次隐藏刚刚那个对象，就是选择后隐藏/显示/隐藏/显示/。。。。不断的切换，而不是选择隐藏/显示再选择隐藏/显示大侠的代码多了个选择的步骤. 如果想换个显示隐藏的对像就运行另外一个命令重新选择简单的说我就是要一个选择后，能够不断切换显示隐藏的lsp

牢固 · 发表于 2013-8-31 15:59:41

本帖最后由牢固于 2013-8-31 16:01 编辑

On_the_way 发表于 2013-8-31 15:23
大侠还是没达到我想要的效果，我是要选择隐藏对象后，在运行就是显示刚刚隐藏的，在运行就是再次隐藏刚 ...

要学会举一反三才会有进步，我给的代码作下简单修改即可实现：

;;隐藏或显示对象 By Gu_xl
(defun c:SSSH (/ DATA EN LAYERS LAYER OBJ LAYERSTAUS)
(vl-load-com)
(setq data (VLAX-LDATA-get "隐藏对象" "隐藏对象数据"))
(if data
(progn
(foreach hand data
(if (setq en (handent hand))
(progn
(setq layers
(vla-get-layers
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
)
(if (or (= :vlax-true
(vla-get-Lock
(setq
layer
(vla-item layers
(vla-get-layer
(setq obj (vlax-ename->vla-object en))
)
)
)
)
)
(= :vlax-true (vla-get-Freeze layer))
)
(progn (setq LayerStaus
(cons (list layer
(vla-get-Lock layer)
(vla-get-Freeze layer)
)
LayerStaus
)
) ;_ 保存图层状态
(vla-put-lock layer :vlax-false) ;_ 解锁
(vla-put-lock layer :vlax-false) ;_ 解冻
)
)
(if (equal :vlax-true (vla-get-Visible obj))
(vla-put-Visible obj :vlax-false) ;_ 隐藏
(vla-put-Visible obj :vlax-true) ;_ 显示
)
)
)
)
(if LayerStaus
(foreach la LayerStaus
(vla-put-lock (car la) (cadr la))
(vla-put-Freeze (car la) (caddr la))
)
)
)
;;否则创建隐藏对象
(progn
(princ "\n**选择要隐藏的对象**")
(setq ss (ssget))
(if ss
(progn
(setq
layers (vla-get-layers
(vla-get-ActiveDocument (vlax-get-acad-object))
)
)
(repeat (setq n (sslength ss))
(if (= :vlax-true
(vla-get-Lock
(setq layer
(vla-item layers
(vla-get-layer
(setq obj (vlax-ename->vla-object
(ssname ss (setq n (1- n)))
)
)
)
)
)
)
)
(progn (setq LayerStaus
(cons (list layer (vla-get-Lock layer))
LayerStaus
)
) ;_ 保存图层状态
(vla-put-lock layer :vlax-false) ;_ 解锁
)
)
(vla-put-Visible obj :vlax-false)
(setq data (cons (vla-get-Handle obj) data))
)
(VLAX-LDATA-PUT
"隐藏对象"
"隐藏对象数据"
(append (VLAX-LDATA-get "隐藏对象" "隐藏对象数据") Data)
)
;;恢复图层
(if LayerStaus
(foreach la LayerStaus (vla-put-lock (car la) (cadr la)))
)
)
)
)
)
(princ)
)
;;创建新的隐藏对象
(defun c:ssshn (/ DATA EN LAYERS LAYER OBJ LAYERSTAUS SS N)
(vl-load-com)
(setq data (VLAX-LDATA-get "隐藏对象" "隐藏对象数据"))
(if data
;;删除原隐藏对象
(progn
(foreach hand data
(if (setq en (handent hand))
(progn
(setq layers
(vla-get-layers
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
)
(if (or (= :vlax-true
(vla-get-Lock
(setq
layer
(vla-item layers
(vla-get-layer
(setq obj (vlax-ename->vla-object en))
)
)
)
)
)
(= :vlax-true (vla-get-Freeze layer))
)
(progn (setq LayerStaus
(cons (list layer
(vla-get-Lock layer)
(vla-get-Freeze layer)
)
LayerStaus
)
) ;_ 保存图层状态
(vla-put-lock layer :vlax-false) ;_ 解锁
(vla-put-lock layer :vlax-false) ;_ 解冻
)
)
(if (equal :vlax-false (vla-get-Visible obj))
(vla-put-Visible obj :vlax-true) ;_ 显示
)
)
)
)
(VLAX-LDATA-delete "隐藏对象" "隐藏对象数据")
(if LayerStaus
(foreach la LayerStaus
(vla-put-lock (car la) (cadr la))
(vla-put-Freeze (car la) (caddr la))
)
)
)
)
(setq data nil)
;;创建新的隐藏对象
(princ "\n**选择要隐藏的对象**")
(setq ss (ssget))
(if ss
(progn
(setq
layers (vla-get-layers
(vla-get-ActiveDocument (vlax-get-acad-object))
)
)
(repeat (setq n (sslength ss))
(if (= :vlax-true
(vla-get-Lock
(setq layer
(vla-item layers
(vla-get-layer
(setq obj (vlax-ename->vla-object
(ssname ss (setq n (1- n)))
)
)
)
)
)
)
)
(progn (setq LayerStaus
(cons (list layer (vla-get-Lock layer))
LayerStaus
)
) ;_ 保存图层状态
(vla-put-lock layer :vlax-false) ;_ 解锁
)
)
(vla-put-Visible obj :vlax-false)
(setq data (cons (vla-get-Handle obj) data))
)
(VLAX-LDATA-PUT
"隐藏对象"
"隐藏对象数据"
(append (VLAX-LDATA-get "隐藏对象" "隐藏对象数据") Data)
)
;;恢复图层
(if LayerStaus
(foreach la LayerStaus (vla-put-lock (car la) (cadr la)))
)
)
)
(princ)
)

;;隐藏或显示对象 By Gu_xl 
(defun c:SSSH (/ DATA EN LAYERS LAYER OBJ LAYERSTAUS) 
  (vl-load-com) 
  (setq data (VLAX-LDATA-get "隐藏对象" "隐藏对象数据")) 
  (if data 
    (progn 
      (foreach hand data 
  (if (setq en (handent hand)) 
    (progn 
      (setq layers 
       (vla-get-layers 
         (vla-get-ActiveDocument 
           (vlax-get-acad-object) 
         ) 
       ) 
      ) 
      (if  (or (= :vlax-true 
           (vla-get-Lock 
       (setq 
         layer 
          (vla-item layers 
 
              (vla-get-layer 
          (setq obj (vlax-ename->vla-object en)) 
              ) 
          ) 
       ) 
           ) 
        ) 
        (= :vlax-true (vla-get-Freeze layer)) 
    ) 
        (progn (setq LayerStaus 
          (cons (list  layer 
          (vla-get-Lock layer) 
          (vla-get-Freeze layer) 
          ) 
          LayerStaus 
          ) 
         ) ;_ 保存图层状态 
         (vla-put-lock layer :vlax-false) ;_ 解锁 
         (vla-put-lock layer :vlax-false) ;_ 解冻 
        ) 
      ) 
      (if  (equal :vlax-true (vla-get-Visible obj)) 
        (vla-put-Visible obj :vlax-false) ;_ 隐藏 
        (vla-put-Visible obj :vlax-true) ;_ 显示 
      ) 
    ) 
  ) 
      ) 
      (if LayerStaus 
  (foreach la LayerStaus 
    (vla-put-lock (car la) (cadr la)) 
    (vla-put-Freeze (car la) (caddr la)) 
  ) 
      ) 
    ) 
    ;;否则创建隐藏对象 
    (progn 
            (princ "\n**选择要隐藏的对象**") 
      (setq ss (ssget)) 
      (if ss 
  (progn 
    (setq 
      layers (vla-get-layers 
         (vla-get-ActiveDocument (vlax-get-acad-object)) 
       ) 
    ) 
    (repeat (setq n (sslength ss)) 
      (if  (= :vlax-true 
       (vla-get-Lock 
         (setq layer 
          (vla-item layers 
              (vla-get-layer 
          (setq obj (vlax-ename->vla-object 
                (ssname ss (setq n (1- n))) 
              ) 
          ) 
              ) 
          ) 
         ) 
       ) 
    ) 
        (progn (setq LayerStaus 
          (cons (list layer (vla-get-Lock layer)) 
          LayerStaus 
          ) 
         ) ;_ 保存图层状态 
         (vla-put-lock layer :vlax-false) ;_ 解锁 
        ) 
      ) 
      (vla-put-Visible obj :vlax-false) 
      (setq data (cons (vla-get-Handle obj) data)) 
    ) 
    (VLAX-LDATA-PUT 
      "隐藏对象" 
      "隐藏对象数据" 
      (append (VLAX-LDATA-get "隐藏对象" "隐藏对象数据") Data) 
    ) 
    ;;恢复图层 
    (if LayerStaus 
      (foreach la LayerStaus (vla-put-lock (car la) (cadr la))) 
    ) 
  ) 
      ) 
      ) 
  ) 
  (princ) 
) 
;;创建新的隐藏对象 
(defun c:ssshn (/ DATA EN LAYERS LAYER OBJ LAYERSTAUS SS N) 
  (vl-load-com) 
  (setq data (VLAX-LDATA-get "隐藏对象" "隐藏对象数据")) 
  (if data 
    ;;删除原隐藏对象 
    (progn 
      (foreach hand data 
  (if (setq en (handent hand)) 
    (progn 
      (setq layers 
       (vla-get-layers 
         (vla-get-ActiveDocument 
           (vlax-get-acad-object) 
         ) 
       ) 
      ) 
      (if  (or (= :vlax-true 
           (vla-get-Lock 
       (setq 
         layer 
          (vla-item layers 
 
              (vla-get-layer 
          (setq obj (vlax-ename->vla-object en)) 
              ) 
          ) 
       ) 
           ) 
        ) 
        (= :vlax-true (vla-get-Freeze layer)) 
    ) 
        (progn (setq LayerStaus 
          (cons (list  layer 
          (vla-get-Lock layer) 
          (vla-get-Freeze layer) 
          ) 
          LayerStaus 
          ) 
         ) ;_ 保存图层状态 
         (vla-put-lock layer :vlax-false) ;_ 解锁 
         (vla-put-lock layer :vlax-false) ;_ 解冻 
        ) 
      ) 
      (if  (equal :vlax-false (vla-get-Visible obj)) 
        (vla-put-Visible obj :vlax-true) ;_ 显示 
      ) 
    ) 
  ) 
      ) 
      (VLAX-LDATA-delete "隐藏对象" "隐藏对象数据") 
      (if LayerStaus 
  (foreach la LayerStaus 
    (vla-put-lock (car la) (cadr la)) 
    (vla-put-Freeze (car la) (caddr la)) 
  ) 
      ) 
    ) 
    ) 
  (setq data nil) 
  ;;创建新的隐藏对象 
      (princ "\n**选择要隐藏的对象**") 
      (setq ss (ssget)) 
      (if ss 
  (progn 
    (setq 
      layers (vla-get-layers 
         (vla-get-ActiveDocument (vlax-get-acad-object)) 
       ) 
    ) 
    (repeat (setq n (sslength ss)) 
      (if  (= :vlax-true 
       (vla-get-Lock 
         (setq layer 
          (vla-item layers 
              (vla-get-layer 
          (setq obj (vlax-ename->vla-object 
                (ssname ss (setq n (1- n))) 
              ) 
          ) 
              ) 
          ) 
         ) 
       ) 
    ) 
        (progn (setq LayerStaus 
          (cons (list layer (vla-get-Lock layer)) 
          LayerStaus 
          ) 
         ) ;_ 保存图层状态 
         (vla-put-lock layer :vlax-false) ;_ 解锁 
        ) 
      ) 
      (vla-put-Visible obj :vlax-false) 
      (setq data (cons (vla-get-Handle obj) data)) 
    ) 
    (VLAX-LDATA-PUT 
      "隐藏对象" 
      "隐藏对象数据" 
      (append (VLAX-LDATA-get "隐藏对象" "隐藏对象数据") Data) 
    ) 
    ;;恢复图层 
    (if LayerStaus 
      (foreach la LayerStaus (vla-put-lock (car la) (cadr la))) 
    ) 
  ) 
      ) 
  (princ) 
  )

Free-Lancer · 发表于 2013-8-31 16:20:02

(defun c:tt ()
(if **GlobleHidess**
(progn
(xdrx_entity_setvisible **GlobleHidess** **GlobleHidemod**)
(if **GlobleHidemod**
(setq **GlobleHidemod** nil)
(setq **GlobleHidemod** t)
)
)
(progn
(setq **GlobleHidess** (ssget))
(xdrx_entity_setvisible **GlobleHidess** **GlobleHidemod**)
(setq **GlobleHidemod** t)
)
)
(princ)
)

账号		自动登录	找回密码
密码			立即注册

[求助] 显隐一命令？