设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 选择集问题
返回列表 发新帖
查看: 685|回复: 9

[求助] 选择集问题

[复制链接]
wx_EKdL75Rx

已领礼包: 1个

财富等级: 恭喜发财
发表于 2018-10-15 09:03:09 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
已经有选择集 (setq SS (ssget))
怎样以选择集中的图层分别做选择集
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

wx_EKdL75Rx

已领礼包: 1个

财富等级: 恭喜发财
 楼主| 发表于 2018-10-15 12:54:49 | 显示全部楼层
marting 发表于 2018-10-15 11:34
命令: (setq a (SS-FILLTER (ssget)))

选择对象: 指定对角点: 找到 6 个

谢谢！非常感谢！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 1 反对 0

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2018-10-15 09:35:56 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
你应该做表，根据你的条件，比如选择集中的同一个层的放一个表里面，而不是用选择集，虽然代码上方法是差不多的，表更灵活，处理的函数也多。 选择集就比较受限制了，另外系统允许的选择集数也有限制。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

wx_EKdL75Rx

已领礼包: 1个

财富等级: 恭喜发财
 楼主| 发表于 2018-10-15 09:44:39 | 显示全部楼层
Lisphk 发表于 2018-10-15 09:35
你应该做表，根据你的条件，比如选择集中的同一个层的放一个表里面，而不是用选择集，虽然代码上方法是差不 ...

我想把选择集SS再以图层分成8个选择集

点评

Lisphk
然后这8个，你还想怎么用呢  详情 回复 发表于 2018-10-15 09:51
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2018-10-15 09:51:14 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
wx_EKdL75Rx 发表于 2018-10-15 09:44
我想把选择集SS再以图层分成8个选择集

然后这8个，你还想怎么用呢什么是再分成8个选择集，你确定里面有8个图层？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

wx_EKdL75Rx

已领礼包: 1个

财富等级: 恭喜发财
 楼主| 发表于 2018-10-15 09:55:13 | 显示全部楼层
Lisphk 发表于 2018-10-15 09:51
然后这8个，你还想怎么用呢什么是再分成8个选择集，你确定里面有8个图层？

这8个我要移动到不同的位置！图层我都知道是固定的！选择集里面都有！之前我是一个一个移动的！

点评

Lisphk
那就顺着你的思路来，遍历选择集，然后根据层名，用SSADD加入到新的选择集  详情 回复 发表于 2018-10-15 10:44
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2018-10-15 10:44:48 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
wx_EKdL75Rx 发表于 2018-10-15 09:55
这8个我要移动到不同的位置！图层我都知道是固定的！选择集里面都有！之前我是一个一个移动的！

那就顺着你的思路来，遍历选择集，然后根据层名，用SSADD加入到新的选择集
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

marting

已领礼包: 20个

财富等级: 恭喜发财
发表于 2018-10-15 11:34:42 | 显示全部楼层
  1. (defun ss-fillter (ss / i e ss1 lyrs)
  2.   (setq i    0
  3.         lyrs nil
  4.   )
  5.   (while (setq e (ssname ss i))
  6.     (setq i   (1+ i)
  7.           lyr (cdr (assoc 8 (entget e)))
  8.     )
  9.     (if (not (assoc lyr lyrs))
  10.       (progn (setq ss1 (ssadd))
  11.              (ssadd e ss1)
  12.              (setq lyrs (cons (list lyr ss1) lyrs))
  13.       )
  14.       (progn (setq ss1 (cadr (assoc lyr lyrs))) (ssadd e ss1))
  15.     )
  16.   )
  17.   lyrs
  18. )


命令: (setq a (SS-FILLTER (ssget)))

选择对象: 指定对角点: 找到 6 个

选择对象:
(("0" <Selection set: 75>) ("abc" <Selection set: 72>) ("def" <Selection set:
6d>))

命令: (setq c (cadr (assoc "def" a)))
<Selection set: 6d>

命令: (sslength c)
3

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

wx_EKdL75Rx

已领礼包: 1个

财富等级: 恭喜发财
 楼主| 发表于 2018-10-15 12:52:38 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Lisphk 发表于 2018-10-15 10:44
那就顺着你的思路来，遍历选择集，然后根据层名，用SSADD加入到新的选择集

