请问如何使用 if 判断表

张大锤 · 发表于 2018-9-4 17:02

(setq AA (SSGET ":s" '((0 . "INSERT"))))
(setq AA2 (cdr (assoc 2 (entget (ssname AA 0)))))
(if (and (= AA0 "INSERT")(= AA2 "注記6"))
(alert "标注")
)
(if (and (= AA0 "INSERT")(/= AA2 "注記6"))
(alert "其他块")
)
-------------------------------------------------华丽的分割线
因为AA2 块的名字很多注記1-50 1，2，5 很麻烦每次添加呢还需要改2次
可不可以：
(setq KMZ (list "注記1" "注記2" "注記3" "注記4" "注記5" "注記6"))
请问KMZ 这里要怎么写？

(if (and (= AA0 "INSERT")(= AA2 KMZ))
(alert "标注")
)
(if (and (= AA0 "INSERT")(/= AA2 KMZ))
(alert "其他块")
)

张大锤 · 发表于 2018-9-5 15:37

本帖最后由张大锤于 2018-9-5 15:39 编辑

Andyhon 发表于 2018-9-5 15:27
(setq AA (SSGET '((0 . "INSERT")(2 . "注記#"))))
(setq BB (SSGET '((0 . "INSERT")(2 . "立柱#"))))
...

讨论一下嘛

(setq AA (SSGET '((0 . "INSERT")(2 . "注記#"))))
(setq BB (SSGET '((0 . "INSERT")(2 . "立柱#"))))
这俩个需要选择2次
(setq AA (SSGET '((0 . "INSERT")(2 . "注記#，立柱#"))))
可以这样读 2 if （= 2 注記#）

这个我明白但是还想探讨一下表里如何使用符号这块

总之还是很谢谢长老了之前的问题是主要的问题已经帮我很大忙了

我突然想到了：
'((-4 . "<OR")(-4 . "<AND")(0 . "LINE")(8 . "*表記")(-4 . "AND>")(-4 . "<AND")(0 . "INSERT")(2 . "dsd*,cu*")(-4 . "AND>")(-4 . "OR>"))))

张大锤 · 发表于 2018-9-5 08:14

Andyhon 发表于 2018-9-4 17:20
先试试
(setq AA (SSGET ":s" '((0 . "INSERT")(2 . "注記#"))))
(setq AA (SSGET '((0 . "INSERT")(2 . ...

辛苦了谢谢你
* # 这些我明白汉字有很多种不光是这一种
这个想法主要是因为lisp 写的比较长
这俩个地方相隔很远每次添加或调整找到一次很麻烦
昨天想如果在上边用一个这样的方式就可以修改起来比较方便
上边一改下边2个地方就都变了

张大锤 · 发表于 2018-9-5 14:57

Andyhon 发表于 2018-9-5 14:29
...未窥全像...

您想从什么转成什么

好滴
比如：(setq KMZ (list "注記1" "注記2" "注記3" "注記4" "注記5" "注記6"))

是否可以：(setq KMZ (list "注記*" "立柱*" ))
"注記*" 包含：注記1 注記2 注記3 注記4.....
"立柱*" 包含 : 立柱1 立柱2 立柱3 立柱4....

Andyhon · 发表于 2018-9-4 17:20

先试试
(setq AA (SSGET ":s" '((0 . "INSERT")(2 . "注記#"))))
(setq AA (SSGET '((0 . "INSERT")(2 . "注記#"))))

Andyhon · 发表于 2018-9-5 08:22

未窥全象
再猜是调用 'member

vectra · 发表于 2018-9-5 08:58

(if (= AA0 "INSERT")
(if (member AA2 KMZ)
(alert "标注")
(alert "其它块")
)
)

张大锤 · 发表于 2018-9-5 10:48

vectra 发表于 2018-9-5 08:58

3Q 谢谢你和Andyhon 说的一样需要用member函数很感谢达到要的效果了

学习了

masterlong · 发表于 2018-9-5 11:26

楼主代码里 IF 中的 AND 是多余的

张大锤 · 发表于 2018-9-5 13:03

Andyhon 发表于 2018-9-4 17:20
先试试
(setq AA (SSGET ":s" '((0 . "INSERT")(2 . "注記#"))))
(setq AA (SSGET '((0 . "INSERT")(2 . ...

辛苦啦

在选择时ssget 可以使用* # 来代替
(setq KMZ (list "注記1" "注記2" "注記3" "注記4" "注記5" "注記6"))
在list 里面要怎么才使用* # 呢？

Andyhon · 发表于 2018-9-5 14:29

本帖最后由 Andyhon 于 2018-9-5 14:31 编辑

...未窥全像...

您想从什么转成什么
没能从您的示例中理解过来
能另加多些示例吗?

账号		自动登录	找回密码
密码			注册

[讨论] 请问如何使用 if 判断 表

[讨论] 请问如何使用 if 判断表