[功能] 两对象交点列表

自贡黄明儒 · 发表于 2014-4-7 20:37:55

;;[功能] 两对象交点列表
;;acextendnone 0 不延伸
;;acextendthisentity 1 延伸基准对象
;;acextendotherentity 2
;;acextendboth 3
;;示例(HH:TwoEntsInters (car(entsel)) (car(entsel)) 0)
(defun HH:TwoEntsInters (e1 e2 Flag / OBJ1 OBJ2 PTL PTS)
  (setq obj1 (vlax-ename->vla-object e1))
  (setq obj2 (vlax-ename->vla-object e2))
  (setq pts (vlax-invoke obj1 'Intersectwith obj2 Flag))
  (while pts
(setq ptl (cons (list (car pts) (cadr pts)) ptl))
(setq pts (cdddr pts))
  )
  ptl
)

54256 · 发表于 2023-3-14 09:16:39

本帖最后由 54256 于 2023-3-14 09:21 编辑

大师，请教一下这个的使用

我想获得直线和块的交点的坐标，类似下图的效果

实际上，如果图块是正的，用你的函数没有问题，如果图块是斜的，结果如下图

我感觉是这个交点取得是块的外包络，如下图这样

我转了ucs结果还是这样，大师，该怎样破？

magicheno · 发表于 2023-12-12 01:49:02

学习了，感谢大佬分享

shirker · 发表于 2024-2-16 21:04:13

感谢分享，学习收藏

杜阳 · 发表于 2014-4-7 21:00:00

小程序小代码对初学者很好

lyqiezi · 发表于 2014-4-7 22:03:41

这个好像很有用，看一下
另外，黄大师，麻烦你回你的排序帖子看一下，有个问题我没搞明白

ynhh · 发表于 2014-4-7 22:07:52

黄工高产哈

lostbalance · 发表于 2014-4-7 22:12:00

路过围观学习

cxs259 · 发表于 2014-4-7 22:32:51

黄工作品值得学习。。。。

819534890 · 发表于 2014-4-7 22:42:44

每天都在学习，学习分享

xujinhua · 发表于 2014-4-7 22:54:57

正需要这个..谢谢了

ysq101 · 发表于 2014-4-7 23:24:27

黄大师人品真好....谢谢分享

200853006 · 发表于 2014-4-8 00:27:06

回复看看！

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

[源码] [功能] 两对象交点列表

点评

评分

本帖被以下淘专辑推荐:

本帖子中包含更多资源

点评