快速选择快并隐藏

cjjh8301 · 发表于 2018-12-29 20:35:57

本帖最后由 cjjh8301 于 2018-12-29 20:39 编辑

1、比如图中有一定数量的块A，输入命了，点取块A的其中一个，自动选中所有块A并且隐藏，命令行中显示出“已隐藏块A：XX个

2、图中有不同的块，输入命令，每种块选一个，回车后选中的所有同名块自动隐藏。

wszxf · 发表于 2018-12-29 20:35:58

(defun c:tt (/ block_name en n ss ssn)
  (while (and (setq en (car (entsel "\n请选择块:")))
      (= (vla-get-objectname (Vlax-Ename->Vla-Object en))
   "AcDbBlockReference"
      )
      (setq block_name
      (vla-get-EffectiveName (Vlax-Ename->Vla-Object en))
      )
      (setq ss
      (ssget
         "x"
         (list
   (cons 0 "INSERT")
   (cons 2
         block_name
   )
         )
      )
      )
   )
(repeat (setq n (sslength ss))
   (setq ssn (ssname ss (setq n (1- n))))
   (vla-put-Visible (vlax-ename->vla-object ssn) 0)
)
(princ (strcat "\n已隐藏块:"
   block_name
   "  "
   (itoa (sslength ss))
   "个"
   )
)

  )
  (princ)
)

依然小小鸟 · 发表于 2018-12-30 12:50:34

明经热心的人挺多谢谢这些大神们

cjjh8301 · 发表于 2018-12-30 18:53:22

本帖最后由 cjjh8301 于 2018-12-31 12:40 编辑

wszxf 发表于 2018-12-29 22:38
(defun c:tt (/ block_name en n ss ssn)
(while (and (setq en (car (entsel "\n请选择块:")))
...

感谢，这个码可以满足第一个功能,麻烦帮我修改下，输出的块数量是实际数量减1，（比如实际块A有5个，输出“已隐藏块A：4个”）；还有就是是第二个功能没有，框选多个块不用统计数量，只是隐藏，能实现吗？

bai2000 · 发表于 2018-12-30 20:47:11

隐藏了还要能恢复啊

cjjh8301 · 发表于 2018-12-31 12:59:20

顶顶！！

yunle51 · 发表于 2018-12-31 17:45:19

到我那找找，但不是源码

一般般 · 发表于 2019-1-1 13:56:53

wszxf 发表于 2018-12-29 22:38
(defun c:tt (/ block_name en n ss ssn)
(while (and (setq en (car (entsel "\n请选择块:")))
...

这个怎么恢复显示呢

cjjh8301 · 发表于 2019-1-2 09:19:21

一般般发表于 2019-1-1 13:56
这个怎么恢复显示呢

天正的显示隐藏可以显示

一般般 · 发表于 2019-1-2 20:12:23

cjjh8301 发表于 2019-1-2 09:19
天正的显示隐藏可以显示

那cad咋整呢

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

[提问] 快速选择快并隐藏

最佳答案