[转载]ssget 用法详解 by yxp

总结得很好的ssget用法.....如此好文,必须转载.

原文地址: http://blog.csdn.net/yxp_xa/article/details/72229202

ssget 用法详解 by yxp 2017/04/10

ALisp 编程时 ssget 是无处不在的,灵活的选择集构建方式,可以轻松的处理图形,体现了 Lisp 相对其他语言的优点。

然而强大的 ssget 估计很多人都不清楚用法,包括各种教程对 ssget 的描述都不够完善,本文试图总结 ssget 的用法,不足之处请读者指正。

语法：

(ssget [sel-method] [pt1 [pt2]] [pt-list] [filter-list])

ssget 的参数均为可选参数,需要注意的是可选参数之间的组合条件。

以下语法表示中 <parameter> 尖括号代表必选,[parameter] 方括号代表可选。

一、选择集的窗口参数

  • [sel-method] 字符串类型,不区分大小写,指定一个选择方法。
  • [pt1 [pt2]] 表类型,由三个数字的点参数表,表示 xyz 坐标,也可以是仅包括xy 的坐标。
  • [pt-list]表类型,由点参数表组成的表。

    C 窗交（反选）

如果指定了该参数,则必须跟一对点创建一个矩形窗口,与矩形窗口相交的对象均被加入选择集。

参数语法: (ssget "c" <pt1> <pt2> [filter-list])

此时,[pt-list] 参数不能出现,否则 ssget 将会返回一个错误提示：错误的点参数

示例：

(setq pt1 (getpoint "First Pt:"))
(setq pt2 (getpoint "Second Pt:"))
(setq ss (ssget "c" pt1 pt2))

W 窗口（正选）

与 C 参数语法及用法类似,但功能不同,只有在矩形窗口内完整的对象才会被加入选择集。

参数语法: (ssget "w" <pt1> <pt2> [filter-list])

参数前加下划线 "_w" 可以使代码在不同版本的CAD平台下兼容,建议写上。

CP 圈交（多边形反选）

如果指定了该参数,则必须用构成多边形的点表响应,与多边形相交的对象被加入选择集。

参数语法: (ssget "CP" <pt-list> [filter-list])

此时点参数 [pt1] [pt2] 不能出现,而且,CP 参数依赖 <pt-list> 的顺序来构成一个多边形。

例如四个点按顺序连接为一个8字型,而不是一个矩形,ssget 将返回一个空选择集,即使对象与窗口相交。

如果参数为少于3个点的表,也将返回一个 nil。

示例：

(setq pt1 (getpoint "Piont1:"))
(setq pt2 (getpoint "Piont2:"))
(setq pt3 (getpoint "Piont3:"))
(setq pt4 (getpoint "Piont4:"))
(setq ss (ssget "c" (list pt1 pt2 pt4 pt4)))

WP 圈围（多边形正选）

与 CP 参数语法及用法类似,但只有被多边形窗口包围的对象才会被加入选择集。

参数语法: (ssget "wp" <pt-list> [filter-list])

F 栏选

将参数点表连接为一条折线,与折线相交的对象被加入选择集。

参数语法: (ssget "f" <pt-list> [filter-list])

pt-list 最少由2个点组成表,CP/WP 参数最少需要 3 个点。

P 前一批创建的图形

包括 CAD 命令或 LISP 程序创建的图形对象。

参数语法: (ssget "p" [filter-list])

P 参数不能和 [pt1 [pt2]] [pt-list] 任何一个点参数组合,否则将返回一个错误,有的 CAD 版本会返回 nil

当分解（EXPLODE）一个 CAD 图形时,p 方法特别有用,可以一次性建立分解后的所有对象选择集。

L 最后一个创建的对象

包括 CAD 命令或 LISP 程序创建的对象,注意和 P 参数的区别。

参数语法: (ssget "l" [filter-list])

在获取最后一个对象的图元名时,以下代码是等价的,但是后者不能提供直接过滤功能。

(ssname (ssget "L") 0) == (entlast)

I 隐含窗口选择

参数语法: (ssget "i" [filter-list])

