嗨，李，谢谢。我测试了一下，但它得到了Dy块中的所有实体
无法获取VS“swith type2”中的所有实体。请参阅详细信息。
1.
- (command "._-insert" "Switch_symbol" pause "" "" "")
- (setq myblock (vlax-ename->vla-object (entlast)))
2.
- (LM:SetVisibilityState myblock "swith type2")
3.
- _$(setq bname(Vlax-Get myblock "Name"))
- "*U6"
4.
功能1
- (defun GetBlkEntlst1 (BlockName / en lst)
- (if (setq en (tblobjname "BLOCK" BlockName))
- (while (setq en (entnext en)) (setq lst (cons en lst)))
- )
- (reverse lst)
- )
功能2
- (defun GetBlkEntlst2(blkname / en enlst)
- (setq enlst (list (cdr (assoc -2 (tblsearch "block" blkname)))))
- (while (setq en (entnext (car enlst)))
- (setq enlst (cons en enlst))
- )
- (reverse enlst)
- )
测验
或
但它在Dy块中获取所有实体
- (
- <Entity name: 7eef2620>
- <Entity name: 7eef2628>
- <Entity name: 7eef2630>
- <Entity name: 7eef2638>
- <Entity name: 7eef2640>
- <Entity name: 7eef2650>
- <Entity name: 7eef2658>
- <Entity name: 7eef2660>
- <Entity name: 7eef2668>
- <Entity name: 7eef2670>
- <Entity name: 7eef2678>
- <Entity name: 7eef2680>
- <Entity name: 7eef2688>
- <Entity name: 7eef2690>
- <Entity name: 7eef2698>
- <Entity name: 7eef26a0>
- <Entity name: 7eef26a8>
- <Entity name: 7eef26b0>
- <Entity name: 7eef26b8>
- <Entity name: 7eef26c0>
- <Entity name: 7eef26c8>
- <Entity name: 7eef26d0>
- <Entity name: 7eef26d8>
- <Entity name: 7eef26e0>
- <Entity name: 7eef26e8>
- <Entity name: 7eef26f0>
- <Entity name: 7eef26f8>
- )
| 
