识别相连直线的阳角阴角

炫翔 · 发表于 2014-2-12 08:36:59

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

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

×

尖端朝外的是阳角,朝内的是阴角
求出红圈处的阳角点

st788796 · 发表于 2014-2-12 08:50:14

要看哪边是“内”，哪边是“外”！内角、外角是相对的，如果不是封闭线
前面有个机械行业识别什么角的程序可以参考，见每日插件

ysq101 · 发表于 2014-2-12 17:59:27

支持这个圆角功能。。。做五金模的这个功能很实用。。。。

守仁格竹GM · 发表于 2014-2-13 08:09:22

用偏移判断最简单

牢固 · 发表于 2014-2-13 10:34:58

先判断整体的顺逆时针方向，再逐个判断角点处三点的顺逆时针方向，和整体方向一致的，即为阳角点，否则为阴角！

守仁格竹GM · 发表于 2014-2-13 13:05:30

(setq ent (car(entsel)))
(setq pts (gm-Pts-open (gm-Get-Pline-Pt ent)))
(mapcar
  '(lambda(x / flag)
   (setq flag (gm-Pnt-IsPts x (gm-ListRemoveAtom x pts)))
   (cond
   ((= flag -1) (XX-Mk-Circle x 500))
   ((= flag 1) (XX-Mk-Circle x 200))
   ((= flag 0) nil)
   )
)
  pts
)

(defun gm-Pts-open (pts)
(if (equal (car pts) (last pts) 1e-5)
(reverse (cdr(reverse pts)))
pts
)
)
(defun gm-ListRemoveAtom (delAtom lst)
  (vl-remove nil (subst Nil delAtom lst))
)
:lol在这留个底，也是给大家看的
根据此点在去掉此点点集内外判断

st788796 · 发表于 2014-2-13 14:00:52

守仁格竹GM 发表于 2014-2-13 13:05
(setq ent (car(entsel)))
(setq pts (gm-Pts-open (gm-Get-Pline-Pt ent)))
(mapcar

思路不错，算原面积，去掉该点算一次，减小的是凸，扩大的是凹
不过效率值得商榷{:soso_e100:}

守仁格竹GM · 发表于 2014-2-13 14:19:08

st788796 发表于 2014-2-13 14:00
思路不错，算原面积，去掉该点算一次，减小的是凸，扩大的是凹
不过效率值得商榷

这个是角度法判断点在点集的内外
面积判断也可以实现，是一个道理，
这两种方法的效率确实都还是值得担心的

st788796 · 发表于 2014-2-13 14:40:13

插件中的算法:
对 Pline 点算面积( 含正负) 一次
后面是每三点面积
面积比较正负

/db_自贡黄明儒_ · 发表于 2014-2-13 16:48:38

楼上各位高手，办法比想法还多呀！

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

[研讨] 识别相连直线的阳角阴角

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

点评

点评

评分

点评

[研讨] 识别相连直线的阳角 阴角

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

点评

点评

评分

点评

[研讨] 识别相连直线的阳角阴角