社区 › Auto Lisp › ssget筛选器问题

Lee Mac 发表于 2022-7-5 19:10:40

 
否-当动态块的参数改变时，自动生成/使用匿名块定义。与选定可见性状态对应的匿名块定义的组件是您需要的图元。

DuanJinHui 发表于 2022-7-5 19:15:54

 
抑郁的也许需要一个例子。

Lee Mac 发表于 2022-7-5 19:17:53

到目前为止，你的代码是什么？

DuanJinHui 发表于 2022-7-5 19:23:18

 
嗨，李，这是怎么回事？
 

Lee Mac 发表于 2022-7-5 19:26:56

 
当提供匿名块名时，使用entnext函数迭代tblobjname函数返回的实体后面的所有实体。

DuanJinHui 发表于 2022-7-5 19:27:32

 
嗨，李，谢谢。我测试了一下，但它得到了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)
)
 
测验
(GetBlkEntlst1 bname)
或
(GetBlkEntlst2 bname)
 
但它在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>
)

Lee Mac 发表于 2022-7-5 19:32:21

很好的努力
 
尝试将“Function1”更改为：
13

DuanJinHui 发表于 2022-7-5 19:37:29

 
李，谢谢你的夸奖。
谢谢你的帮助。我必须看看这些变化。

查看完整版本: ssget筛选器问题