设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 开源函数库 › (XD::Layer:GetBy70)根据70组码获得所有符合条件的图层 ...
返回列表 发新帖
查看: 2546|回复: 6

[图层] (XD::Layer:GetBy70)根据70组码获得所有符合条件的图层

[复制链接]
Lispboy

已领礼包: 51个

财富等级: 招财进宝
发表于 2013-7-11 16:17:34 | 显示全部楼层 |阅读模式
函数发布
函数名称: XD::Layer:GetBy70
调用格式: (XD::Layer:GetBy70 key tf)
参数说明: 参数：key --- 组码值
1；冻结
4：锁定
tf --- 标记布尔值，T 求真 NIL 求反
返回值: 表
函数简介: 根据70组码获得所有符合条件的图层
函数来源: 转载
函数作者: XDSoft
适用版本: XDRX API 
最后更新时间: 2013-07-11
备注: -
演示图片: -

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

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

×
  1. ;|
  2. 根据70组码获得所有符合条件的图层
  3. 参数：key --- 组码值
  4.               1；冻结
  5.               4：锁定
  6.       tf --- 标记布尔值，T 求真 NIL 求反
  7. 返回值：表
  8. |;
  9. (defun XD::Layer:GetBy70 (key tf / e layerl obj  locktf)
  10.   (setq obj (xdrx_object_get "layer"))
  11.   (while (setq e (xdrx_object_next))
  12.     (setq locktf (xdrx_getentdxf 70))
  13.     (if        tf
  14.       (progn
  15.         (and (or (and (= key 0) (= locktf 0))
  16.                  (and (/= locktf 0) (= locktf (logand locktf key)))
  17.              )
  18.              (setq layerl (cons (car e) layerl))
  19.         )
  20.       )
  21.       (progn
  22.         (and (not (or (and (= key 0) (= locktf 0))
  23.                       (and (/= locktf 0) (= locktf (logand locktf key)))
  24.                   )
  25.              )
  26.              (setq layerl (cons (car e) layerl))
  27.         )
  28.       )
  29.     )
  30.   )
  31.   (reverse layerl)
  32. )

布尔

相关帖子

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

使用道具 举报

jyzas

已领礼包: 221个

财富等级: 日进斗金
发表于 2013-7-12 21:16:00 | 显示全部楼层
学习了，谢谢分享:loveliness:
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

dyjwyqz5221

已领礼包: 202个

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

使用道具 举报

humaster

已领礼包: 5个

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

使用道具 举报

wzjck01

已领礼包: 15个

财富等级: 恭喜发财
发表于 2021-1-26 23:31:47 | 显示全部楼层
学习了，谢谢分享:loveliness:
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

wzjck01

已领礼包: 15个

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

使用道具 举报

wzjck01

已领礼包: 15个

财富等级: 恭喜发财
发表于 2021-6-9 09:37:56 | 显示全部楼层
多谢分享！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-25 15:40 , Processed in 0.411846 second(s), 46 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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