设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 85|回复: 2

[发布] 函数 xdrx_polyline_isselfIntersect (多段线自交判断)介绍

[复制链接]

签到天数: 386 天

连续签到: 2 天

[LV.9]以坛为家II

已领礼包: 51个

财富等级: 招财进宝

发表于 2017-8-7 22:49:35 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
本帖最后由 Lispboy 于 2017-8-7 22:51 编辑

搜狗截图20170807224257.png

  1. (defun c:tt ()
  2.   (if (and (setq
  3.              e (car
  4.                  (xdrx_entsel "\n拾取多段线<退出>" '((0 . "LWPOLYLINE")))
  5.                )
  6.            )
  7.            (setq ins (xdrx_polyline_isselfintersect e 1))
  8.       )
  9.     (progn
  10.       (mapcar '(lambda (x)
  11.                  (xdrx_grdraw  2 0 x 3 3)
  12.                )
  13.               ins
  14.       )
  15.     )
  16.   )
  17.   (princ)
  18. )


xdrx_polyline_isselfintersect

用法:(xdrx_polyline_isselfintersect ent mode)
参数:ent ---- 多段线实体名
          mode-- 0 (返回自交点数量)
                        1 (返回自交点坐标表
                        2 (返回自交点参数表

交点坐标表长度 = 参数0返回值
交点参数表 = 交点数量x2 (一个交点对于两个参数,这两个参数对应一个点)


命令: (xdrx_polyline_isselfintersect e 0)
3

命令: (xdrx_polyline_isselfintersect e 1)
((18714.0 2192.83 0.0) (19711.6 2125.27 0.0) (18772.0 1908.43 0.0))

命令: (xdrx_polyline_isselfintersect e 2)
(1.17218 3.62837 1.81808 5.18041 3.48957 6.13156)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

签到天数: 36 天

连续签到: 2 天

[LV.5]常住居民I

已领礼包: 96个

财富等级: 招财进宝

发表于 2017-8-8 08:12:52 | 显示全部楼层
嗯,看看再说。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 19 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 1个

财富等级: 恭喜发财

发表于 2017-10-3 03:03:13 来自手机 | 显示全部楼层
嗯,看看再说。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2018-8-18 13:35 , Processed in 0.159999 second(s), 26 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表