[求助]：关于实体显示方式的控制

Qlin · 发表于 2002-9-27 22:51:44

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

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

×

能否在AutoCAD实现这样的功能：
除了当前选择的实体以外，其它实体全部
以灰色显示并且锁定，在完成需要的操作
后，又能方便地回到以前的显示状态。

Qlin · 发表于 2002-9-27 22:56:38

补充一下，
按我的设想，这个操作是基于实体的控制，
而不仅仅控制层的显示。

XDSoft · 发表于 2002-9-27 23:04:11

最初由 Qlin 发布
[B]补充一下，
按我的设想，这个操作是基于实体的控制，
而不仅仅控制层的显示。 [/B]

为什么非得变灰呢，隐藏不显示不可以吗？

如果变灰，那么把数据库除去选择实体构建选择集，遍历循环，修改实体颜色。处理完毕后，在遍历刚才选择集，颜色变换回去。

cy956 · 发表于 2002-9-27 23:12:14

这样就没什么意义，想想历遍实体得花多少时间，还得用各种方式记下
这个实体的原始状态，最后再历遍再改回去，非把人逼疯了不可。

e2002 · 发表于 2002-9-27 23:43:29

不知道你说是不是类似,命令 InPlace Reference Edit 的这种方式?

如果是,那么应该是可以的

Qlin · 发表于 2002-9-28 00:49:13

是这样的，我建三维模型时，线条太多看着很费神，
但又不想隐藏其它物体不显示，因为还要靠它们参考
定位。参考MAX和VIZ的物体冻结方式，故而有这个设想。

如果仅仅是隐藏物体，有一个叫做clearview的Freeware
可以做得很好。

XDSoft · 发表于 2002-9-28 01:40:52

最初由 Qlin 发布
[B]是这样的，我建三维模型时，线条太多看着很费神，
但又不想隐藏其它物体不显示，因为还要靠它们参考
定位。参考MAX和VIZ的物体冻结方式，故而有这个设想。

如果仅仅是隐藏物体，有一个叫做clearview的Freeware
... [/B]

只能遍历实体修改到一个“锁定层”上，这个层的颜色用9号色。遍历同时，增加扩展数据（原层名）到实体上。

你的操作完毕后，在遍历一次，修改那个“锁定层”的所有实体改到实体内保存的“扩展数据”的层上。如果实体数量不是非常多，那么速度应该还是很快的。

给你写了两个命令，你可以测试下效果（请在晓东工具箱环境下执行）

[FONT=courier new]
;|
把选择实体外的其他所有实体变灰，加锁
|;
(defun c:test1 (/ ss ss1 lyr)
(if (setq ss (ssget))
(progn
(xdrx_begin)
(setq ss1 (xdrx_Pickset_Subtract (ssget "x") ss))
(setq lyr (xdrx_getlyrname "锁定"))
(xdrx_begin "锁定")
(xdrx_setenttodb (xdrx_object_get "layer" lyr))
(xdrx_modent 70 4 62 9)
(xdrx_setsstodb ss1 0)
(while (setq e (xdrx_getentdata 0))
(xdrx_setxdata e "XDTB_LYR_NAME" (xdrx_getentdxf 8))
(xdrx_modent 8 lyr)
)
(xdrx_end)
)
)
(princ)
)
;|
恢复状态
|;
(defun c:test2 (/ ss e lyr)
(if (setq ss (ssget "x" (list (cons 8 (setq lyr(xdrx_getlyrname "锁定"))))))
(progn
(xdrx_setsstodb (xdrx_object_get "layer" lyr))
(xdrx_modent 70 0)
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(if (setq lyr (xdrx_getxdata e "XDTB_LYR_NAME"))
(progn
(xdrx_modent 8 (car lyr))
(xdrx_object_removexdata e "XDTB_LYR_NAME")
)
)
)
)
)
(princ)
)
[/FONT]

[FONT=courier new] 
;| 
   把选择实体外的其他所有实体变灰，加锁 
