填充实体的布尔（交、并、差）运算

Lispboy · 发表于 2017-3-2 22:44:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:xdtb_habooler (/ e1 e2 msg myerr op oper)
(defun myerr (msg)
(princ "\n")
(princ msg)
(xdrx_pickset_redraw e1 e2 t)
(xdrx_end)
(princ)
)
(xdrx_begin)
(setq *error* myerr)
(if (and
(setq e1 (car (xdrx_entsel "\n选取第一个HATCH实体<退出>:" '
((0 . "HATCH"))
)
)
)
(xdrx_pickset_redraw e1)
(setq e2 (car (xdrx_entsel "\n选取第二个HATCH实体<退出>:" '
((0 . "HATCH"))
)
)
)
(xdrx_pickset_redraw e2)
)
(progn
(if (not #mpolygon_oper)
(setq #mpolygon_oper "union")
)
(xdrx_initget "U S I")
(if (setq oper (getkword (xdrx_prompt "\n选取操作方式[交(I)/并(U)/差(S)<"
(cond
((= #mpolygon_oper "union")
"并"
)
((= #mpolygon_oper "intersect")
"交"
)
(t
"差"
)
) ">:" t
)
)
)
(progn
(cond
((= oper "I")
(setq #mpolygon_oper "intersect")
)
((= oper "U")
(setq #mpolygon_oper "union")
)
((= oper "S")
(setq #mpolygon_oper "subtract")
)
)
)
)
(setq op (read (strcat "xdrx_mpolygon_" #mpolygon_oper)))
(if (and
(xdrx_hatch->mpolygon e1)
(setq e1 (entlast))
(xdrx_hatch->mpolygon e2)
(setq e2 (entlast))
(eval (cons op (list e1 e2)))
(xdrx_mpolygon->hatch e1)
(xdrx_mpolygon->hatch e2)
)
(progn
(xdrx_prompt "\n操作成功.")
)
(progn
(xdrx_prompt "\n操作失败.")
)
)
)
)
(setq *error* nil)
(xdrx_end)
(princ)
)

(defun c:xdtb_habooler (/ e1 e2 msg myerr op oper) 
  (defun myerr (msg) 
    (princ "\n") 
    (princ msg) 
    (xdrx_pickset_redraw e1 e2 t) 
    (xdrx_end) 
    (princ) 
  ) 
  (xdrx_begin) 
  (setq *error* myerr) 
  (if (and 
        (setq e1 (car (xdrx_entsel "\n选取第一个HATCH实体<退出>:" ' 
                                   ((0 . "HATCH")) 
                      ) 
                 ) 
        ) 
        (xdrx_pickset_redraw e1) 
        (setq e2 (car (xdrx_entsel "\n选取第二个HATCH实体<退出>:" ' 
                                   ((0 . "HATCH")) 
                      ) 
                 ) 
        ) 
        (xdrx_pickset_redraw e2) 
      ) 
    (progn 
      (if (not #mpolygon_oper) 
        (setq #mpolygon_oper "union") 
      ) 
      (xdrx_initget "U S I") 
      (if (setq oper (getkword (xdrx_prompt "\n选取操作方式[交(I)/并(U)/差(S)<" 
                                            (cond 
                                              ((= #mpolygon_oper "union") 
                                                "并" 
                                              ) 
                                              ((= #mpolygon_oper "intersect") 
                                                "交" 
                                              ) 
                                              (t 
                                                "差" 
                                              ) 
                                            ) ">:" t 
                               ) 
                     ) 
          ) 
        (progn 
          (cond 
            ((= oper "I") 
              (setq #mpolygon_oper "intersect") 
            ) 
            ((= oper "U") 
              (setq #mpolygon_oper "union") 
            ) 
            ((= oper "S") 
              (setq #mpolygon_oper "subtract") 
            ) 
          ) 
        ) 
      ) 
      (setq op (read (strcat "xdrx_mpolygon_" #mpolygon_oper))) 
      (if (and 
            (xdrx_hatch->mpolygon e1) 
            (setq e1 (entlast)) 
            (xdrx_hatch->mpolygon e2) 
            (setq e2 (entlast)) 
            (eval (cons op (list e1 e2))) 
            (xdrx_mpolygon->hatch e1) 
            (xdrx_mpolygon->hatch e2) 
          ) 
        (progn 
          (xdrx_prompt "\n操作成功.") 
        ) 
        (progn 
          (xdrx_prompt "\n操作失败.") 
        ) 
      ) 
    ) 
  ) 
  (setq *error* nil) 
  (xdrx_end) 
  (princ) 
)

330774521lhq · 发表于 2017-3-3 09:57:07

啥也不说了，感谢楼主分享哇！

qqqincccken · 发表于 2017-3-10 00:22:46

看起來真心不錯,感谢楼主分享哇！

tang285246625 · 发表于 2017-3-10 07:40:09

感谢楼主分享，谢谢了

wbf424069638 · 发表于 2017-5-29 20:26:29

感谢楼主分享，，，，，，，，，，，，，，，，，

abenmao168 · 发表于 2017-10-29 00:40:49

不错的资源，喜欢

yzhyxh · 发表于 2017-10-29 08:22:11

286628169 · 发表于 2017-10-29 11:29:53

shenjishenji~~

moto1986 · 发表于 2018-7-30 20:41:24

不错的资源，喜欢

账号		自动登录	找回密码
密码			立即注册

[填充] 填充实体的布尔（交、并、差）运算

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。