CAD 命令有两种执行方式,第一种先命令后选择,第二种先选择后命令。所以在 Lisp 中也允许先选择后命令,

而且这方式可以通过系统变量 pickfirst 来关闭（值为 0）,此时 I 参数失效,(ssget "i") 将返回 nil。

选择对象后,可以用 (sssetfirst nil) 取消选择集的亮显状态。

X 整个文件

在当前打开的CAD文件中选择所有对象,包括关闭、冻结图层中的图元和可见屏幕外的图元,不分大小写。

参数语法: (ssget "x" [filter-list])

X 用法与 A 用法等价,(ssget "A") 也是选择所有对象。

:E 拾取框

用拾取框选择对象,此时 ssget 将不再拉出一个矩形窗口,直到点右键结束选择。

参数语法: (ssget ":E" [filter-list])

与 :E 对应的 :N 参数为只能拉出一个矩形窗口选择,而不能通过点选拾取对象。

:S 仅允许单一选择集

使用:s参数时,ssget 将点选对象一次就会结束,无论是否选中对象,未选中则返回 nil,可节省一次回车确认。

参数语法: (ssget ":S" [filter-list])

说明： ":S" 参数和 ":E" 可以同时使用,例如： (ssget "_:S:e")

以下参数可以组合使用, "+" 或 "-",例如：(ssget "_:S+D")

:D 重复选择

允许同一个对象多次加入选择集,每选择一次,则加入一次。

参数语法: (ssget ":D" [filter-list])

例如：画两条直线,然后运行代码 (setq ss (ssget ":D")),框选3次直线后。(sslength ss) 返回 6

:L 不选择锁定图层对象

注意： L、：L、-L 的参数是不同的。

参数语法: (ssget ":L" [filter-list])

ssget 默认选择所有图层对象,这样在程序中需判断图层是否锁定,才能编辑,否则 lisp 代码将返回错误。

其他方法还有A :A -A _:V _:U _:R -M -P :P -G -L :? 等参数以及组合用法,有兴趣的朋友可以测试。

这些参数的用法官方并未在语法参考里公布,估计是程序测试留下的接口,CAD 更新时可能被关闭,不建议使用。

注意事项：

  • ssget 带点参数调用时,可能会受到自动捕捉的影响,一般先将系统变量 osmode 置零。
  • ssget 点参数包围的矩形、多边形应在当前绘图区域内可见,否则 ssget 仅返回可见区域内的对象选择集。
  • 创建选择集会消耗 AutoCAD 的临时文件存储区,所以 AutoLISP 不允许同时创建多于 128 个选择集。
  • 例如：画一个圆,然后执行以下代码：

    (repeat 130 (setq a (cons (ssget "l") a)))

  • 这段程序循环了 130 次,AutoCAD提示 "错误: 超出选择集数量的最大范围",如果继续调用 (ssget) 将返回 nil；此时,只有清空选择集变量 (setq a nil) 才能继续调用 ssget。
  • ssget 选择时没有自定义提示,如果特别需要可用第三方函数,比如飞诗的： Fsxm-ssget

    二、选择集的过滤条件

[filter-list] 过滤条件,表类型,指定与属性（DXF 组码）匹配的对象被加入选择集。

常用支持过滤的 DXF 组码：

0    实体类型
-4   条件运算, SSGET 的专用组码,包括逻辑条件与关系条件
1    图元文字内容
-3   扩展数据
2    属性标记、块名
6    线型名
7    文字样式
8    图层名
40   CIRCLE 直径或 TEXT 文字高度
62   颜色号
0    组码

