同时只选择几种类型图形的函数

wosiguwozai0830

;实现要同时选中几种图形，提前筛选
;例子(cl:ssorys '(((2 . "zhushituccbj"))((0 . "MTEXT"))))，返回((-4 . "<or") (-4 . "<and") (0 . "MTEXT") (-4 . "and>") (-4 . "<and") (2 . "zhushituccbj") (-4 . "and>") (-4 . "or>")),  例子中同时选中图块名称为zhushituccbj的图块和多行文字

(defun cl:ssorys(zmzb / resb resb1)
        (setq resb zmzb)
        (setq resb(mapcar '(lambda(x)(append '((-4 . "<and")) x '((-4 . "and>"))))resb))
        (setq resb1 '())
        (mapcar '(lambda(x)(setq resb1(append x resb1))) resb)
        (setq resb1(append '((-4 . "<or")) resb1 '((-4 . "or>"))))
)

xyp1964

1. (defun ssgetM (qlst / ss);选择模式
   
2.   ;; (setq ss (ssgetM '(((0 . "lw*")(62 . 3))((0 . "line")(62 . 1)))))
   
3.   (setq qlst(mapcar '(lambda (x) (append '((-4 . "<and")) x '((-4 . "and>"))))qlst))
   
4.   (setq ss (ssget (append '((-4 . "<or")) (apply 'append qlst) '((-4 . "or>")))))
   
5.   (sssetfirst nil ss)
   
6.   ss
   
7. )

(defun ssgetM (qlst / ss);选择模式<br />   ;; (setq ss (ssgetM '(((0 . "lw*")(62 . 3))((0 . "line")(62 . 1)))))<br />   (setq qlst(mapcar '(lambda (x) (append '((-4 . "<and")) x '((-4 . "and>"))))qlst))<br />   (setq ss (ssget (append '((-4 . "<or")) (apply 'append qlst) '((-4 . "or>")))))<br />   (sssetfirst nil ss)<br />   ss<br /> )

自贡黄明儒

http://bbs.mjtd.com/forum.php?mo ... amp;highlight=ssget
这里比较全

wosiguwozai0830

自贡黄明儒 发表于 2025-2-28 15:54
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=177750&highlight=ssget
这里比较全

好的，之前也参考过这里面，是因为不想输入  '((-4 . "<or")) 等这些字符，弄了个简单的函数偷懒，当然功能也很有限

wosiguwozai0830

xyp1964 发表于 2025-2-28 15:55

大佬这写法简洁多了，早看到就抄作业了