【API-拓扑函数（一）】介绍三个交、并、差函数

XDSoft · 发表于 2018-5-14 15:07:04

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

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

×

API提供三个功能强大的拓扑函数，交、并、差，可以在曲线、填充、面域、MPOLYGON任意两个实体之间实现交、并、差运算。

结果实体的类型取决于第一个实体，如果第一个是曲线，结果是曲线，第一个是填充，结果是填充....

(xdrx-get-intersect e1 e2)
(xdrx-get-union e1 e2)
(xdrx-get-subtract e1 e2)

;并
(defun c:tt ()
(if (and (setq e1 (car
(xdrx_entsel
"\n拾取曲线、面域、填充、MPOLYGON<退出>:"
'((0 . "*line,arc,circle,ellipse,hatch,region,mpolygon"))
)
)
)
(setq e2 (car
(xdrx_entsel
"\n拾取曲线、面域、填充、MPOLYGON<退出>:"
'((0 . "*line,arc,circle,ellipse,hatch,region,mpolygon"))
)
)
)
)
(progn (xdrx-get-union e1 e2))
)
(princ)
)

;差
(defun c:tt1 ()
(if (and (setq e1 (car
(xdrx_entsel
"\n拾取曲线、面域、填充、MPOLYGON<退出>:"
'((0 . "*line,arc,circle,ellipse,hatch,region,mpolygon"))
)
)
)
(setq e2 (car
(xdrx_entsel
"\n拾取曲线、面域、填充、MPOLYGON<退出>:"
'((0 . "*line,arc,circle,ellipse,hatch,region,mpolygon"))
)
)
)
)
(progn (xdrx-get-subtract e1 e2))
)
(princ)
)

;交
(defun c:tt2 ()
(if (and (setq e1 (car
(xdrx_entsel
"\n拾取曲线、面域、填充、MPOLYGON<退出>:"
'((0 . "*line,arc,circle,ellipse,hatch,region,mpolygon"))
)
)
)
(setq e2 (car
(xdrx_entsel
"\n拾取曲线、面域、填充、MPOLYGON<退出>:"
'((0 . "*line,arc,circle,ellipse,hatch,region,mpolygon"))
)
)
)
)
(progn (xdrx-get-intersect e1 e2))
)
(princ)
)

sh_h · 发表于 2018-5-14 16:26:39

真是太强大了!!!

ngc · 发表于 2018-5-14 21:34:38

太强大了

HLCAD · 发表于 2018-5-16 16:24:23

管理员同志，我的论坛积分突然从“副教授级高工”变成了“工程师”，莫名少了一千多分

newer · 发表于 2018-5-16 16:30:28

HLCAD 发表于 2018-5-16 16:24
管理员同志，我的论坛积分突然从“副教授级高工”变成了“工程师”，莫名少了一千多分

后台调整了，整体调整，把在线时间的权重降低了，不是你一个人。

xinxirong · 发表于 2018-5-30 11:39:22

像这种SOLID的填充，entsel老是选不中，我看你的gif图既没有亮显，你怎么知道一定能选上？

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

[每日一码] 【API-拓扑函数（一）】介绍三个交、并、差函数

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

评分

点评