马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
 - (defun c:xdtb_grpmovent (/ nas ents e1 e2 na1 na2 ents)
- (xdrx-begin)
- (while (setq e1 (car (xdrx-entsel "\n拾取要移出的对象<结束>:")))
- (setq ents (cons e1 ents))
- )
- (if (and (setq e2 (car (xdrx-entsel "\n点取实体确定移动后的组<退出>:")))
- (setq na2 (XD::Entity:GroupName e2 nil))
- )
- (progn (mapcar '(lambda (x)
- (if (setq na1 (XD::Entity:GroupName x nil))
- (progn (setq nas (cons na1 nas))
- (xdrx-group-removeentity (car na1) x)
- (xdrx-group-appendentity (car na2) x)
- )
- )
- )
- (setq ents (xd::list:removedup ents))
- )
- (xdrx-prompt
- "\n已经将"
- (length ents)
- "个实体从组"
- (xdrx-string-join (xd::list:removedup nas) ",")
- "移动到组"
- na2
- )
- )
- )
- (xdrx-end)
- (princ)
- )
|