设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表
查看: 3781|回复: 128

[每日一码] [功能] 多段线是否真闭合

  [复制链接]

签到天数: 1188 天

连续签到: 22 天

[LV.10]以坛为家III

已领礼包: 604个

财富等级: 财运亨通

发表于 2015-2-4 09:39:44 | 显示全部楼层 |阅读模式

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

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

x
;; [功能] 多段线是否真闭合
;;非输入C闭合的为假闭合
(defun IsTrueClosePL (e)
游客,如果您要查看本帖隐藏内容请回复



上一篇:功能强大的 菜单工具 vs 天正菜单
下一篇:[功能] 使多段线真闭合

点评

vlax-curve-isclosed即可  发表于 2016-5-6 09:32
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复
百度谷歌雅虎搜狗搜搜有道360奇虎

使用道具 举报

签到天数: 1438 天

连续签到: 1 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 2917个

财富等级: 家财万贯

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

使用道具 举报

签到天数: 332 天

连续签到: 1 天

[LV.8]以坛为家I

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

使用道具 举报

签到天数: 786 天

连续签到: 1 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 1753个

财富等级: 堆金积玉

发表于 2015-2-4 11:37:47 | 显示全部楼层
(defun gm-Curve-isClosed (e / typent pts)
  (setq typent (gm-dxf 0 e))
  (cond
    ((or (= typent "LWPOLYLINE") (= typent "POLYLINE"))
      (or (vlax-curve-isClosed e)
          (progn
            (setq pts (gm-Get-Pline-Pt e))
            (equal (car pts) (last pts) 1e-5)
          )
      )
    )
    ((= typent "SPLINE,ELLIPSE")
      (vlax-curve-isClosed e)
    )
    ((= typent "CIRCLE")
      t
    )
    (t
      nil
    )
  )
)

点评

你是想包络所有曲线吧,还是有缺陷,比如椭圆一半时  详情 回复 发表于 2015-2-4 13:09
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 841 天

连续签到: 5 天

[LV.10]以坛为家III

已领礼包: 857个

财富等级: 财运亨通

发表于 2015-2-4 11:40:17 | 显示全部楼层
守仁格竹GM 发表于 2015-2-4 11:37
(defun gm-Curve-isClosed (e / typent pts)
  (setq typent (gm-dxf 0 e))
  (cond

  1. (or (vlax-curve-isclosed e)
  2.     (equal (vlax-curve-getstartpoint e)
  3.            (vlax-curve-getendpoint e)
  4.            1e-3
  5.     )
  6. )

点评

刚才又想了想 可能是我原来想多了,忘记什么情况了。现在看来 你这个很好  详情 回复 发表于 2015-2-4 13:05
仔细体会下我为何会那么写。  详情 回复 发表于 2015-2-4 12:55
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1750 天

连续签到: 259 天

[LV.Master]伴坛终老I

已领礼包: 5179个

财富等级: 富甲天下

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

使用道具 举报

签到天数: 1263 天

连续签到: 7 天

[LV.10]以坛为家III

已领礼包: 1596个

财富等级: 堆金积玉

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

使用道具 举报

签到天数: 786 天

连续签到: 1 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 1753个

财富等级: 堆金积玉

发表于 2015-2-4 12:55:21 | 显示全部楼层


仔细体会下我为何会那么写。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 786 天

连续签到: 1 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 1753个

财富等级: 堆金积玉

发表于 2015-2-4 13:05:22 | 显示全部楼层

  刚才又想了想  可能是我原来想多了,忘记什么情况了。现在看来 你这个很好
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1188 天

连续签到: 22 天

[LV.10]以坛为家III

已领礼包: 604个

财富等级: 财运亨通

 楼主| 发表于 2015-2-4 13:09:07 | 显示全部楼层
守仁格竹GM 发表于 2015-2-4 11:37
(defun gm-Curve-isClosed (e / typent pts)
  (setq typent (gm-dxf 0 e))
  (cond

你是想包络所有曲线吧,还是有缺陷,比如椭圆一半时
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1374 天

连续签到: 4 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 3838个

财富等级: 富可敌国

发表于 2015-2-4 13:37:31 | 显示全部楼层

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

使用道具 举报

签到天数: 6 天

连续签到: 1 天

[LV.2]偶尔看看I

发表于 2015-2-4 14:31:13 | 显示全部楼层

感谢楼无私分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 6 天

连续签到: 1 天

[LV.2]偶尔看看I

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

使用道具 举报

签到天数: 112 天

连续签到: 2 天

[LV.6]常住居民II

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

使用道具 举报

签到天数: 76 天

连续签到: 1 天

[LV.6]常住居民II

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

使用道具 举报

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

本版积分规则

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

辽公网安备 21040202000005号

GMT+8, 2018-2-24 12:24 , Processed in 0.769029 second(s), 130 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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