谢谢！我解决了！
(defun c:ZN ();
  (setvar "cmdecho" 0)
        (setvar "osmode" 0)
  (setq p0 '(0 0))
  (setq sz_zn_jl 30000)
  (setq SZ_ZN_dd (polar p0 (/ pi 2) sz_zn_jl))
  (setq SZ_ZN_SS (ssget))
        (progn
                (setq SZ_ZN_QB (ssget "P" '((-4 . "<OR") (8 . "外墙") (8 . "内墙") (8 . "外墙端板") (8 . "内墙端板") (8 . "墙IC") (8 . "ICA") (8 . "墙EC") (-4 . "OR>"))))
                (command "select" SZ_ZN_SS "")
                (setq SZ_ZN_LB (ssget "P" '((-4 . "<OR") (8 . "BM") (8 . "BS") (8 . "DP") (8 . "横向C槽") (8 . "梁IC") (8 . "梁EC") (8 . "梁侧") (8 . "横向C槽2") (-4 . "OR>"))))
                (command "select" SZ_ZN_SS "")
                (setq SZ_ZN_KB (ssget "P" '((-4 . "<OR") (8 . "KEC") (8 . "ICK") (8 . "K板") (-4 . "OR>"))))
                (command "select" SZ_ZN_SS "")
                (setq SZ_ZN_LG (ssget "P" '((-4 . "<OR") (8 . "穿墙螺杆") (-4 . "OR>"))))
                (command "select" SZ_ZN_SS "")
                (setq SZ_ZN_BL1 (ssget "P" '((-4 . "<OR") (8 . "第一道") (-4 . "OR>"))))
                (command "select" SZ_ZN_SS "")
                (setq SZ_ZN_BL2 (ssget "P" '((-4 . "<OR") (8 . "第二道") (-4 . "OR>"))))
                (command "select" SZ_ZN_SS "")
                (setq SZ_ZN_BL3 (ssget "P" '((-4 . "<OR") (8 . "第三道") (-4 . "OR>"))))
                (command "select" SZ_ZN_SS "")
                (setq SZ_ZN_BL4 (ssget "P" '((-4 . "<OR") (8 . "第四道") (-4 . "OR>"))))
        )
        (progn
        (sz_zcx_zn_QB) (sz_zcx_zn_LB) (sz_zcx_zn_KB) (sz_zcx_zn_LG) (sz_zcx_zn_BL1) (sz_zcx_zn_BL2) (sz_zcx_zn_BL3) (sz_zcx_zn_BL4)
                )
)
(defun sz_zcx_zn_QB ()
  (command "MOVE" SZ_ZN_QB "" p0 SZ_ZN_dd )
  (setq SZ_ZN_dd (polar SZ_ZN_dd (/ pi 2) sz_zn_jl))       
)
(defun sz_zcx_zn_LB ()
  (command "MOVE" SZ_ZN_LB "" p0 SZ_ZN_dd )
  (setq SZ_ZN_dd (polar SZ_ZN_dd (/ pi 2) sz_zn_jl))       
)
(defun sz_zcx_zn_KB ()
  (command "MOVE" SZ_ZN_KB "" p0 SZ_ZN_dd )       
  (setq SZ_ZN_dd (polar SZ_ZN_dd (/ pi 2) sz_zn_jl))       
)
(defun sz_zcx_zn_LG ()
  (command "MOVE" SZ_ZN_LG "" p0 SZ_ZN_dd )
  (setq SZ_ZN_dd (polar SZ_ZN_dd (/ pi 2) sz_zn_jl))       
)
(defun sz_zcx_zn_BL1 ()
  (command "MOVE" SZ_ZN_BL1 "" p0 SZ_ZN_dd )       
  (setq SZ_ZN_dd (polar SZ_ZN_dd (/ pi 2) sz_zn_jl))       
)
(defun sz_zcx_zn_BL2 ()
  (command "MOVE" SZ_ZN_BL2 "" p0 SZ_ZN_dd )
  (setq SZ_ZN_dd (polar SZ_ZN_dd (/ pi 2) sz_zn_jl))       
)
(defun sz_zcx_zn_BL3 ()
  (command "MOVE" SZ_ZN_BL3 "" p0 SZ_ZN_dd )       
  (setq SZ_ZN_dd (polar SZ_ZN_dd (/ pi 2) sz_zn_jl))       
)
(defun sz_zcx_zn_BL4 ()
  (command "MOVE" SZ_ZN_BL4 "" p0 SZ_ZN_dd )
  (setq SZ_ZN_dd (polar SZ_ZN_dd (/ pi 2) sz_zn_jl))       
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2018-10-15 13:18:55 | 显示全部楼层
wx_EKdL75Rx 发表于 2018-10-15 12:54
谢谢！非常感谢！

http://bbs.xdcad.net/forum.php?m ... 1%BC%AF%B2%F0%B7%D6
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-14 20:29 , Processed in 0.378214 second(s), 51 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表