我的选择集问题没有解决，来个帮帮我，请请。

wzg356

wanchr 发表于 2023-12-19 21:02
(setq filters(list(cons 0(transsfilter(cdr(assoc 0(entget e)))))
                  (cons 2(transsfilter(cdr(ass ...

只针对字符串--文本进行转换 ，先搞懂通配符、命名规则--知道为什么要转义（比如文本中的#是代表其他意义还是只是字符#本身），再去找寻方法-才知道这个函数的意义
数字或符号类不管
比如8是整数，8.0是实数，“8”是文本
(setq ee "8")---ee是字符串
(car(entsel))---是图元名-特殊符号，组码0

先加强基本功
查看组码(entget(car(entsel)))
组码有坐标-表 、整数 、实数 字符串、图元名等
100、5、-1码等不能当过滤条件，比如：5句柄 -1图元名指向的是唯一的实体本身

wanchr

wzg356 发表于 2023-12-19 21:32
只针对字符串--文本进行转换 ，先搞懂通配符、命名规则--知道为什么要转义（比如文本中的#是代表其他意义 ...

不是程序员，学习lisp只是为了更明白看图，
这二天对照ai 学习了列表操作函数，不懂的太多了，
100组码不是实体类吗，线段，圆，文本，块，都是不一样的为什么不能当条件。

wanchr

wzg356 发表于 2023-12-19 21:32
只针对字符串--文本进行转换 ，先搞懂通配符、命名规则--知道为什么要转义（比如文本中的#是代表其他意义 ...

2. (setq filters '())
   
3.   (if (setq aa(cons 2(transsfilter(cdr(assoc 2(entget e))))))
   
4.   (setq filters(cons aa filters))
   
5.   (setq filters)))

(setq filters '())<br />   (if (setq aa(cons 2(transsfilter(cdr(assoc 2(entget e))))))<br />   (setq filters(cons aa filters))<br />   (setq filters)))

这句(setq aa(cons 2(transsfilter(cdr(assoc 2(entget e))))))不能当if条件，当2组元不存在它返回的是个什么东东


找到了，用(car (assoc 2(entget e)))能当条件。