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图元名指向的是唯一的实体本身
wzg356 发表于 2023-12-19 21:32
只针对字符串--文本进行转换 ，先搞懂通配符、命名规则--知道为什么要转义（比如文本中的#是代表其他意义 ...
不是程序员，学习lisp只是为了更明白看图，
这二天对照ai 学习了列表操作函数，不懂的太多了，
100组码不是实体类吗，线段，圆，文本，块，都是不一样的为什么不能当条件。 本帖最后由 wanchr 于 2023-12-20 10:01 编辑
wzg356 发表于 2023-12-19 21:32
只针对字符串--文本进行转换 ，先搞懂通配符、命名规则--知道为什么要转义（比如文本中的#是代表其他意义 ...
(setq filters '())
(if (setq aa(cons 2(transsfilter(cdr(assoc 2(entget e))))))
(setq filters(cons aa filters))
(setq filters)))
这句(setq aa(cons 2(transsfilter(cdr(assoc 2(entget e))))))不能当if条件，当2组元不存在它返回的是个什么东东
找到了，用(car (assoc 2(entget e)))能当条件。
页:
1
[2]