[求助]请看帖子的具体内容

龙龙仔

为甚么不去看说明檔????

您也可以测试群组，方法为建立使用下表中所示之逻辑分组运算子的巢状式「布尔」表示式：

选集过滤器串行的分组运算子

开头 运算子         括号        结尾 运算子
"<AND"        一或多个操作数         "AND>"
"<OR"        一或多个操作数         "OR>"
"<XOR"        两个操作数         "XOR>"
"<NOT"        一个操作数         "NOT>"
分组运算子和关系运算子一样，是由 ? 群组所指定。它们是成对的，且其在过滤器串行中必须正确对称，否则 ssget 呼叫将会失败。以下是过滤器串行中之分组运算子的范例：

(ssget "X"

'(
    (-4 . "<OR")
      (-4 . "<AND")
        (0 . "CIRCLE")
        (40 . 1.0)
      (-4 . "AND>")
      (-4 . "<AND")
        (0 . "LINE")
        (8 . "ABC")
      (-4 . "AND>")
    (-4 . "OR>")
  )

)

此程序代码选取所有半径为 1.0 的圆周，加上在图层 "ABC" 上的线。分组运算子不区分大小写；例如，您可以指定 "and>", "<or"，而不指定 "AND>", "<OR"。
? 群组内不容许分组运算子。? 群组内指定的多个应用程序名称使用隐含的 AND 运算子。如果您要使用其它的分组运算子测试延伸数据，请指定个别的 ? 群组，并依所需加以分组。若要选取所有具有应用程序"APP1" 或 "APP2"（但非两者）之延伸数据的圆周，请输入下式：

(ssget "X"
'((0 . "CIRCLE")
    (-4 . "<XOR")
      (-3 ("APP1"))
      (-3 ("APP2"))
    (-4 . "XOR>")
  )

)

您可以简化常用之分组运算子的编码作业，方法是将其设为等于某个符号。前一个范例可重新撰写成如下（请注意，在本例中，您必须明确地在每一个串行上加上引号）：

(setq <xor '(-4 . "<XOR")
       xor> '(-4 . "XOR>") )
(ssget "X"
  (list
    '(0 . "CIRCLE")
    <xor
      '(-3 ("APP1"))
      '(-3 ("APP2"))
    xor>
  )

)

您可以看到，如果是简短的程序代码，此方法可能很难看出有什么功效，但若是较大型的应用程序，则会相当有助益。

leon

非常感谢你的说明。
还请你帮我解决这个问题：
我想在程序中加入如下内容command "zoom" "w" '(0 0) (getvar "limmax"))。可是执行这个命令之后，CAD会认为图纸做了修改，
从而问是否需要保存，我现在使用的是*.scr批处理文件执行选择图中的bom块，所以我不想它提示我，请问该如何做？

龙龙仔

leon

因为我是在批处理中运行程序的，所以不想有回答的提示。也就是说完全的自动，不需要人为的去理会他。

CAD菜鸟

leon

那么如果第一张图纸保存了呢，那岂不是会出错。

mccad