设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表
查看: 75|回复: 6

[每日一码] 由指定实体先后获取 N 个实体(包括指定实体)

[复制链接]

签到天数: 547 天

连续签到: 14 天

[LV.9]以坛为家II

已领礼包: 264个

财富等级: 日进斗金

发表于 2017-7-15 17:06:11 | 显示全部楼层 |阅读模式

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

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

x

  1. (defun entnext_n (e n / el)
  2.   (setq el (list e))
  3.   (repeat (1- n)
  4.     (if        (and (setq e (entnext e))
  5.              (not (member (cdr (assoc 0 (entget e)))
  6.                           '("ATTRIB" "VERTEX" "SEQEND")
  7.                   )
  8.              )
  9.         )
  10.       (setq el (cons e el))
  11.     )
  12.   )
  13.   (if (= n (length el))
  14.     (reverse el)
  15.     nil
  16.   )
  17. )



上一篇:判断 Line "相等"
下一篇:判断 ARC Circle PLINe "相等"
回复
百度谷歌雅虎搜狗搜搜有道360奇虎

使用道具 举报

签到天数: 498 天

连续签到: 4 天

[LV.9]以坛为家II

已领礼包: 18个

财富等级: 恭喜发财

发表于 2017-7-15 17:27:35 | 显示全部楼层
大师,一般什么时候用昵?
回复 支持 反对

使用道具 举报

签到天数: 547 天

连续签到: 14 天

[LV.9]以坛为家II

已领礼包: 264个

财富等级: 日进斗金

 楼主| 发表于 2017-7-15 21:11:43 来自手机 | 显示全部楼层
陆续发的函数最后会整合一个应用
回复 支持 反对

使用道具 举报

签到天数: 1431 天

连续签到: 38 天

[LV.10]以坛为家III

已领礼包: 4294个

财富等级: 富可敌国

发表于 2017-7-16 00:05:47 | 显示全部楼层
不错,谢谢分享。
回复 支持 反对

使用道具 举报

签到天数: 70 天

连续签到: 46 天

[LV.6]常住居民II

已领礼包: 178个

财富等级: 日进斗金

发表于 2017-7-16 08:00:54 | 显示全部楼层
感谢楼主分享
回复 支持 反对

使用道具 举报

签到天数: 1539 天

连续签到: 48 天

[LV.Master]伴坛终老I

已领礼包: 4572个

财富等级: 富可敌国

发表于 2017-7-16 10:17:11 | 显示全部楼层

实用,谢谢分享。
回复 支持 反对

使用道具 举报

签到天数: 1544 天

连续签到: 573 天

[LV.Master]伴坛终老I

已领礼包: 4669个

财富等级: 富可敌国

发表于 2017-7-18 00:17:30 | 显示全部楼层
谢谢分享。
回复

使用道具 举报

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

本版积分规则

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

辽公网安备 21040202000005号

GMT+8, 2017-7-28 04:47 , Processed in 0.648914 second(s), 83 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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