请阻碍

bonacad · 发表于 2022-7-6 17:25:11

如果插入（块）对象中有线条和文字。

如何检索该对象实体的列表？

我的意思是在块或插入对象中？

lpseifert · 发表于 2022-7-6 17:46:41


(entget (car (nentsel)))

将为您提供块中实体的实体列表

bonacad · 发表于 2022-7-6 17:53:46

是的，但我不想选择对象。

例如，我有：

如何检索块中所有实体名称的列表？

ASMI · 发表于 2022-7-6 18:06:46

每个块参照包含相同的图元集。您需要从块表中提取块定义，并使用ENTNEXT函数查找所有嵌套实体：

copy

(defun GetEntitiesList(Name / blLst cEnt oLst)
 (if(setq blLst(tblsearch "BLOCK" Name))
   (progn
     (if(setq cEnt(cdr(assoc -2 blLst)))
(progn
  (setq oLst(list cEnt))
  (while(setq cEnt(entnext cEnt))
    (setq oLst(cons cEnt oLst))
    ); end while
  ); end progn
); end if
     ); end progn
   ); end if
 oLst
 ); end of GetEntitiesList

用法示例：

copy

Command: (GetEntitiesList "01-06-Adr_Isolator")
(<Entity name: 7efe2508> <Entity name: 7efe2500> <Entity name: 7efe24f8> 
<Entity name: 7efe24f0> <Entity name: 7efe24e8> <Entity name: 7efe24e0> <Entity 
name: 7efe24d8> <Entity name: 7efe24d0> <Entity name: 7efe24c8> <Entity name: 
7efe24c0> <Entity name: 7efe24b8>)