本帖最后由 hehoubin 于 2013-10-21 15:40 编辑
 - (defun c:bj (/ ss lastent lastent2 s1 s2 e f) 并集
- (setq ss (ssget))
- (setq lastent (entlast))
- (setq s1 (ssadd))
- (command ".region" ss "")
- (while (setq e (entnext lastent))
- (ssadd e s1)
- (setq lastent e))
- (command ".union" s1 "")
- (setq lastent2 (entlast))
- (command ".explode" lastent2 )
- (setq s2 (ssadd))
- (while (setq f (entnext lastent2))
- (ssadd f s2)
- (setq lastent2 f)
- )
- (setvar "PEDITACCEPT" 0)
- (command "_.pedit" "_m" s2 "" "_y" "_j" "0" "c" "" ))
这个程序只能比较成一个区域并并分解
希望能改成并集成多个区域并分解
多谢大侠们的帮忙。。
|