根据孔径大小和文本前缀选择
(defunc: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,,,不选。
用小菜的选择易
页:
[1]