指定对象实体类型,语法 ‘((0 . types)),对象类型 types 为字符,不分大小写,常用的实体类型如下：

  • "POINT"、"TEXT"、"MTEXT" 点、单行文本、多行文本
  • "LINE"、"LWPOLYLINE"、"SPLINE" 直线、多段线、样条曲线
  • "CIRCLE"、"ARC"、"ELLIPSE" 圆、圆弧、椭圆
  • "HATCH"、"DIMENSION" 填充、标注
  • "ATTDEF"、"INSERT" 属性文字、图块
  • "," 逻辑或,对象类型可多选,名称用 "," 分隔。例如,创建直线和文本的选择集：

    (ssget ‘((0 . "TEXT,LINE")))

    框选对象后,将只有直线和文本被选中（亮显）并加入选择集。

  • "~" 逻辑非,用来排除某类型。例如：创建除过图块的选择集

    (ssget ‘((0 . "~INSERT,LINE")))

    显然,第二个类型 LINE 毫无意义,因为第一个 ~INSERT 非图块类型范围包含了 LINE 类型。

  • "*" 通配符,用来表示模糊类型。例如,创建所有直线的选择集：

    (ssget ‘((0 . "*LINE")))

    框选对象后,可以将 "LINE"、"LWPOLYLINE"、"SPLINE"、"MLINE" 类型加入选择集,和以下过滤条件等价：

    (ssget ‘((0 . "LINE,LWPOLYLINE,SPLINE,MLINE")))

    通常我们用后者实现精确过滤。

  • 其他：(ssget ‘((0 . "*E"))) 选择过滤所有直线、圆、椭圆的类型,因为他们的尾字母都是 E。

    (ssget ‘((0 . "*"))) 与 (ssget) 等价,相当于全选。

    (ssget ‘((0 . "~*"))) Lisp 都不知道你要干嘛了,因为它什么也选不上。

  • 0 组码可以和其他组码组成 list 表过滤。例如,选择半径为 20 的圆：

    (ssget ‘((0 . "CIRCLE")(40 . 20)))

    通常,对于字符类型组码均支持通配过滤语法,包括线型名、文字样式、图层等。

    例如：选择非 0 层的所有对象

    (ssget ‘((8 . "~0")))

    注意：并不是所有组码都支持过滤,例如下面过滤条件将返回 nil,即使存在句柄为 "25F" 的圆。

    (ssget ‘((0 . "CIRCLE")(5 . "2*")))

    -4 组码

逻辑条件运算

用 -4 组码和逻辑运算符组成表对,将一个或几个表项包夹。逻辑运算符对大小写不敏感。

表对必须成对出现,如：(-4 . "<xx")...(-4 . "xx>"), 常用的逻辑运算符如下：

or   项目并集
and  项目交集
not  不含此项
xor  两项异或
  • or 并集。例如,选择直线和文本：

    (ssget ((-4 . "<or")(0 . "line")(0 . "text")(-4 . "or>")))

    显然与 (ssget ‘((0 . "text,LINE"))) 等价,但后者写法更简洁。

    例如,选择颜色为红色和绿色的文字和直线：

    (ssget ((0 . "TEXT,LINE")(-4 . "<or")(62 . 1)(62 . 3)(-4 . "or>")))

  • and 交集。例如,选择图层为 "notes",颜色为绿色的单行文本：

    (ssget ((-4 . "<and")(0 . "text")(8 . "notes")(62 . 3)(-4 . "and>")))

  • not 非。例如,选择非 "notes" 层的实体对象：

    (ssget ((-4 . "<not")(8 . "notes")(-4 . "not>")))

    显然与 (ssget ‘((8 . "~notes"))) 等价。

    注意：非运算只能有一个表项被包夹,否则 ssget 将返回 nil。

  • xor 异或。即半加法,实现二进制加法的不进位运算。逻辑意义: 相同为0,相异为1。

    例如,选择在 "notes" 层不是绿色、或是绿色而不在 "notes" 层的文本对象：

    (ssget ((0 . "text")(-4 . "<xor")(8 . "notes")(62 . 3)(-4 . "xor>")))

    注意：异或运算只能有两项,如果超过两项或只有一项,ssget 将返回 nil。

  • 逻辑运算可以嵌套,组成更复杂的条件运算。
(ssget ((0 . "text")
(-4 . "<or")
(-4 . "<and")(8 . "0")(62 . 1)(-4 . "and>")
(-4 . "<and")(8 . "notes")(62 . 3)(-4 . "and>")
(-4 . "or>")
))

