LispFunction AppendAttribute to BlockReference
a/vlisp中对块的属性修改、追加很麻烦，在上一帖的基础上改成一个 Lisp 函数Lisp函数
功能： 对属性块修改属性（如果有）、追加属性（如果没有）
使用方法：(Insert_AppendAttrib e pt tag value)
e -- 块
pt - 属性插入点，如果块包含指定属性，该值无效
tag -- 属性标签
value -- 属性值
**** Hidden Message ***** 有则改之，无则加之！ 本帖最后由 lucas3 于 2015-6-2 11:10 编辑
完全不懂啊,还是来个成品实在 回复学习楼主的程序，谢谢 本帖最后由 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
csharp 发表于 2015-6-2 19:13
(insert_appendatrib e pt tag value)
insertattrib_17.dll 2007 ~ 2012
感谢大师，有求必应 ，
测试了下，运行后什么都没发生，返回nil是什么意思？
nil一般是没有成功 修复在含有属性且指定 Tag 不存在时不能追加Bug，另外增加 insert_getatts 函数
(insert_getatts e) 获取属性块属性实体列表 iLisp 发表于 2015-6-2 22:15
nil一般是没有成功
知道是没成功,问题是怎么都是nil ,你那测试成功没?
csharp 发表于 2015-6-2 23:55
修复在含有属性且指定 Tag 不存在时不能追加Bug，另外增加 insert_getatts 函数
(insert_getatts e) 获取 ...
属性块名为TitleBar, (insert_getatts "TitleBar")或(insert_getatts TitleBar) 都试过,还是nil
lucas3 发表于 2015-6-3 12:39
属性块名为TitleBar, (insert_getatts "TitleBar")或(insert_getatts TitleBar) 都试过,还是nil
(insert_getatts (car (entsel))) 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>)
最近大师们都转C了...学习帖子变少了.....
不成功, 有没有人试用成功的? csharp大师帮看看呀 回复学习学习！