本帖最后由 自贡黄明儒 于 2014-4-7 21:52 编辑
;;[功能] 过一点射线与曲线的交点
;;示例(HH:XYCurvePt (car(entsel)) (getpoint) "X"),返回过一点X轴上的点
(defun HH:XYCurvePt (e1 pt Flag / E2 LST PTS)
(setq e2 (EntmakeXline pt Flag))
(setq pts (HH:TwoEntsInters e1 e2 0))
(entdel e2)
pts
)网友答: 感谢分享 网友答: 请问能否得到射线与当前dwg文件中的最近交点，如果没有交点返回空？网友答: 一出就是几个啊 学习学习了网友答: 哈哈，学习了。。。。网友答: 学习学习网友答:
长老太牛了
网友答:
路过，学习，收藏网友答:
长老太牛了网友答: 长老太牛了网友答:
本帖最后由 ysq101 于 2014-4-7 23:27 编辑
这个可以用来IF点在多边形内外的子程序???
黄大师你坏坏啊...
HH:TwoEntsInters 这个应该是你自用的子函数吧...没一并发出来?网友答: 看看看看看看
;;[功能] 过一点射线与曲线的交点;;示例(HH:XYCurvePt (car(entsel)) (getpoint) "X"),返回过一点X轴上的点
(defun HH:XYCurvePt (e1 pt Flag / E2 LST PTS)
(setq e2 (EntmakeXline pt Flag))
(setq pts (HH:TwoEntsInters e1 e2 0))
(entdel e2)
pts
)网友答: 感谢分享 网友答: 请问能否得到射线与当前dwg文件中的最近交点，如果没有交点返回空？网友答: 一出就是几个啊 学习学习了网友答: 哈哈，学习了。。。。网友答: 学习学习
网友答:
长老太牛了网友答:
路过，学习，收藏网友答:
长老太牛了网友答: 长老太牛了
网友答:
本帖最后由 ysq101 于 2014-4-7 23:27 编辑 这个可以用来IF点在多边形内外的子程序???
黄大师你坏坏啊...
HH:TwoEntsInters 这个应该是你自用的子函数吧...没一并发出来?网友答: 看看看看看看