这里应该怎么写？ssget用法

aws · 发表于 2023-12-9 00:36

(defun c:gg()
(setq en(car(entsel "\n选取初始颜色：")))
(setq e(entget en))

(setq ss(ssget '((assoc 62 e))))

(sssetfirst ss ss)
(princ)
)

上面标红部分，报错了，但是我没想明白错在哪里，请教下大家

fangmin723 · 发表于 2023-12-9 08:14

本帖最后由 fangmin723 于 2023-12-9 08:18 编辑

(setq ss (ssget (list (assoc 62 e))))
具体原因参考：
单引号和quote是不同的
http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7316343
(出处: 明经CAD社区)

烟花丝雨 · 发表于 2023-12-9 08:16

(setq ss(ssget (list (assoc 62 e))))

aws · 发表于 2023-12-9 09:12

烟花丝雨发表于 2023-12-9 08:16
(setq ss(ssget (list (assoc 62 e))))

谢谢，一目了然

aws · 发表于 2023-12-9 09:17

fangmin723 发表于 2023-12-9 08:14
(setq ss (ssget (list (assoc 62 e))))
具体原因参考：
单引号和quote是不同的

感谢回复！对 ' 的认识又深刻了

oistre · 发表于 2023-12-9 11:04

认识又深刻

renxianjing · 发表于 2023-12-9 15:39

用 ' 不对后面的表求值。

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

[提问] 这里应该怎么写？ssget用法

浏览过的版块