10个币请教个问题

rocking2008 · 发表于 2021-12-11 22:01:05

http://bbs.mjtd.com/thread-181540-1-1.html问题在此贴上。

明经币

本帖最后由 rocking2008 于 2021-12-9 16:39 编辑

(setq *blockname* "A块"
      *blocktag*  "CC"
)

现在是指定*blockname*  为 "A块" ，程序只能识别 "A块"，但是我想让程序能够识别  "B块"， "X块"，  "镙丝块"， "卡口块"，应该如何修改。

意思是
(setq *blockname* （"A块" 或 "B块" 或 "X块" 或  "镙丝块" 或 "卡口块"）
      *blocktag*  "CC"
)

不知道有没有人能看懂我表达的意思。

lee50310 · 发表于 2021-12-12 12:14:42

本帖最后由 lee50310 于 2021-12-13 03:16 编辑

寫成串列即可
例:
(setq *blockname* (list "A块" "B块"  "X块"  "镙丝块" "卡口块"))

要取用可透過lisp 的  nth 指令

      (setq blk (nth 0  *blockname*)) ;取串列第一個塊 "A块"
      (setq blk (nth 1  *blockname*)) ;取串列第二個塊 "B块"

                           .
                           .
      (setq blk (nth 4 *blockname*)) ;取串列  "卡口块"

masterlong · 发表于 2021-12-12 12:32:59

这些块应该都是有个CC的属性

机械工程师 · 发表于 2021-12-13 22:22:20

用,分隔就可以了。
参考下面的
(setq ss_0 (ssget "p" '((2 . "A1,A2,A3,A4"))))
你接触过的话，也可以使用类似下面的，看不懂就算了。
(setq ss_0 (ssget '((-4 . "<OR")(8 . "中心线")(8 . "虚线")(8 . "双点划线")(8 . "电器元件")(8 . "草绘标识")(8 . "草绘标识2")(6 . "DASHED")(6 . "PHANTOM")(6 . "CENTER")(6 . "HIDDEN")(-4 . "OR>"))))

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

[提问] 10个币请教个问题