找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 4738|回复: 37

[每日一码] LispFunction AppendAttribute to BlockReference

[复制链接]

已领礼包: 859个

财富等级: 财运亨通

发表于 2015-6-2 07:34:51 | 显示全部楼层 |阅读模式

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

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

×
a/vlisp中对块的属性修改、追加很麻烦,在上一帖的基础上改成一个 Lisp 函数

Lisp函数
功能: 对属性块修改属性(如果有)、追加属性(如果没有)
使用方法:(Insert_AppendAttrib e pt tag value)
e -- 块
pt - 属性插入点,如果块包含指定属性,该值无效
tag -- 属性标签
value -- 属性值
游客,如果您要查看本帖隐藏内容请回复

评分

参与人数 1D豆 +3 收起 理由
ScmTools + 3 技术引导讨论和指点奖!

查看全部评分

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

已领礼包: 1268个

财富等级: 财源广进

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

使用道具 举报

已领礼包: 3198个

财富等级: 富可敌国

发表于 2015-6-2 11:08:41 | 显示全部楼层
本帖最后由 lucas3 于 2015-6-2 11:10 编辑

完全不懂啊,还是来个成品实在

点评

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

使用道具 举报

已领礼包: 5581个

财富等级: 富甲天下

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

使用道具 举报

已领礼包: 859个

财富等级: 财运亨通

 楼主| 发表于 2015-6-2 19:13:55 | 显示全部楼层
本帖最后由 csharp 于 2015-6-2 23:52 编辑
lucas3 发表于 2015-6-2 11:08
完全不懂啊,还是来个成品实在

(insert_appendatrib e pt tag value)

insertattrib_17.dll    2007 ~ 2012
insertattrib_19.dll    2013 ~ 2016

Release.rar

8.88 KB, 下载次数: 37

点评

感谢大师,有求必应 , 测试了下,运行后什么都没发生,返回nil是什么意思?  详情 回复 发表于 2015-6-2 20:50
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3198个

财富等级: 富可敌国

发表于 2015-6-2 20:50:09 | 显示全部楼层
csharp 发表于 2015-6-2 19:13
(insert_appendatrib e pt tag value)

insertattrib_17.dll    2007 ~ 2012

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

使用道具 举报

已领礼包: 264个

财富等级: 日进斗金

发表于 2015-6-2 22:15:39 来自手机 | 显示全部楼层
nil一般是没有成功

点评

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

使用道具 举报

已领礼包: 859个

财富等级: 财运亨通

 楼主| 发表于 2015-6-2 23:55:34 | 显示全部楼层
修复在含有属性且指定 Tag 不存在时不能追加Bug,另外增加 insert_getatts 函数
(insert_getatts e) 获取属性块属性实体列表

点评

属性块名为TitleBar, (insert_getatts "TitleBar")或(insert_getatts TitleBar) 都试过,还是nil  详情 回复 发表于 2015-6-3 12:39
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3198个

财富等级: 富可敌国

发表于 2015-6-3 12:35:20 | 显示全部楼层
iLisp 发表于 2015-6-2 22:15
nil一般是没有成功

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

使用道具 举报

已领礼包: 3198个

财富等级: 富可敌国

发表于 2015-6-3 12:39:24 | 显示全部楼层
csharp 发表于 2015-6-2 23:55
修复在含有属性且指定 Tag 不存在时不能追加Bug,另外增加 insert_getatts 函数
(insert_getatts e) 获取 ...

属性块名为TitleBar, (insert_getatts "TitleBar")或(insert_getatts TitleBar) 都试过,还是nil

点评

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

使用道具 举报

已领礼包: 264个

财富等级: 日进斗金

发表于 2015-6-3 12:50:17 来自手机 | 显示全部楼层
lucas3 发表于 2015-6-3 12:39
属性块名为TitleBar, (insert_getatts "TitleBar")或(insert_getatts TitleBar) 都试过,还是nil

(insert_getatts (car (entsel)))

点评

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

使用道具 举报

已领礼包: 3198个

财富等级: 富可敌国

发表于 2015-6-3 13:39:16 | 显示全部楼层
iLisp 发表于 2015-6-3 12:50
(insert_getatts (car (entsel)))

Command: (insert_getatts (car (entsel)))
Select object: (<Entity name: 7ee38718> <Entity name: 7ee38720> <Entity name:
7ee38728> <Entity name: 7ee38730> <Entity name: 7ee38738> <Entity name:
7ee38740> <Entity name: 7ee38748> <Entity name: 7ee38750> <Entity name:
7ee38758> <Entity name: 7ee38760> <Entity name: 7ee38768> <Entity name:
7ee38770> <Entity name: 7ee38778> <Entity name: 7ee38780> <Entity name:
7ee38788> <Entity name: 7ee38790>)

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

使用道具 举报

已领礼包: 2476个

财富等级: 金玉满堂

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

使用道具 举报

已领礼包: 3198个

财富等级: 富可敌国

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

使用道具 举报

已领礼包: 3715个

财富等级: 富可敌国

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-4-16 17:36 , Processed in 0.230424 second(s), 68 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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