社区 › AutoLISP/Visual LISP 编程技术 › 写给新手，也谈已知选择集中根据实体类型筛选实体及代码优化

fangmin723 发表于 2020-5-29 11:11:13

(defun C:swed(/ ss ssgetpy)
      (defun ssgetpy(ssall entpy)
                (sssetfirst nil ssall)
                ;(vl-cmdf "SELECT" ssall "")
                (ssget "P" (list (cons 1 entpy)))
      )
      (if (setq ss (ssget '((0 . "*TEXT") (1 . "A*,B*,C*,D*") (7 . "宋 宽0.7 高3,宋 宽0.75 高3"))))
                (progn
                        (setq
                              alst (ssgetpy ss "A*")
                              blst (ssgetpy ss "B*")
                              clst (ssgetpy ss "C*")
                              dlst (ssgetpy ss "D*")
                        )
                )
      )
)
这个程序中ssgetpy函数只有效一次，不知道是啥原因！

Sonnenblumen 发表于 2020-7-1 16:54:36

讲的很详细，学习无止境

xvjiex 发表于 2020-7-2 23:40:49

深入浅出，写的非常好。代码就要多走函数，多走变量，最后模块化。

zmzk 发表于 2021-2-15 12:20:29

楼主，你的帖子给我启发，是否能够 永久保存选择集？关闭了cad文件，再打开这个文件，选择集还在？

masterlong 发表于 2021-2-17 03:08:51

直接保存选择集是不行的，可以变通一下，选择集转图元表，再转handent表，后表存为全局LDATA。不要再问记录以后怎么调用，能实现记录，自然就知道了该如何读取。

myhomer 发表于 2022-11-6 00:22:20

学习无止境

查看完整版本: 写给新手，也谈已知选择集中根据实体类型筛选实体及代码优化