写给新手，也谈已知选择集中根据实体类型筛选实体及代码优化

fangmin723

1. (defun C:swed(/ ss ssgetpy)
   
2.         (defun ssgetpy(ssall entpy)
   
3.                 (sssetfirst nil ssall)
   
4.                 ;(vl-cmdf "SELECT" ssall "")
   
5.                 (ssget "P" (list (cons 1 entpy)))
   
6.         )
   
7.         (if (setq ss (ssget '((0 . "*TEXT") (1 . "A*,B*,C*,D*") (7 . "宋 宽0.7 高3,宋 宽0.75 高3"))))
   
8.                 (progn
   
9.                         (setq
   
10.                                 alst (ssgetpy ss "A*")
    
11.                                 blst (ssgetpy ss "B*")
    
12.                                 clst (ssgetpy ss "C*")
    
13.                                 dlst (ssgetpy ss "D*")
    
14.                         )
    
15.                 )
    
16.         )
    
17. )

(defun C:swed(/ ss ssgetpy)<br />         (defun ssgetpy(ssall entpy)<br />                 (sssetfirst nil ssall)<br />                 ;(vl-cmdf "SELECT" ssall "")<br />                 (ssget "P" (list (cons 1 entpy)))<br />         )<br />         (if (setq ss (ssget '((0 . "*TEXT") (1 . "A*,B*,C*,D*") (7 . "宋 宽0.7 高3,宋 宽0.75 高3"))))<br />                 (progn<br />                         (setq<br />                                 alst (ssgetpy ss "A*")<br />                                 blst (ssgetpy ss "B*")<br />                                 clst (ssgetpy ss "C*")<br />                                 dlst (ssgetpy ss "D*")<br />                         )<br />                 )<br />         )<br /> )

这个程序中ssgetpy函数只有效一次，不知道是啥原因！

Sonnenblumen

讲的很详细，学习无止境

xvjiex

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

zmzk

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

masterlong

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

myhomer

学习无止境