关于选择集合并的问题

lisp_beginner · 发表于 2016-10-29 11:44:55

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

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

×

我创建了两个选择集
(setq ss1 (ssget '((0 . "line"))))
......
(setq ss2 (ssget '((0 . "POLYLINE"))))

以后的代码我如果想一次用这两个选择集，怎么能得到？

Lisphk · 发表于 2016-10-29 11:58:46

(command ".select" ss1 ss2 "")
(setq ss (ssget "p"))

marting · 发表于 2016-10-29 12:13:13

(defun _ssmerge (ss1 ss2 / i)
(setq i -1)
(repeat (sslength ss2)
(ssadd ss1 (ssname ss2 (setq i (1+ i))))
)
ss1
)

Lisphk · 发表于 2016-10-31 08:46:28

收集的, 可以合并多个（超过2个）选择集

(defun MergeSelectionSets ( ListOfSSs / Lst nSS )
        (if (apply 'and (mapcar '(lambda (x) (= 'PICKSET (type x))) ListOfSSs))
                (progn
                        (setq nSS (ssadd))
                        (mapcar 
                                (function 
                                        (lambda (x / i) 
                                                (repeat (setq i (sslength x))
                                                        (ssadd (ssname x (setq i (1- i))) nSS)
                                                )
                                        )
                                )
                                ListOfSSs
                        )
                )
        )
        nSS
)

用法：

(defun C:tt ( / SS ListOfSSs )
        
        (while (and (setq SS (ssget "_:L")) (princ "\n选择对象或回车结束: "))
                (setq ListOfSSs (cons SS ListOfSSs))
        )
        
        (sssetfirst nil (MergeSelectionSets ListOfSSs))
        (princ)
)

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

[求助] 关于选择集合并的问题

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