wosiguwozai0830 发表于 2025-2-28 15:38:25

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

;实现要同时选中几种图形，提前筛选
;例子(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 发表于 2025-2-28 15:55:48

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

自贡黄明儒 发表于 2025-2-28 15:54:53

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=177750&highlight=ssget
这里比较全

wosiguwozai0830 发表于 2025-2-28 15:58:22

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

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

wosiguwozai0830 发表于 2025-2-28 16:08:22

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


大佬这写法简洁多了，早看到就抄作业了
页: [1]
查看完整版本: 同时只选择几种类型图形的函数