本帖最后由 llsheng_73 于 2015-12-18 13:03 编辑
- (defun xdateof(e code str)
- (vl-some'(lambda(x / b)(if(setq b(vl-string-search str x))(=(substr x(1+ b))str)))
- (mapcar'cdr(vl-remove-if'(lambda(x)(/=(car x)1000))(cdr(last(assoc -3(entget e(list code)))))))))
- (defun C:K333 (/ e i s)
- (if(setq i 0 s(ssget "X"'((-3("PMF_GROUP_HEADER_KEGAKI")))))
- (progn
- (repeat(sslength s)
- (if(xdateof(setq e(ssname s i))"PMF_GROUP_HEADER_KEGAKI""STUD=M24×35")
- (setq i(1+ i))
- (ssdel e s)))
- (sssetfirst nil s)
- (if(>(setq i(sslength s))0)(strcat "〓共选择了【"(itoa i)"】个对象〓"))))
- )
命令: k333 "〓共选择了【51】个对象〓" |