按块全选

十里八乡一枝花

有没有大佬帮忙制作一个贱人工具箱那种 点击一个块就可以选中图纸上所有这个名字的块

lovezp

要求这么低？选中之后不干点什么?

晨曦CAD

命令ssb
支持匿名块
[sell=1]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:选择块（支持动态块）命令SSB.zip 
下载次数:11  文件大小:1.47 KB 
下载权限: 不限 以上  [免费赚D豆]

[/sell]

newer

晓东工具箱有现成的
菜单- 设置 - 按快全选

1. (defun c:tt ()
   
2.   (if (setq e (car (xdrx-entsel "\n选择图块<退出>:" '((0 . "insert")))))
   
3.     (progn
   
4.       (setq ss (ssget "x"
   
5.                       (list '(0 . "insert")
   
6.                             (cons 2 (xdrx-getpropertyvalue e "name"))
   
7.                       )
   
8.                )
   
9.       )
   
10.       (sssetfirst nil ss)
    
11.     )
    
12.   )
    
13. )
    

(defun c:tt ()<br />   (if (setq e (car (xdrx-entsel "\n选择图块<退出>:" '((0 . "insert")))))<br />     (progn<br />       (setq ss (ssget "x"<br />                       (list '(0 . "insert")<br />                             (cons 2 (xdrx-getpropertyvalue e "name"))<br />                       )<br />                )<br />       )<br />       (sssetfirst nil ss)<br />     )<br />   )<br /> )<br />