|; 
(defun c:test1 (/ ss ss1 lyr) 
  (if (setq ss (ssget)) 
    (progn 
       (xdrx_begin) 
       (setq ss1 (xdrx_Pickset_Subtract (ssget "x") ss)) 
       (setq lyr (xdrx_getlyrname "锁定")) 
       (xdrx_begin "锁定") 
       (xdrx_setenttodb (xdrx_object_get "layer" lyr)) 
       (xdrx_modent 70 4 62 9) 
       (xdrx_setsstodb ss1 0) 
       (while (setq e (xdrx_getentdata 0)) 
         (xdrx_setxdata e "XDTB_LYR_NAME" (xdrx_getentdxf 8)) 
         (xdrx_modent 8 lyr) 
       ) 
       (xdrx_end) 
    ) 
  ) 
  (princ) 
) 
;| 
   恢复状态 
|; 
(defun c:test2 (/ ss e lyr) 
  (if (setq ss (ssget "x" (list (cons 8 (setq lyr(xdrx_getlyrname "锁定")))))) 
    (progn 
      (xdrx_setsstodb (xdrx_object_get "layer" lyr)) 
      (xdrx_modent 70 0) 
      (xdrx_setsstodb ss 0) 
      (while (setq e (xdrx_getentdata 0)) 
        (if (setq lyr (xdrx_getxdata e "XDTB_LYR_NAME")) 
          (progn 
            (xdrx_modent 8 (car lyr)) 
            (xdrx_object_removexdata e "XDTB_LYR_NAME") 
          ) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
) 
[/FONT]

XDSoft · 发表于 2002-9-28 02:19:08

[FONT=courier new]
;|
命令：XDTB_LayerIso
功能：选层保留(孤立)，其他层锁定变灰色
|;
(defun c:XDTB_LayerIso (/ e lyr lyrl)
(if (setq e (xdrx_entsel "\n拾取要保留图层上的实体<退出>:"))
(progn
(setq lyr (xdrx_getentdxf 8))
(xdrx_object_get "layer")
(while (setq e (xdrx_object_next))
(if (/= (car e) lyr)
(progn
(if (not (xdrx_getxdata (last e) "XDTB_LYR_COLOR"))
(progn
(xdrx_setxdata (last e) "XDTB_LYR_COLOR"
(xdrx_getentdxf 62) (xdrx_getentdxf 70)
)
(xdrx_modent 62 251 70 4)
)
)
)
(progn
(if (setq clr (xdrx_getxdata (last e) "XDTB_LYR_COLOR"))
(progn
(xdrx_modent 62 (car clr) 70 (cadr clr))
(xdrx_object_removexdata (last e) "XDTB_LYR_COLOR")
)
)
)
)
)
)
)
(princ)
)
;|
命令：XDTB_LayerRes
恢复选层保留到原来状态
|;
(defun c:XDTB_LayerRes (/ e clr)
(xdrx_object_get "layer")
(while (setq e (xdrx_object_next))
(setq e (cadr e))
(if (setq clr (xdrx_getxdata e "XDTB_LYR_COLOR"))
(progn
(xdrx_modent 62 (car clr) 70 (cadr clr))
(xdrx_object_removexdata e "XDTB_LYR_COLOR")
)
)
)
(princ)
)
[/FONT]

[FONT=courier new] 
;| 
   命令：XDTB_LayerIso 
   功能：选层保留(孤立)，其他层锁定变灰色 
|; 
(defun c:XDTB_LayerIso (/ e lyr lyrl) 
  (if (setq e (xdrx_entsel "\n拾取要保留图层上的实体<退出>:")) 
    (progn 
      (setq lyr (xdrx_getentdxf 8)) 
      (xdrx_object_get "layer") 
      (while (setq e (xdrx_object_next)) 
        (if (/= (car e) lyr) 
          (progn 
            (if (not (xdrx_getxdata (last e) "XDTB_LYR_COLOR")) 
              (progn 
                (xdrx_setxdata (last e) "XDTB_LYR_COLOR" 
                               (xdrx_getentdxf 62) (xdrx_getentdxf 70) 
                ) 
                (xdrx_modent 62 251 70 4) 
              ) 
            ) 
          ) 
          (progn 
            (if (setq clr (xdrx_getxdata (last e) "XDTB_LYR_COLOR")) 
              (progn 
                (xdrx_modent 62 (car clr) 70 (cadr clr)) 
                (xdrx_object_removexdata (last e) "XDTB_LYR_COLOR") 
              ) 
            ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
) 
;| 
   命令：XDTB_LayerRes 
   恢复选层保留到原来状态 
|; 
(defun c:XDTB_LayerRes (/ e clr) 
  (xdrx_object_get "layer") 
  (while (setq e (xdrx_object_next)) 
    (setq e (cadr e)) 
    (if (setq clr (xdrx_getxdata e "XDTB_LYR_COLOR")) 
      (progn 
        (xdrx_modent 62 (car clr) 70 (cadr clr)) 
        (xdrx_object_removexdata e "XDTB_LYR_COLOR") 
      ) 
    ) 
  ) 
  (princ) 
) 
[/FONT]

eachy · 发表于 2002-9-28 02:20:27

这样作没意义，如果图很大，Regen一次需要多少时间？而且图中有Block的话，变灰再考虑块内实体，还有实用意义吗。

XDSoft · 发表于 2002-9-28 03:37:10

实际应用中，第一种方案，不可行，测试了一张图，等了两分钟也没有完毕。

推荐使用第二种方案，“图层孤立”，速度不到0.0001秒。

下载地址：http://www.xdcad.net/tech/layerIso.swf

<embed src=http://www.xdcad.net/tech/layerIso.swf quality=high width=532 height=482 loop=true type="application/x-shockwave-flash">
</embed>

e2002 · 发表于 2002-9-28 11:14:35

很好！

改进建议:
合并这两个命令并提供多选对象图层隔离的选项:
[code]
(defun c:XDTB_LayerIso (/ e lyr lyrl)
 ...
 (while bLoop
 (setq e (xdrx_entsel "\n拾取要保留图层上的实体或[恢复图层状态(R)多选对象隔离(S)] <退出>: "))
.......

:

Qlin · 发表于 2002-9-28 20:47:11

“孤立图层”真的很方便，看来通过图层控制也是很有效率的方式，十分感谢！

要说这种方式有什么美中不足，当实体颜色不是bylayer设置时，便不受本
程序的控制，当然对于有良好绘图习惯的人来说，这并不会有什么大的影响。

XDSoft · 发表于 2002-9-28 21:30:31

最初由 Qlin 发布
[B]“孤立图层”真的很方便，看来通过图层控制也是很有效率的方式，十分感谢！

要说这种方式有什么美中不足，当实体颜色不是bylayer设置时，便不受本
程序的控制，当然对于有良好绘图习惯的人来说，这并不会有什么?.. [/B]

我想这个问题关键的还是“锁定”，颜色不重要，大多变灰色就可以了。锁定的你选不上，不会有不需要的实体误选的。

XDSoft · 发表于 2002-9-28 21:32:22

最初由 e2002 发布
[B]很好！

改进建议:
合并这两个命令并提供多选对象图层隔离的选项:
[/B]

已经修改为可以多选了，见下面的程序：

[FONT=courier new]
;|
命令：XDTB_LayerIso
功能：选层保留(孤立)，其他层锁定变灰色,支持多选
|;
(defun c:XDTB_LayerIso (/ e lyr lyrl clr)
(while (setq e (xdrx_entsel "\n拾取要保留图层上的实体<结束>:"))
(setq lyr (xdrx_getentdxf 8))
(if (not (member lyr lyrl))
(progn
(setq lyrl (cons lyr lyrl))
($XDLSP_Pickset_Redraw (ssget "x" (list (cons 8 lyr))) 3)
(prompt (strcat "\n选中了"" (setq sLyrl (xdrx_String_Join
(reverse lyrl)
","
)
)
""层!"
)
)
)
)
)
(if lyrl
(progn
(xdrx_object_get "layer")
(while (setq e (xdrx_object_next))
(if (not (wcmatch (car e) sLyrl))
(progn
(if (not (xdrx_getxdata (last e) "XDTB_LYR_COLOR"))
(progn
(xdrx_setxdata (last e) "XDTB_LYR_COLOR"
(xdrx_getentdxf 62) (xdrx_getentdxf 70)
)
(xdrx_modent 62 251 70 4)
)
)
)
(progn
(if (setq clr (xdrx_getxdata (last e) "XDTB_LYR_COLOR"))
(progn
(xdrx_modent 62 (car clr) 70 (cadr clr))
(xdrx_object_removexdata (last e) "XDTB_LYR_COLOR")
)
)
)
)
)
($XDLSP_Pickset_Redraw (ssget "x" (list (cons 8 sLyrl))) 4)
)
)
(princ)
)[/FONT]

[FONT=courier new] 
;| 
   命令：XDTB_LayerIso 
   功能：选层保留(孤立)，其他层锁定变灰色,支持多选 
|; 
(defun c:XDTB_LayerIso (/ e lyr lyrl clr) 
  (while (setq e (xdrx_entsel "\n拾取要保留图层上的实体<结束>:")) 
    (setq lyr (xdrx_getentdxf 8)) 
    (if (not (member lyr lyrl)) 
      (progn 
        (setq lyrl (cons lyr lyrl)) 
        ($XDLSP_Pickset_Redraw (ssget "x" (list (cons 8 lyr))) 3) 
        (prompt (strcat "\n选中了"" (setq sLyrl (xdrx_String_Join 
                                                                   (reverse lyrl) 
                                                                   "," 
                                                 ) 
                                     ) 
                        ""层!" 
                ) 
        ) 
      ) 
    ) 
  ) 
  (if lyrl 
    (progn 
      (xdrx_object_get "layer") 
      (while (setq e (xdrx_object_next)) 
        (if (not (wcmatch (car e) sLyrl)) 
          (progn 
            (if (not (xdrx_getxdata (last e) "XDTB_LYR_COLOR")) 
              (progn 
                (xdrx_setxdata (last e) "XDTB_LYR_COLOR" 
                               (xdrx_getentdxf 62) (xdrx_getentdxf 70) 
                ) 
                (xdrx_modent 62 251 70 4) 
              ) 
            ) 
          ) 
          (progn 
            (if (setq clr (xdrx_getxdata (last e) "XDTB_LYR_COLOR")) 
              (progn 
                (xdrx_modent 62 (car clr) 70 (cadr clr)) 
                (xdrx_object_removexdata (last e) "XDTB_LYR_COLOR") 
              ) 
            ) 
          ) 
        ) 
      ) 
              ($XDLSP_Pickset_Redraw (ssget "x" (list (cons 8 sLyrl))) 4) 
 
    ) 
  ) 
  (princ) 
)[/FONT]

Qlin · 发表于 2002-10-9 00:46:57

晓东的程序（特别是开发库）真的很好!
假期有点空，受到各位的鼓励，我也重新拣起放了几年的autolisp，
试着在用户界面上作了些修改：
1、合并锁定与恢复命令
2、可以多选(这个晓东已经做好了，这几天联不上论坛，没看见)
3、加了个对话框界面，可以直接选层名

源程序如下：

[FONT=courier new]
;|
命令：XLAY
功能：选层保留(孤立)，其他层锁定变灰色
|;
(defun c:XLAY (/ e lyr lyrl ly_lst ent_lst)
(initget "Restore Dialog")
(setq e (xdrx_entsel "\n拾取要保留图层上的实体或[对话框选层(D)/恢复图层状态(R)] <退出>: "))
(cond
;执行恢复操作
((= e "Restore")(setq e nil)(XDTB_LayerRes))
;执行对话框选层
((= e "Dialog")
(setq e nil)
(setq ly_lst (XLAY_MSELECT_LST "选择要保留的图层" (XLAY_TB_LIST "LAYER")))
)
;构造多选物体层名表
(T
(while e
(redraw (car e) 3)
(setq ent_lst (cons (car e) ent_lst))
(setq lyr (xdrx_getentdxf 8))
(if (not (member lyr ly_lst))
(setq ly_lst (cons lyr ly_lst))
)
(setq e (xdrx_entsel "\n拾取要保留图层上的实体: "))
);while
(mapcar '(lambda (x)(redraw x 4)) ent_lst)
);T
);cond
(if ly_lst
(progn
(xdrx_object_get "layer")
(while (setq e (xdrx_object_next))
(if (member (car e) ly_lst)
(progn
(if (setq clr (xdrx_getxdata (last e) "XDTB_LYR_COLOR"))
(progn
(xdrx_modent 62 (car clr) 70 (cadr clr))
(xdrx_object_removexdata (last e) "XDTB_LYR_COLOR")
)
);if
);progn
(progn
(if (not (xdrx_getxdata (last e) "XDTB_LYR_COLOR"))
(progn
(xdrx_setxdata (last e) "XDTB_LYR_COLOR"
(xdrx_getentdxf 62) (xdrx_getentdxf 70)
)
(xdrx_modent 62 251 70 4)
)
)
)
)
)
)
)
(princ)
)
;|
函数：XDTB_LayerRes
恢复选层保留到原来状态
|;
(defun XDTB_LayerRes (/ e clr)
(xdrx_object_get "layer")
(while (setq e (xdrx_object_next))
(setq e (cadr e))
(if (setq clr (xdrx_getxdata e "XDTB_LYR_COLOR"))
(progn
(xdrx_modent 62 (car clr) 70 (cadr clr))
(xdrx_object_removexdata e "XDTB_LYR_COLOR")
)
)
)
)
;----------------- XLAY_MSELECT_LST -------------------
;Select multi lines at string list with dialog
; {var} str_t -- title text string
; {var} lst1 -- list to be selected in list box
; {Return} selected string list
; {DCL} [qaec_mselelist] dialog need.
;-----------------------------------------------------
(defun XLAY_MSELECT_LST (str_t lst1 / count item out_str n rt num d_id lst_out)
(setq d_id (load_dialog "xl"))
(if (not d_id)(alert "无法加载对话框文件"))
(if d_id
(if (new_dialog "qaec_mselelist" d_id)
(progn
(mode_tile "bk2_ok" 1)
(set_tile "bk2_txt1" str_t)
;;;fill the list
(start_list "bk2_list1")
(foreach n lst1
(add_list n)
)
(end_list)
(action_tile "bk2_list1" "(setq num $value)(mode_tile "bk2_ok" 0)")
(action_tile "bk2_ok" "(done_dialog 1)")
(setq rt (start_dialog))
(if (= rt 1) (progn
(while (setq item (read num))
(setq count (strlen (itoa item))
count (1+ count)
lst_out (cons (nth item lst1) lst_out)
);setq
(while (and (= " " (substr num count 1))
(substr num count 1))
(setq count (1+ count))
);while
(setq num (substr num count))
);while
));if
);progn
(alert "找不到对话框定义")
));if
(return lst_out)
)
(defun XLAY_TB_LIST (typ / count b_nam lst_out)
(setq count 1)
(if (member typ '( "LAYER" "BLOCK" "VIEW" "STYLE"
"APPID" "DIMSTYLE" "UCS" "VPORT"))
(while (setq b_nam (tblnext typ count))
(setq count nil)
(setq lst_out (cons (cdr (assoc 2 b_nam)) lst_out))
)
);if
(if lst_out
(setq lst_out (reverse lst_out))
(setq lst_out nil)
)
)[/FONT]

[FONT=courier new] 
;| 
   命令：XLAY 
   功能：选层保留(孤立)，其他层锁定变灰色 
|; 
(defun c:XLAY (/ e lyr lyrl ly_lst ent_lst) 
  (initget "Restore Dialog") 
  (setq e (xdrx_entsel "\n拾取要保留图层上的实体或[对话框选层(D)/恢复图层状态(R)] <退出>: ")) 
  (cond 
    ;执行恢复操作 
  ((= e "Restore")(setq e nil)(XDTB_LayerRes)) 
    ;执行对话框选层 
  ((= e "Dialog") 
     (setq e nil) 
     (setq ly_lst (XLAY_MSELECT_LST "选择要保留的图层" (XLAY_TB_LIST "LAYER"))) 
    ) 
    ;构造多选物体层名表 
  (T 
      (while e 
        (redraw (car e) 3) 
        (setq ent_lst (cons (car e) ent_lst)) 
        (setq lyr (xdrx_getentdxf 8)) 
        (if (not (member lyr ly_lst)) 
          (setq ly_lst (cons lyr ly_lst)) 
        ) 
        (setq e (xdrx_entsel "\n拾取要保留图层上的实体: ")) 
      );while 
      (mapcar '(lambda (x)(redraw x 4)) ent_lst) 
    );T 
  );cond 
   
  (if ly_lst 
    (progn 
      (xdrx_object_get "layer") 
      (while (setq e (xdrx_object_next)) 
      (if (member (car e) ly_lst) 
        (progn 
          (if (setq clr (xdrx_getxdata (last e) "XDTB_LYR_COLOR")) 
            (progn 
            (xdrx_modent 62 (car clr) 70 (cadr clr)) 
            (xdrx_object_removexdata (last e) "XDTB_LYR_COLOR") 
            ) 
          );if 
        );progn 
        (progn 
          (if (not (xdrx_getxdata (last e) "XDTB_LYR_COLOR")) 
            (progn 
            (xdrx_setxdata (last e) "XDTB_LYR_COLOR" 
            (xdrx_getentdxf 62) (xdrx_getentdxf 70) 
            ) 
            (xdrx_modent 62 251 70 4) 
            ) 
          ) 
        ) 
      ) 
      ) 
    ) 
  ) 
  (princ) 
) 
 
;| 
   函数：XDTB_LayerRes 
   恢复选层保留到原来状态 
|; 
(defun XDTB_LayerRes (/ e clr) 
  (xdrx_object_get "layer") 
  (while (setq e (xdrx_object_next)) 
    (setq e (cadr e)) 
    (if (setq clr (xdrx_getxdata e "XDTB_LYR_COLOR")) 
      (progn 
  (xdrx_modent 62 (car clr) 70 (cadr clr)) 
  (xdrx_object_removexdata e "XDTB_LYR_COLOR") 
      ) 
    ) 
  ) 
) 
 
 
;----------------- XLAY_MSELECT_LST ------------------- 
;Select multi lines at string list with dialog 
;  {var}    str_t -- title text string 
;  {var}    lst1 -- list to be selected in list box 
;  {Return} selected string list 
;  {DCL}    [qaec_mselelist] dialog need. 
;----------------------------------------------------- 
(defun XLAY_MSELECT_LST (str_t lst1 / count item out_str n rt num d_id lst_out) 
  (setq d_id (load_dialog "xl")) 
  (if (not d_id)(alert "无法加载对话框文件")) 
   
  (if d_id 
  (if (new_dialog "qaec_mselelist" d_id) 
    (progn 
      (mode_tile "bk2_ok" 1) 
      (set_tile "bk2_txt1" str_t) 
      ;;;fill the list 
      (start_list "bk2_list1") 
      (foreach n lst1 
         (add_list n) 
      ) 
      (end_list) 
 
      (action_tile "bk2_list1" "(setq num $value)(mode_tile "bk2_ok" 0)") 
      (action_tile "bk2_ok" "(done_dialog 1)") 
 
      (setq rt (start_dialog)) 
       
      (if (= rt 1) (progn 
        (while (setq item (read num)) 
          (setq count (strlen (itoa item)) 
                count (1+ count) 
                lst_out (cons (nth item lst1) lst_out) 
          );setq 
          (while (and (= " " (substr num count 1)) 
                      (substr num count 1)) 
            (setq count (1+ count)) 
          );while 
          (setq num (substr num count)) 
        );while 
      ));if 
    );progn 
    (alert "找不到对话框定义") 
  ));if 
  (return lst_out) 
) 
 
(defun XLAY_TB_LIST (typ / count b_nam lst_out) 
  (setq count 1) 
  (if (member typ '( "LAYER" "BLOCK" "VIEW" "STYLE" 
                     "APPID" "DIMSTYLE" "UCS" "VPORT")) 
    (while (setq b_nam (tblnext typ count)) 
      (setq count nil) 
      (setq lst_out (cons (cdr (assoc 2 b_nam)) lst_out)) 
    ) 
  );if 
  (if lst_out 
    (setq lst_out (reverse lst_out)) 
    (setq lst_out nil) 
  ) 
)[/FONT]

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

[求助] [求助]：关于实体显示方式的控制

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

相关帖子

再提供一个“孤立图层”的两个命令，速度更快！