[求助]一个"添加普通文字到图块成为属性"有问题阿!

fsafaffa

顶，帮楼主顶出来

vladimir

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

fools

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

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

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

yoyoho

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

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

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

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

选取物件:

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

fools

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

指令:

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

1. (setq tmp (list (cons 0 "ATTRIB")
   
2.                                  (cons 100 "AcDbEntity")
   
3.                                  (cons 100 "AcDbText")
   
4.                                  (cons 1 tmp)                                 
   
5.                                  (cons 6 "ByBlock")
   
6.                                  (cons 7 "STANDARD")
   
7.                                  (cons 8 "0")
   
8.                                  (list 10 0.0 0.0 0.0)
   
9.                                  (list 11 0.0 0.0 0.0)
   
10.                                  (cons 40 1.0)
    
11.                                  (cons 41 1.0)
    
12.                                  (cons 50 0.0)
    
13.                                  (cons 51 0.0)
    
14.                                  (cons 62 256)
    
15.                                  (cons 100 "AcDbAttribute") ;_后置
    
16.                                  (cons 2 (substr tmp 1 10)) ;_后置
    
17.                                  (cons 70 0)
    
18.                                  (cons 72 0)
    
19.                                  (cons 73 0)
    
20.                            )
    
21.                  )
    

(setq tmp (list (cons 0 "ATTRIB")<br />                                  (cons 100 "AcDbEntity")<br />                                  (cons 100 "AcDbText")<br />                                  (cons 1 tmp)                                 <br />                                  (cons 6 "ByBlock")<br />                                  (cons 7 "STANDARD")<br />                                  (cons 8 "0")<br />                                  (list 10 0.0 0.0 0.0)<br />                                  (list 11 0.0 0.0 0.0)<br />                                  (cons 40 1.0)<br />                                  (cons 41 1.0)<br />                                  (cons 50 0.0)<br />                                  (cons 51 0.0)<br />                                  (cons 62 256)<br />                                  (cons 100 "AcDbAttribute") ;_后置<br />                                  (cons 2 (substr tmp 1 10)) ;_后置<br />                                  (cons 70 0)<br />                                  (cons 72 0)<br />                                  (cons 73 0)<br />                            )<br />                  )<br />