LispFunction AppendAttribute to BlockReference

csharp

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

Lisp函数
功能： 对属性块修改属性（如果有）、追加属性（如果没有）
使用方法：(Insert_AppendAttrib e pt tag value)
e -- 块
pt - 属性插入点，如果块包含指定属性，该值无效
tag -- 属性标签
value -- 属性值

游客，如果您要查看本帖隐藏内容请回复

st788796

有则改之，无则加之！

lucas3

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

HLCAD

回复学习楼主的程序，谢谢

csharp

lucas3 发表于 2015-6-2 11:08
完全不懂啊,还是来个成品实在

(insert_appendatrib e pt tag value)

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

lucas3

csharp 发表于 2015-6-2 19:13
(insert_appendatrib e pt tag value)

insertattrib_17.dll    2007 ~ 2012

感谢大师，有求必应 ，
测试了下，运行后什么都没发生，返回nil是什么意思？

iLisp

nil一般是没有成功

csharp

修复在含有属性且指定 Tag 不存在时不能追加Bug，另外增加 insert_getatts 函数
(insert_getatts e) 获取属性块属性实体列表

lucas3

iLisp 发表于 2015-6-2 22:15
nil一般是没有成功

知道是没成功,问题是怎么都是nil ,你那测试成功没?

lucas3

csharp 发表于 2015-6-2 23:55
修复在含有属性且指定 Tag 不存在时不能追加Bug，另外增加 insert_getatts 函数
(insert_getatts e) 获取 ...

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

iLisp

lucas3 发表于 2015-6-3 12:39
属性块名为TitleBar, (insert_getatts "TitleBar")或(insert_getatts TitleBar) 都试过,还是nil

(insert_getatts (car (entsel)))

lucas3

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>)

q3_2006

最近大师们都转C了...学习帖子变少了.....

lucas3

不成功, 有没有人试用成功的? csharp大师帮看看呀

dnbcgrass

回复学习学习！