关系条件运算

用 -4 组码和关系运算符组成表对,放在需要比较的表项前。

与成对出现的逻辑条件不同,关系表对单个出现,常用关系运算符如下：

"*"    通配符
"="    等于
"!="   不等于
"<>"   不等于
"<"    小于
"<="   小于或等于
">"    大于
">="   大于或等于
"&"    按位与
"&="   按位屏蔽相等(仅适用于组值为整型的组)

例如：选择半径大于或等于20的圆

(ssget ((0 . "CIRCLE")(-4 . ">=")(40 . 20)))

选择半径20的圆,颜色不是红色

(ssget ((0 . "CIRCLE")(-4 . "<and")(-4 . "!=")(62 . 1)(40 . 20)(-4 . "and>")))

对于含有多个元素的比较,如点坐标,可用 "," 隔开关系运算符。

选择圆心坐标 x>100, y<120, z=0,图层名以 cir 开始的圆

(ssget ((0 . "CIRCLE")(-4 . ">,<,=")(10 100 120 0)(8 . "cir*")))

选择图形颜色不是随层 (bylayer) 的对象,可用以下代码

(ssget ((-4 . "&")(62 . 255)))

我们知道 CAD 的索引颜色数为 1-255,用 2 个字节表示,随层的颜色为 0,在 DXF 组码中并不显示。

此时如果用 (ssget ‘((-4 . ">")(62 . 0))) 来过滤是不对的,随层颜色的图形也将被选上。

如果用二进制的 8 个 1 与当前颜色数进行逻辑与的位运算 &,其结果都不是 0, 即为真, 2^8=255

1 组码

文本内容的匹配运算（与 wcmatch 函数语法相同）,相当于简单正则。

对于包含大量文本对象的图形,有时候需要精确的过滤条件,可以通过以下特殊符号来实现：

"*"  通配符,代表一个或多个任意字符
"|"  管道符,用来连接并列字符,表示或的关系
"?"  占位符,代表一个任意字符
"#"  数字符,代表一个0-9的字符
"@"  字母符,代表一个a-z,A-Z字符
"."  特殊字符,代表一个除字母和数字的其他字符
"~"  符号非运算
"`"  转义字符（数字 1 左边那个字符）
","  分隔两个模式的表达式
"[]" 限位符,用中括号包括一个表达式,表示一位字符
  • 例1： CAD 中有以下 3 组 TEXT 文本

① X=35.614 ② Y=356.201 ③ Z=11.526

  • 要求匹配以 "X=" 这两个字母开始的单行文本

    (ssget ‘((0 . "TEXT") (1 . "X=*")))

    返回第 ① 组文本的选择集

    解读： "X=" 不是通配运算符,在此表示精确匹配,后面加 "*" 是任意符号。

  • 要求匹配以 "X=" 或 "Y=" 这两个字母开始的单行文本

(ssget ‘((0 . "TEXT") (1 . "[X|Y]=*")))

返回第 ①、② 组文本选择集

解读： 并列出现的字符,用 "|" 连接。

要求匹配 包含数字小于 100 的单行文本

