马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
空组就是组内没有实体的组,PURGE是处理不了的,因此写个代码处理下
 - (defun c:xdtb_grpdelempty (/ names grp)
- (xdrx-begin)
- (xdrx-object-get "group")
- (setq names nil)
- (while (setq grp (xdrx-object-next))
- (if (xdrx-getpropertyvalue (cadr grp) "isEmpty")
- (progn (setq names (cons (car grp) names))
- (xdrx-object-delete (cadr grp))
- )
- )
- )
- (xdrx-prompt "\n共发现空组"
- (length names)
- "个"
- (if (> (length names) 0)
- (strcat ",删除了" (xdrx-string-join names ","))
- "."
- )
- )
- (xdrx-end)
- (princ)
- )
再一种写法
 - (defun c:tt ()
- (xdrx-begin)
- (setq db (xdrx-database-select t)
- gdict (xdrx-getpropertyvalue db "groupdictionary")
- grps (xdrx-getpropertyvalue gdict "allentries")
- )
- (mapcar '(lambda (x)
- (if (xdrx-getpropertyvalue (cadr x) "isEmpty")
- (progn (setq names (cons (car x) names))
- (xdrx-object-delete (cadr x))
- )
- )
- )
- grps
- )
- )
|