马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
封闭曲线、面域、填充、MPOLYGON之间求并
结果实体类型同第一个实体
 - (defun c:xdtb_union (/ e1 ss x)
- (if (and (setq e1 (car (xdrx_entsel
- "\n选择第一个对象<退出>:"
- '((-4 . "<or")
- (0 . "region,hatch,mpolygon,circle,ellipse")
- (-4 . "<and")
- (0 . "*polyline")
- (-4 . "&=")
- (70 . 1)
- (-4 . "and>")
- (-4 . "or>")
- )
- )
- )
- )
- (xdrx_initssget "\n选择求并的对象<退出>:")
- (setq ss (xdrx_ssget
- '((-4 . "<or")
- (0 . "region,hatch,mpolygon,circle,ellipse")
- (-4 . "<and")
- (0 . "*polyline")
- (-4 . "&=")
- (70 . 1)
- (-4 . "and>")
- (-4 . "or>")
- )
- )
- )
- )
- (progn (xdrx_begin)
- (mapcar '(lambda (x)
- (if (not (equal x e1))
- (xdrx_get_union e1 x)
- )
- )
- (xdrx_pickset->ents ss)
- )
- (xdrx_prompt "\n布尔求并成功.")
- (xdrx_end)
- )
- )
- (princ)
- )
|