entmake 插入属性块

hrbustmqc

1. ;entmake制作属性块
   
2. ;(entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))
   
3. ;(entmake (list '(0 . "CIRCLE") (cons 10 pt) (cons 40 r)))
   
4. (entmake (list
   
5.     '(0 . "block")           
   
6.      (cons 2 "$myequip$0001") ;图块名
   
7.     '(70 . 2)                 ;块具有非固定属性定义
   
8.     '(10 0.0 0.0 0.0))        ;基点
   
9. );block定义
   
10. (entmake (list
    
11.     '(0 . "LINE")
    
12.     '(10 0.353553 0.353553 0.0)
    
13.     '(11 -0.353553 -0.353553 0.0))
    
14. );block图元直线
    
15. (entmake (list
    
16.     '(0 . "LINE")
    
17.     '(10 -0.353553 0.353553 0.0)
    
18.     '(11 0.353553 -0.353553 0.0))
    
19. );block图元直线
    
20. (entmake (list
    
21.     '(0 . "CIRCLE")
    
22.     '(10 0.0 0.0 0.0)
    
23.     '(40 . 0.5))
    
24. );block图元圆
    
25. (entmake (list
    
26.       '(0 . "ATTDEF")
    
27.       '(10 0.0 0.0 0.0)   ;插入点
    
28.       '(40 . 3.5);属性字高度
    
29.       '(1 . "吸顶荧光灯")  ;属性字默认值
    
30.       '(3 . "")   ;提示字符串：输入电气设备名称   
    
31.       '(2 . "A")  ;标签字符串;属性字
    
32.       '(70 . 0))  ;???
    
33. )
    
34. (entmake '((0 . "ENDBLK")));结束标志
    
35. (entmake (list '(0 . "INSERT") (cons 2 "$myequip$0001") '(10 0.0 0.0 0.0)))

复制代码

用entmake制作属性块以后插入，但是只有块的信息，却看不见属性字。

如何插入entmake制作的属性块，效果如右侧图片所示  A “灯”
还有下面的组码 70 是什么意思，我看组码表里面70的值是从1到4，并没有0

• (entmake (list
•       '(0 . "ATTDEF")
•       '(10 0.0 0.0 0.0)   ;插入点
•       '(40 . 3.5);属性字高度
•       '(1 . "吸顶荧光灯")  ;属性字默认值
•       '(3 . "")   ;提示字符串：输入电气设备名称
•       '(2 . "A")  ;标签字符串;属性字
•       '(70 . 0))  ;??
  

菜卷鱼

求源码，以前整了很久还是没弄清楚怎么用entmake 插入，属性全部丢失，用Insert实在太慢，最后妥协用了 vla-InsertBlock

hrbustmqc

1. ;;;  =================================================
   
2. ;;;   entmake制作&插入属性块 v1.0
   
3. ;;;   作者：Mr.Meng      命令:(list-count lst)    日期:2015年5月11号
   
4. ;;;   功能：制作&插入属性块
   
5. ;;;   由图元制作块——>制作属性块：已制作的块+属性字图元(可以连续加入多组)    错误顺序： 图元+属性字图元——>属性块 这种顺序插入的块没有属性字的
   
6. ;;;   制作图元的时候，可以加入颜色组码，不然生成的图元颜色都是bylayer
   
7. ;;;   需要研究坐标系trans，以免属性字和图块分离很远
   
8. ;;;  =================================================
   
9. ;(entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))
   
10. ;(entmake (list '(0 . "CIRCLE") (cons 10 pt) (cons 40 r)))
    
11. (entmake (list
    
12.     '(0 . "block")           
    
13.      (cons 2 "$$$$myequip$$$$0001") ;图块名
    
14.     '(70 . 2)                 ;块具有非固定属性定义
    
15.     '(10 0.0 0.0 0.0))        ;基点
    
16. );block定义
    
17. (entmake (list
    
18.     '(0 . "LINE")
    
19.     '(10 0.353553 0.353553 0.0)
    
20.     '(11 -0.353553 -0.353553 0.0))
    
21. );block图元直线
    
22. (entmake (list
    
23.     '(0 . "LINE")
    
24.     '(10 -0.353553 0.353553 0.0)
    
25.     '(11 0.353553 -0.353553 0.0))
    
26. );block图元直线
    
27. (entmake (list
    
28.     '(0 . "CIRCLE")
    
29.     '(10 0.0 0.0 0.0)
    
30.     '(40 . 0.5))
    
31. );block图元圆
    
32. (entmake '((0 . "ENDBLK")));结束标志
    
33. 
    
34. (entmake (list '(0 . "INSERT") '(66 . 1) (cons 2 "$$$$myequip$$$$0001") '(10 0.0 0.0 0.0)
    
35.                 '(41 . 500.0) '(42 . 500.0) '(43 . 500.0) ))
    
36.    (entmake (list
    
37.                '(0 . "ATTRIB")
    
38.                '(100 . "AcDbEntity")
    
39.                '(100 . "AcDbText")
    
40.                '(10 0.0 0.0 0.0)
    
41.                 (cons 40 3.5)
    
42.                 (cons 1 "吸顶荧光灯")
    
43.                '(100 . "AcDbAttribute")
    
44.                 (cons 2 "A")
    
45.                '(70 . 1);(70 . 1)属性字不可见  (70 . 0)属性字可见
    
46.                   )
    
47.    )   
    
48.   (entmake '((0 . "SEQEND")))
    
49.   (entlast)
    
50. 
    
51. 
    
52. 
    
53. 
    

复制代码

lucas_3333

参考 http://bbs.xdcad.org/thread-678244-1-1.html

hrbustmqc

lucas_3333 发表于 2015-5-12 19:18
参考 http://bbs.xdcad.org/thread-678244-1-1.html

谢谢，很有价值的参考，问题已经解决。
我制作属性块的顺序才错误，

lucas_3333

hrbustmqc 发表于 2015-5-12 21:51
谢谢，很有价值的参考，问题已经解决。
我制作属性块的顺序才错误，

不客气，把正确的贴出来吧，以便帮助更多人

冒个烟圈

hrbustmqc 发表于 2015-5-13 20:07

07.;;;   需要研究坐标系trans，以免属性字和图块分离很远
请教下这个TRANS你研究出来了没？能否告诉一下怎么用？
现在做出来的块没办法跟随鼠标

linyangmjtd

学些了，谢谢分享