根据孔径大小和文本前缀选择

皇上快溜

(defun  c:qq(/ ent ent0 ss)
  (if (and (setq ent (car (entsel "\n选择一个实体类型<退出>:")))
          (setq ent0 (assoc 0 (entget ent)))
      )
    (progn
      (setq ss (ssget (list ent0)))
      (sssetfirst nil ss)
      (princ (strcat "\n共选中了" (itoa (sslength ss)) "个 <" (cdr ent0) ">。"))
    )
  )
  (princ)
)
这个快速选择程序，想请各位大侠帮忙改一下。
在(entsel "\n选择一个实体类型<退出>:")))时，点选的圆孔直径是多大，框选时就只选该直径值的圆。
在(entsel "\n选择一个实体类型<退出>:")))时，点选的文本前缀为A1 或A2 或A19，框选时就只选前缀为A,,,的文本，B,,,和C,,,不选。

自贡黄明儒

用小菜的选择易