露水2 发表于 2011-6-19 16:01:03

caoyin提供的已经跟新到一楼。

露水2 发表于 2011-6-19 16:14:43

caoyin 发表于 2011-6-18 00:23 static/image/common/back.gif
;选择0层以外的线
(defun c:test16()
(setq ss (ssget '((0 . "line")(8 . "~0"))))


caoyin太酷了再结合字母和数字的选择模式可以选择不同图层的实体

chpmould 发表于 2011-6-19 16:51:26

不错的帖...

自贡黄明儒 发表于 2011-6-25 10:06:18

;;1、一次产生n个不同选择集(if (setq ss (ssget)) (setq ss1 (ssget "_p" '((0 . "*TEXT")))))
;;2、空回车与否得出不结果的选择集(if (setq ss (ssget)) (setq ss (ssget "_p" flt)) (setq ss (ssget "_x" flt)))
;;3、有多个选择集时,(command "._Select" ss1 "")之后,就可以(ssget "_P")取得选择集ss1
;;4、于是两个选择集合并就可以用如下办法
(defun SS_SSjoin ( ss1 ss2 / ss)
(command "._Select" ss1 "_add" ss2 "")
(setq ss (ssget "_p"))
)
;;5、结合1 3一个选择集可以分裂成n个选择集
;;6、选择集相减
(defun SS_SSsub(ss1 ss2 / ss)
(command "._Select" ss1 "_Remove" ss2 "")
(setq ss (ssget "_P"))
)

crazylsp 发表于 2011-8-10 11:15:49

有一个问题选择中心点坐标小于某个范围的园，怎么选择呀？
(ssget '((0 . "CIRCLE")(-4."<=,<=,=")( 10 . '(2000 1000 0))) )

hzj526 发表于 2011-8-10 22:32:42

程序短小，好作品啊

gbhsu 发表于 2011-8-10 22:43:42

其他一些 慢慢再添加！！！


if 发表于 2011-8-11 00:04:36

回复 crazylsp 的帖子

(ssget
"X"
'((0 . "CIRCLE")
   (-4 . "<=,<=,=")
(10 2000 1000 0)
)
)

crazylsp 发表于 2011-8-11 15:34:04

本帖最后由 crazylsp 于 2011-8-11 15:58 编辑

多谢楼上大师的指点
省略了测试 *和<>等价

jicqj 发表于 2011-10-17 00:56:40

太强大了
页: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18
查看完整版本: ssget 后跟mode 的部分理解(不断更新)