找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 24382|回复: 251

[每日一码] [功能] 多段线除重点---实用版

 火... [复制链接]

已领礼包: 604个

财富等级: 财运亨通

发表于 2015-1-8 12:39:00 | 显示全部楼层 |阅读模式

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

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

×
本帖最后由 /db_自贡黄明儒_ 于 2015-1-9 11:50 编辑

;;[功能] 多段线除重点---实用版---新鲜出炉

  1. ;;(HH:Remove1 (ssname (ssget "_+.:E:S" '((0 . "LWPOLYLINE"))) 0))
  2. (defun HH:Remove1 (e / FLAG LST PTS)
  3.   (setq pts (OverPtsPL e))
  4.   (foreach x (entget e)
  5.     (cond
  6.       ((= 10 (car x))
  7.        (setq Flag (car pts))
  8.        (setq pts (cdr pts))
  9.        (cond ((not Flag) (setq Lst (cons x Lst))))
  10.       )
  11.       (T (setq Lst (cons x Lst)))
  12.     )
  13.   )
  14.   (entmod (reverse Lst))
  15.   (princ)
  16. )
游客,如果您要查看本帖隐藏内容请回复

1.gif

评分

参与人数 1D豆 +5 收起 理由
xshrimp + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

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

已领礼包: 2963个

财富等级: 家财万贯

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2015-1-8 14:01:29 | 显示全部楼层
带弧线的,封闭,不封闭的都测试了吗?

点评

这个主要删除在一条线的点 封闭的也测试了,大部分情况下是正确的  详情 回复 发表于 2015-1-8 14:51
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

 楼主| 发表于 2015-1-8 14:51:25 | 显示全部楼层
newer 发表于 2015-1-8 14:01
带弧线的,封闭,不封闭的都测试了吗?

这个主要删除在一条线的点
封闭的也测试了,大部分情况下是正确的{:soso_e113:}

点评

那哪部分不正确?  详情 回复 发表于 2015-1-8 16:02
黄大师伟大,,,学习了,。。 这个加入《关于多线段》里呀  详情 回复 发表于 2015-1-8 15:59
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 685个

财富等级: 财运亨通

发表于 2015-1-8 15:59:58 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2015-1-8 14:51
这个主要删除在一条线的点
封闭的也测试了,大部分情况下是正确的

黄大师伟大,,,学习了,。。
这个加入《关于多线段》里呀

点评

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2015-1-8 16:02:54 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2015-1-8 14:51
这个主要删除在一条线的点
封闭的也测试了,大部分情况下是正确的

那哪部分不正确?

点评

首尾点在一条线上,且不封闭时,不正确 改个子函数就好了 ;;114.3 [功能] 多段线端点与前后点是否在同一直线上 ;;(OverPtsPL (car(entsel)))=>(T T nil nil nil T nil T T) (defun OverPtsPL (e / LST LST0 LST1  详情 回复 发表于 2015-1-8 16:05
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

 楼主| 发表于 2015-1-8 16:05:14 | 显示全部楼层
newer 发表于 2015-1-8 16:02
那哪部分不正确?

首尾点在一条线上,且不封闭时,不正确
改个子函数就好了
;;114.3 [功能] 多段线端点与前后点是否在同一直线上
;;(OverPtsPL (car(entsel)))=>(T T nil nil nil T nil T T)
(defun OverPtsPL (e / LST LST0 LST1 LST2 X Y Z)
  (setq lst0 (HH:PtLists e))
  (cond
    ((HH:isClosed e)
     (setq lst1 (append (cdr lst0) (list (car lst0))))
     (setq lst2 (cons (last lst0) lst0))
     (mapcar '(lambda (x y z) (PtIn2Pts1 x y z 0.001)) lst0 lst2 lst1)
    )
    (T
     (setq lst1 (cdr lst0))
     (setq lst2 (cdr lst1))
     (setq lst (mapcar '(lambda (x y z) (PtIn2Pts1 x y z 0.001)) lst1 lst0 lst2))
     (setq lst (append (cons nil lst) (list nil)))
    )
  )
)

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

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

 楼主| 发表于 2015-1-8 16:07:12 | 显示全部楼层
ysq101 发表于 2015-1-8 15:59
黄大师伟大,,,学习了,。。
这个加入《关于多线段》里呀

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

使用道具 举报

已领礼包: 3199个

财富等级: 富可敌国

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

使用道具 举报

已领礼包: 3199个

财富等级: 富可敌国

发表于 2015-1-8 16:11:48 | 显示全部楼层
黄大师,应该把“禁用表情” 勾上, 都显示成表情符号了

点评

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

使用道具 举报

已领礼包: 149个

财富等级: 日进斗金

发表于 2015-1-8 16:24:51 | 显示全部楼层
本帖最后由 明天你好 于 2015-1-8 16:34 编辑

看看! 谢谢分享


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

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

 楼主| 发表于 2015-1-8 16:37:06 | 显示全部楼层
lucas3 发表于 2015-1-8 16:11
黄大师,应该把“禁用表情” 勾上, 都显示成表情符号了

勾上也有,{:soso_e110:}

点评

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

使用道具 举报

已领礼包: 9个

财富等级: 恭喜发财

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-12-4 22:41 , Processed in 0.517082 second(s), 61 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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