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

添加普通文字到图块成为属性
www.dimcax.com
添加普通文字到图块成为属性
函数共三个变量：
1：图块实体[ename]
2：文本实体[enane/单个 pickset/多个]
3：转换成属性后是否删除文本实体[t/nil]
返回值：新生成的图块名[ename]
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
( vlobj-attach-attrib (blk atx erase / att bbb nxx tmp rtn)
( bbb blk
blk ( bbb)
)
( ( ( 66 blk))
( blk ( blk ( ( 66 1))))
)
( nxx ( blk))
( ( ( bbb)
( ( ( 0 ( ( bbb)))) "attrib")
)
(
( ( ( 0 ( ( bbb ( bbb)))))
"seqend"
)
( nxx ( ( bbb) nxx))
)
)
( ( ( atx) 'ename)
( atx ( atx))
)
( ( ( ( atx) 'pickset)
( bbb -1)
)
(
( ( atx)
( ( ( att ( atx ( bbb ( bbb))))
( tmp ( ( 1 ( att)))
( tmp (
( 0 "attrib")
( 100 "acdbentity")
( 100 "acdbtext")
( 100 "acdbattribute")
( 1 tmp)
( 2 ( tmp 1 10)) ;防止tag太长
( 6 "byblock")
( 7 "standard")
( 8 "0")
( 10 0.0 0.0 0.0)
( 11 0.0 0.0 0.0)
( 40 1.0)
( 41 1.0)
( 50 0.0)
( 51 0.0)
( 62 256)
( 70 0)
( 72 0)
( 73 0)
)
)
)
(
( bbb '(7 8 10 11 40 41 50 51 72 73)
(
tmp ( ( bbb ( ( bbb ( att))))
( bbb tmp)
tmp
)
)
)
( nxx ( tmp nxx))
)
)
)
( nxx ( ( ( 0 "seqend")
( 100 "acdbentity")
( 8 ( ( 8 blk)))
)
nxx
)
)
( 'entmake ( nxx))
( rtn ())
( ( erase
( bbb -1)
( ( ( -1 blk)))
)
( ( atx)
( ( atx ( bbb ( bbb))))
)
)
)
)
rtn
)
simple vl command
;;;no error check, ugly codes only, not fully tested
( c:addatt ( blk txt yn)
(
( ( blk ( "\n please pick the block :"))
( blk ( blk))
( ( ( 0 ( blk))) "insert")
( ( blk 3))
(
"\n please select text to be attached as attributes :"
)
( txt ( '((0 . "text"))))
)
(
( "yen no")
( ( ( yn
( "\n erase the attached texts [yes/no] :")
)
)
( yn "yes")
)
(vlobj-attach-attrib blk txt ( yn "yes"))
)
)
)
【好评】好程序 明经币+2 [mccad |
d
顶一个~~`
d
(
(
( att ( atx ( bbb ( bbb))))
( tmp (
(
1
( att)));;;;;;;;这个地方少个闭括号
d
;;很有趣的結構--是圖塊參考帶屬性,非改變原圖塊為屬性圖塊
;;即相同的圖塊名稱,但有的帶屬性,有的卻沒有屬性
要努力学习,不进则退
网络u盘：
这个问题以前在xdcad讨论过
属性是寄生虫。可以在树木种下去的时候有，也可以在种下去以后才有。有了还可以杀虫。
d
属性不属于块中的一个图元。而是附加上去的一些信息。所以属性的特性都可以单独操作，包括调整字体、对齐方式、修改内容。
呵呵，而单独添加以前倒一直都没有试过。