本帖最后由 xyp1964 于 2015-5-27 18:37 编辑
 - ;; tt(批量实体差集) 需要e派工具箱(XCAD)的支持
- (defun c:tt ()
- (xyp-Start)
- (setq i -1)
- (if (and (setq ss (ssget '((0 . "3DSOLID"))))
- (setq s0 (car (entsel "\n选择: ")))
- )
- (while (setq s1 (ssname ss (setq i (1+ i))))
- (xyp-copy s0)
- (setq s2 (entlast))
- (xyp-Boolean s1 s2 2)
- )
- )
- (xyp-End)
- )
|