[讨论]：cad中如何编程实现将所选实体（不按层）隐藏，消隐？

梦断江南 · 发表于 2002-5-15 19:49:03

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

cad中如何编程实现将所选实体（不按层）隐藏，消隐？

liguojie · 发表于 2002-5-15 20:00:25

最初由梦断江南发布
cad中如何编程实现将所选实体（不按层）隐藏，消隐？

我的处理办法是根据所选择的实体所在的层创建新的临时层（在原层名前加前缀FRE_），然后把实体变到该层上，最后把该层冻结或关掉。恢复时在执行相反的操作。但由于恢复时无法选择到这些实体，所以只能一次把某一冻结层上的实体全部恢复转换回来。在我的asde软件中有两个命令：部分图快冻结，解冻所有图块命令及实现上述功能。

LUCAS · 发表于 2002-5-15 20:05:15

;;;---------------------------------------------------------------------------;
;;;
;;; BLANK.LSP Version 1.0
;;;
;;; Copyright (C) 1995 by Autodesk, Inc.
;;;
;;; Permission to use, copy, modify, and distribute this software and its
;;; documentation for any purpose and without fee is hereby granted.
;;;
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.
;;; ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
;;; MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;;---------------------------------------------------------------------------;
;;; BLANK, UNBLANK, and UNBLANKALL
;;;
;;; This module provides functions to manipulate the visibility field of
;;; AutoCAD objects. BLANK will make a selection set of objects invisible.
;;; UNBLANK will make a specified object (given its handle) visible.
;;; UNBLANKALL will make all blanked entities visible.
;;;
;;;---------------------------------------------------------------------------;
;;;---------------------------------------------------------------------------;
;;; Internal error handling.
;;;---------------------------------------------------------------------------;
(defun blank_error(s)
;; The strings in the following statements can be translated.
(if (/= s ;|MSG1|;"Function cancelled")
(princ (strcat ;|MSG2|;"\nBLANK Error: " s))
)
(setq *error* olderr)
(princ)
)
(defun unblank_error(s)
;; The strings in the following statements can be translated.
(if (/= s ;|MSG3|;"Function cancelled")
(princ (strcat ;|MSG3|;"\nUNBLANK Error: " s))
)
(setq *error* olderr)
(princ)
)
(defun blank60 (e / e2)
(if (not (null (assoc '60 e)))
(setq e2 (subst '(60 . 1) '(60 . 0) e))
(setq e2 (append e '((60 . 1))))
)
)
(defun show60 (e / e2)
(if (not (null (assoc '60 e)))
(setq e2 (subst '(60 . 0) '(60 . 1) e))
(setq e2 (append e '((60 . 0))))
)
)
(defun setvis ( vis ename / e)
(setq e (entget ename))
(if (eq vis 0)
(entmod (show60 e))
(entmod (blank60 e))
)
(entupd ename)
;; Blank vertices of polyline, if necessary
(if (eq (cdr (nth 1 e)) "POLYLINE")
(progn
(setq ename (entnext ename))
(setq e (entget ename))
(while (eq (cdr (nth 1 e)) "VERTEX")
(if (eq vis 0)
(entmod (show60 e))
(entmod (blank60 e))
)
(entupd ename)
(setq ename (entnext ename))
(setq e (entget ename))
) ; while
) ; progn
) ; if polyline
(if (and (eq (cdr (nth 1 e)) "INSERT")
(assoc '66 e))
(progn
(setq ename (entnext ename))
(setq e (entget ename))
(while (eq (cdr (nth 1 e)) "ATTRIB")
(if (eq vis 0)
(entmod (show60 e))
(entmod (blank60 e))
)
(entupd ename)
(setq ename (entnext ename))
(setq e (entget ename))
) ; while
) ; progn
)
)
(defun c:blank ( ) ;;; / olderr echo ss i ename )
(setq olderr *error* ; Redefine error handler.
echo (getvar ;|MSG0|;"cmdecho")
*error* blank_error)
(setvar ;|MSG0|;"cmdecho" 0) ; Turn off cmdecho sysvar
(command ;|MSG0|;"_.undo" ;|MSG0|;"_group")
(setq ss (ssget))
(setq i 0)
(while (< i (sslength ss)) (progn
(setq ename (ssname ss i))
(setvis 1 ename)
(setq i (1+ i))
))
(setq *error* old_error) ; restore error function
(command ;|MSG0|;"_.undo" ;|MSG0|;"_end")
(setvar ;|MSG0|;"cmdecho" echo) ; restore cmdecho sysvar
(princ) ; Quiet exit.
)
(defun c:unblankall ( ) ;;; / olderr echo ss i ename )
(setq olderr *error* ; Redefine error handler.
echo (getvar ;|MSG0|;"cmdecho")
*error* unblank_error)
(setvar ;|MSG0|;"cmdecho" 0) ; Turn off cmdecho sysvar
(command ;|MSG0|;"_.undo" ;|MSG0|;"_group")
;; Select all blanked entities
(setq ss (ssget ;|MSG0|;"_x" '((60 . 1))))
(if (not (null ss))
(progn
(setq i 0)
(princ (sslength ss))
(princ " blanked entities found.\n");
;; Unblank each entity in the set
(while (< i (sslength ss)) (progn
(setq ename (ssname ss i))
(setvis 0 ename)
(setq i (1+ i))
))
)
(princ "\n0 blanked entities found.\n");
)
(setq *error* old_error) ; restore error function
(command ;|MSG0|;"_.undo" ;|MSG0|;"_end")
(setvar ;|MSG0|;"cmdecho" echo) ; restore cmdecho sysvar
(princ) ; Quiet exit.
)
(defun c:unblank ( ) ;;; / olderr echo ss i ename hand )
(setq olderr *error* ; Redefine error handler.
echo (getvar ;|MSG0|;"cmdecho")
*error* unblank_error)
(setvar ;|MSG0|;"cmdecho" 0) ; Turn off cmdecho sysvar
(command ;|MSG0|;"_.undo" ;|MSG0|;"_group")
(setq hand (getstring ;|MSG5|;"\nEnter handle of entity to be unblanked: "))
;; Unblank the entity if handle is not an empty string
(if (> (strlen hand) 0)
(progn
(setq ename (handent hand))
(if (/= nil ename)
(setvis 0 ename)
(princ ;|MSG6|;"Invalid handle.")
)
)
)
(setq *error* old_error) ; restore error function
(command ;|MSG0|;"_.undo" ;|MSG0|;"_end")
(setvar ;|MSG0|;"cmdecho" echo) ; restore cmdecho sysvar
(princ) ; Quiet exit.
)
(princ)

;;;---------------------------------------------------------------------------; 
;;; 
;;;   BLANK.LSP   Version 1.0 
;;; 
;;;   Copyright (C) 1995 by Autodesk, Inc. 
;;; 
;;;   Permission to use, copy, modify, and distribute this software and its 
;;;   documentation for any purpose and without fee is hereby granted. 
;;; 
;;;   THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY. 
;;;   ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF 
;;;   MERCHANTABILITY ARE HEREBY DISCLAIMED. 
;;; 
;;;---------------------------------------------------------------------------; 
;;;   BLANK, UNBLANK, and UNBLANKALL 
;;; 
;;;   This module provides functions to manipulate the visibility field of 
;;;   AutoCAD objects.  BLANK will make a selection set of objects invisible. 
;;;   UNBLANK will make a specified object (given its handle) visible. 
;;;   UNBLANKALL will make all blanked entities visible. 
;;; 
;;;---------------------------------------------------------------------------; 
 
 
;;;---------------------------------------------------------------------------; 
;;; Internal error handling. 
;;;---------------------------------------------------------------------------; 
(defun blank_error(s) 
  ;; The strings in the following statements can be translated. 
  (if (/= s ;|MSG1|;"Function cancelled") 
    (princ (strcat ;|MSG2|;"\nBLANK Error: " s)) 
  ) 
  (setq *error* olderr) 
  (princ) 
) 
 
(defun unblank_error(s) 
  ;; The strings in the following statements can be translated. 
  (if (/= s ;|MSG3|;"Function cancelled") 
    (princ (strcat ;|MSG3|;"\nUNBLANK Error: " s)) 
  ) 
  (setq *error* olderr) 
  (princ) 
) 
 
(defun blank60 (e / e2) 
  (if (not (null (assoc '60 e))) 
    (setq e2 (subst '(60 . 1) '(60 . 0) e)) 
    (setq e2 (append e '((60 . 1)))) 
  ) 
)    
 
(defun show60 (e / e2) 
  (if (not (null (assoc '60 e))) 
     (setq e2 (subst '(60 . 0) '(60 . 1) e)) 
     (setq e2 (append e '((60 . 0)))) 
  ) 
) 
 
(defun setvis ( vis ename / e) 
  (setq e (entget ename)) 
  (if (eq vis 0) 
     (entmod (show60 e)) 
     (entmod (blank60 e)) 
  ) 
  (entupd ename) 
  ;; Blank vertices of polyline, if necessary 
  (if (eq (cdr (nth 1 e)) "POLYLINE") 
    (progn 
      (setq ename (entnext ename)) 
      (setq e (entget ename)) 
      (while (eq (cdr (nth 1 e)) "VERTEX") 
        (if (eq vis 0) 
           (entmod (show60 e)) 
           (entmod (blank60 e)) 
        ) 
        (entupd ename) 
        (setq ename (entnext ename)) 
        (setq e (entget ename)) 
      ) ; while 
    ) ; progn 
  ) ; if polyline 
  (if (and (eq (cdr (nth 1 e)) "INSERT") 
           (assoc '66 e)) 
    (progn 
      (setq ename (entnext ename)) 
      (setq e (entget ename)) 
      (while (eq (cdr (nth 1 e)) "ATTRIB") 
        (if (eq vis 0) 
           (entmod (show60 e)) 
           (entmod (blank60 e)) 
        ) 
        (entupd ename) 
        (setq ename (entnext ename)) 
        (setq e (entget ename)) 
      ) ; while 
    ) ; progn 
  ) 
) 
 
(defun c:blank ( ) ;;; / olderr echo ss i ename ) 
  (setq olderr *error*                ; Redefine error handler. 
        echo (getvar ;|MSG0|;"cmdecho") 
        *error* blank_error) 
  (setvar ;|MSG0|;"cmdecho" 0)                ; Turn off cmdecho sysvar 
  (command ;|MSG0|;"_.undo" ;|MSG0|;"_group") 
 
  (setq ss (ssget)) 
  (setq i 0) 
  (while (
     (setq ename (ssname ss i)) 
     (setvis 1 ename) 
     (setq i (1+ i)) 
  )) 
 
  (setq *error* old_error)            ; restore error function 
  (command ;|MSG0|;"_.undo" ;|MSG0|;"_end") 
  (setvar ;|MSG0|;"cmdecho" echo)             ; restore cmdecho sysvar 
  (princ)                             ; Quiet exit. 
) 
 
(defun c:unblankall ( ) ;;; / olderr echo ss i ename ) 
  (setq olderr *error*                ; Redefine error handler. 
        echo (getvar ;|MSG0|;"cmdecho") 
        *error* unblank_error) 
  (setvar ;|MSG0|;"cmdecho" 0)                ; Turn off cmdecho sysvar 
  (command ;|MSG0|;"_.undo" ;|MSG0|;"_group") 
 
  ;; Select all blanked entities 
  (setq ss (ssget ;|MSG0|;"_x" '((60 . 1)))) 
  (if (not (null ss)) 
    (progn 
      (setq i 0) 
      (princ (sslength ss)) 
      (princ " blanked entities found.\n"); 
      ;; Unblank each entity in the set 
      (while (
         (setq ename (ssname ss i)) 
         (setvis 0 ename) 
         (setq i (1+ i)) 
      )) 
    )    
    (princ "\n0 blanked entities found.\n"); 
  ) 
 
  (setq *error* old_error)            ; restore error function 
  (command ;|MSG0|;"_.undo" ;|MSG0|;"_end") 
  (setvar ;|MSG0|;"cmdecho" echo)             ; restore cmdecho sysvar 
  (princ)                             ; Quiet exit. 
) 
 
(defun c:unblank ( ) ;;; / olderr echo ss i ename hand ) 
  (setq olderr *error*                ; Redefine error handler. 
        echo (getvar ;|MSG0|;"cmdecho") 
        *error* unblank_error) 
  (setvar ;|MSG0|;"cmdecho" 0)                ; Turn off cmdecho sysvar 
  (command ;|MSG0|;"_.undo" ;|MSG0|;"_group") 
 
  (setq hand (getstring ;|MSG5|;"\nEnter handle of entity to be unblanked: ")) 
  ;; Unblank the entity if handle is not an empty string 
  (if (> (strlen hand) 0) 
    (progn 
      (setq ename (handent hand)) 
      (if (/= nil ename) 
        (setvis 0 ename) 
        (princ ;|MSG6|;"Invalid handle.") 
      ) 
    ) 
  ) 
 
  (setq *error* old_error)            ; restore error function 
  (command ;|MSG0|;"_.undo" ;|MSG0|;"_end") 
  (setvar ;|MSG0|;"cmdecho" echo)             ; restore cmdecho sysvar 
  (princ)                             ; Quiet exit. 
) 
(princ)

XDSoft · 发表于 2002-5-15 20:33:35

最初由梦断江南发布
[B]cad中如何编程实现将所选实体（不按层）隐藏，消隐？ [/B]

晓东工具箱－对象工具箱下已经有了：隐藏实体和取消隐藏两个命令。

[FONT=courier new]
1、LISP方法：
给实体加组码 60 ＝1
默认情况下没有60组码，因此要加入'(60 . 1)
恢复的时候，把组码60＝0 即可，LISP会自动从实体数据里面去掉60组码。
2、ARX方法（使用AcDbEntity类自身的方法）
pEnt->setVisibility(....)
3、XDRX_API方法：
两种：
a、xdrx_entity_visible (可以对选择集操作，使用ARX方法)
功能：设置一个实体的可见性
调用格式：(xdrx_entity_visible <实体或者选择集> [可见标记])
b、xdrx_modent 修改60组码
(xdrx_setenttodb ent)
(xdrx_modent 60 1)
[/FONT]

复制代码

playboy · 发表于 2003-12-11 13:49:10

(entget (car (entsel)))能够去出组码可是如何将(60 . 1)加入进去呀

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

[讨论]：cad中如何编程实现将所选实体（不按层）隐藏，消隐？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [讨论]：cad中如何编程实现将所选实体（不按层）隐藏，消隐？

Re: [讨论]：cad中如何编程实现将所选实体（不按层）隐藏，消隐？

浏览过的版块