fsafaffa 发表于 2017-11-3 14:41:36

顶，帮楼主顶出来

vladimir 发表于 2017-11-7 09:56:17

不错的程序，谢谢分享啊。

fools 发表于 2017-11-7 13:04:39

yoyoho 发表于 2017-11-3 14:20
呵呵! 兄台可以解决方法吗? 可否分享?

这么多年，也不搜索一下？07年就已经有源码了

添加普通文字到图块成为属性
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=57892&fromuid=189685
(出处: 明经CAD社区)

yoyoho 发表于 2017-11-7 14:06:02

fools 发表于 2017-11-7 13:04
这么多年，也不搜索一下？07年就已经有源码了

添加普通文字到图块成为属性


AUTOCAD2012下测试没能成功不晓得什么原因喔?

指令:
ADDATT
选择块 :
请选择文字到文字属性块去
选取物件: 找到 1 个

选取物件:

Erase the attached texts :Y
; 错误: 发生异常状况: 0xC0000005 (存取违犯)
; 警告: unwind 略过 异常状况
; 错误: 发生异常状况: 0xC0000005 (存取违犯)

fools 发表于 2017-11-7 15:24:32

yoyoho 发表于 2017-11-7 14:06
AUTOCAD2012下测试没能成功不晓得什么原因喔?

指令:


那是07年的代码,当时比较习惯把组码100的写在一齐，看着整齐
随着CAD版本不断更新，部分实体对组码顺序的要求更加严格
按下段后置两个组码就可以了

(setq tmp (list (cons 0 "ATTRIB")
                               (cons 100 "AcDbEntity")
                               (cons 100 "AcDbText")
                               (cons 1 tmp)                               
                               (cons 6 "ByBlock")
                               (cons 7 "STANDARD")
                               (cons 8 "0")
                               (list 10 0.0 0.0 0.0)
                               (list 11 0.0 0.0 0.0)
                               (cons 40 1.0)
                               (cons 41 1.0)
                               (cons 50 0.0)
                               (cons 51 0.0)
                               (cons 62 256)
                               (cons 100 "AcDbAttribute") ;_后置
                               (cons 2 (substr tmp 1 10)) ;_后置
                               (cons 70 0)
                               (cons 72 0)
                               (cons 73 0)
                           )
               )
页: 1 [2]
查看完整版本: [求助]一个"添加普通文字到图块成为属性"有问题阿!