(ssget ‘((0 . "TEXT") (1 . "@=##[.]*)))

返回第 ①、③ 组文本选择集

解读： "##" 代表两个数字,两个数字连接最大只能是 99。小数点单独出现用方括号 [.]

如果仅仅是".",而没有方括号,则代表任意特殊符号。

  • 例2： 我们再试验一组复杂的文本,在 CAD 中写入以下 10 组 TEXT 文本

    ① abcde ② 12345 ③ -25.390 ④ *&@125 ⑤ F35

    ⑥ #54-65 ⑦ 头文字 ⑧ 36 75 ⑨ F ⑩ /(*&%@!

  • 要求匹配 包含数字 文本

    (ssget ‘((0 . "TEXT") (1 . "#")))

    以上代码将选中 ②③④⑤⑥⑧ 包含数字的 6 组文本

    解读： "#" 代表一个数字字符,

  • 要求匹配 以*开始的 文本

    (ssget ‘((0 . "TEXT") (1 . "**"))) 以上代码将选中 ④ 以*开始的 1 组文本 解读： 因为""` 是通配符,要匹配语法中的专用字符用转义 ""

  • 要求匹配 不含特殊字符 文本

    (ssget ‘((0 . "TEXT") (1 . "~.")))

    以上代码将选中 ①②⑤⑦⑨,注意：负号和小数点也是特殊符号

    解读： "." 代表一个特殊字符,前后加 "." 包含一个特殊字符,不含特殊字符就是 "~*.*"

  • 要求匹配 纯数字 的单行文本,包含负号和小数点

(setq ss (ssget ‘((0 . "TEXT") (1 . "~*[~.–9]*))))

解读： 负负得正,两次取非可获取数字本身,括号内 "[~.-]", 意为包含小数点和负号。

注意, 220-11 不能参加计算的数字也会被包括其中。

  • 下面给出常用匹配规则,欢迎测试

    匹配数字,不含小数点和正负号: "~*[~0-9]*"如: 9824

    匹配 26 个小写字母: "~*[~a-z]*" 如: loveu

    匹配大写字母或数字: "~*[~A-Z],~[~0-9]*" 如: NASAA 或 9527

    匹配大写字母和数字混排: "~*[~A-Z|0-9]*" 如: F36D

    空格是一个很特殊的字符,用一个空格可以匹配任意个空格,其他字符没有这个特性。

    例如： (wcmatch " " " ") 返回 T

-3 组码

扩展数据过滤。ALISP 中可以用如下方法给图形添加扩展数据,增加自定义组码及表值。

  • 第一步,注册一个扩展对象应用名

    (regapp "xapp")

  • 第二步,选择一个图元并返回组码

    (setq En (entget (car (entsel))))

  • 第三步,定义加入图元的扩展数据

    (setq data ‘((-3 ("xapp" (1000 . "你好中国")))))

  • 第四步,将扩展数据附着更新图元

    (entmod (append En data))

  • 完成,我们可以检查一下扩展数据

    (assoc -3 (entget (car (entsel)) ‘("xapp")))

    结果返回 (-3 ("xapp" (1000 . "你好中国")))

    采用这种方法添加扩展数据,用 EXPLODE 命令不能清除。

与 -3 组码无关的话题。 用 VLisp 函数给图元添加数据比较简单,无需提前注册名称,例如 (vlax-ldata-put (car (entsel)) "xa" "你好中国") 查询数据如下： (vlax-ldata-get (car (entsel)) "xa") 返回 "你好中国" 采用这种方法,用 EXPLODE 命令可以炸开扩展数据,相当于清除图元的扩展数据。

在某些二次开发的 CAD 程序中,扩展数据被大量使用,用来分类图元对象（图层分类法容易被修改）。

这时候的 ssget 方显英雄本色,用来精确选择,再适合不过。在参数化制图时,添加扩展数据,当参数

发生变化时,很容易遍历修改这些对象,由于扩展数据的不可见和不可分解的特性,不会被用户误操作。

这时候只需要用下面代码即可完成过滤,连对象类别的 0 组码 都不需要了。

(ssget ‘((-3 ("xapp"))))

2 组码

暂缺。

时间： 2024-09-29 00:25:22

[转载]ssget 用法详解 by yxp的相关文章

FileUpload上传控件用法详解 (转载)

FileUpload 类显示一个文本框控件和一个浏览按钮,使用户可以选择客户端上的文件并将它上载到 Web 服务器.用户通过在控件的文本框中输入本地计算机上文件的完整路径(例如,C:\MyFiles\TestFile.txt )来指定要上载的文件.用户也可以通过单击“浏览” 按钮,然后在“选择文件” 对话框中定位文件来选择文件. 注意: FileUpload 控件设计为仅用于部分页面呈现期间的回发情况,并不用于异步回发情况.在 UpdatePanel 控件内部使用 FileUpload 控件时,

【转载ToString()转换格式;DateTime.ToString()用法详解】

ToString()转换格式;DateTime.ToString()用法详解 格式模式 说明和关联属性 c.C 货币格式.关联的属性包括: CurrencyDecimalDigits, CurrencyDecimalSeparator, CurrencyGroupSeparator, CurrencyGroupSizes, CurrencyNegativePattern, CurrencyPositivePattern, CurrencySymbol. d.D 十进制格式. e.E 科学计数(指

（转）ProgressDialog用法详解

转载自: ProgressDialog用法详解 ProgressDialog的基本用法 ProgressDialog为进度对话框.android手机自带的对话框显得比较单一,我们可以通过ProgressDialog来自己定义对话框中将要显示出什么东西. 首先看看progressDialog里面的方法 setProgressStyle:设置进度条风格,风格为圆形,旋转的.  setTitlt:设置标题  setMessage:设置提示信息:  setIcon:设置标题图标:  setIndeter

Oracle之外键(Foreign Key)用法详解（一）

Oracle外键(Foreign Key)用法详解(一) 1.目标 演示如何在Oracle数据库中使用外键 2.什么是外键? 1)在Oracle数据库中,外键是用来实现参照完整性的方法之一.打个形象的比喻,外键是指定义外键的表的列的值必须在另一个表中出现. 2)被参照的表称之为父表(parent table),创建外键的表称之为子表(child table).子表中的外键关联了父表中的主键. 3)外键可以在创建表时定义或者通过ALTER TABLE语句创建. 3.创建表时定义外键 语法: CRE

一步一步学ios UITextView(多行文本框)控件的用法详解(五5.8)

本文转载至 http://wuchaorang.2008.blog.163.com/blog/static/48891852201232014813990/ 1.创建并初始化 创建UITextView的文件,并在.h文件中写入如下代码: [csharp] view plaincopy #import <UIKit/UIKit.h> @interface TextViewController : UIViewController <UITextViewDelegate> { UITe

Node.js开发入门—Stream用法详解

Stream是Node.js中非常重要的一个模块,应用广泛.一个流是一个具备了可读.可写或既可读又可写能力的接口,通过这些接口,我们可以和磁盘文件.套接字.HTTP请求来交互,实现数据从一个地方流动到另一个地方的功能. 所有的流都实现了EventEmitter的接口,具备事件能力,通过发射事件来反馈流的状态.比如有错误发生时会发射"error"事件,有数据可被读取时发射"data"事件.这样我们就可以注册监听器来处理某个事件,达到我们的目的. Node.js定义了R

Android开发技巧之viewstub用法详解及实现延迟加载

这一篇是接着上面的include标签的例子来讲的,地址http://blog.csdn.net/jason0539/article/details/26131831 上一篇的布局中间就用了viewstub这个控件,现在来说一下其作用和用法 " ViewStub 是一个不可见的,大小为0的View,最佳用途就是实现View的延迟加载,避免资源浪费,在需要的时候才加载View " 需要注意的是,加载view之后,viewstub本身就会被新加载进来的view替换掉 上代码了,看完就理解了

UIWebView用法详解及代码分享

今天加入一个QQ群,也算是一个圈子,群主的要求是满足他的三个条件.经过与群主的沟通,终于得到通过,顺利加入. 群主是一个93年的小伙,而且是河南的老乡.没想到小伙子这么有号召力.我也是偶然在我的空间发现他的,看他每天发的文章,还挺有意思. 90后的小伙子都这么厉害了,有什么理由不努力奋斗呢!多加入以下圈子,认识一下身边的牛人.说不定会有意外的收获. 今天我们来详细UIWebView用法.UIWebView是iOS内置的浏览器控件,可以浏览网页.打开文档等 能够加载html/htm.pdf.doc

转：sql cast和convert用法详解

原文:http://www.2cto.com/database/201310/250880.html sql cast和convert用法详解 总结: 以下这条仅仅适用于mysql SELECT {fn CONCAT(CONVERT(user_id,CHAR),USER_NAME)} AS str FROM t_sys_user 以下这条仅仅适用于sqlserver2008 SELECT {fn CONCAT(CONVERT(CHAR,user_id),USER_NAME)} AS str FR