如何解决CAD2007版本以上INSERT的ATTRIB跟随不能超过一个
如何解决CAD2007版本以上INSERT的ATTRIB跟随不能超过一个？即使属性跟随（66 . 1）为1，还是只有一个？;;;插入块
(entmake (list
'(0 . "INSERT")
'(100 . "AcDbEntity")
'(100 . "AcDbBlockReference")
'(66 . 1);;;属性跟随标志,1跟随，0不跟随
(cons 2 "GC200")
(cons 10 inspt)
(cons 41 scale)
(cons 42 scale)
(cons 43 scale)
(list -3 '("SOUTH" (1000 . "951495418")))
)
)
;;;插入属性
(entmake (list
'(0 . "ATTRIB")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
(cons 10 (setq pt (polar inspt 0 (* 1.2 scale))))
(cons 40 (* 2.0 scale))
(cons 50 0)
(cons 41 0.8)
(cons 51 0)
(cons 1 height)
(cons 7 "HZ")
(cons 72 2)
(cons 11 pt)
'(100 . "AcDbAttribute")
(cons 2 "height")
(cons 700)
(cons 74 1)
)
)
;;;;;;;;
(entmake (list
'(0 . "ATTRIB")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
(cons 62 2)
(cons 10 pt)
(cons 40 (* 2.0 scale))
(cons 50 0)
(cons 41 0.8)
(cons 51 0)
(cons 1 height2)
(cons 7 "HZ")
(cons 72 0)
(cons 11 pt)
'(100 . "AcDbAttribute")
(cons 2 "height2")
(cons 700)
(cons 74 3)
))
;;;;;;;;;;;;
(entmake (list
'(0 . "ATTRIB")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
(cons 62 3)
(cons 10 pt)
(cons 40 (* 2.0 scale))
(cons 50 0)
(cons 41 0.8)
(cons 51 0)
(cons 1 height3)
(cons 7 "HZ")
(cons 72 0)
(cons 73 2)
(cons 11 pt)
'(100 . "AcDbAttribute")
(cons 2 "height3")
(cons 700)
(cons 74 1)
))
;;;;;;
(entmake (list
'(0 . "ATTRIB")
'(100 . "AcDbEntity")
'(100 . "AcDbText")
(cons 62 3)
(cons 10 (setq pzx0 (polar pt (* 1.5 pi) (* 2 scale))))
(cons 40 (* 2.0 scale))
(cons 50 0)
(cons 41 0.8)
(cons 51 0)
(cons 1 height4)
(cons 7 "HZ")
(cons 72 0)
(cons 73 2)
(cons 11 pzx0)
'(100 . "AcDbAttribute")
(cons 2 "height4")
(cons 700)
(cons 74 3)
))
;;;结束标志
(entmake '((0 . "SEQEND")
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "0")
)
)
(princ)
)
(list -3 '("SOUTH" (1000 . "951495418")))
看错了，应该木有问题
这句好象不对吧 在2004版本都没有问题，"SOUTH" 编码也加上了。 在CAD2004中，EATTEDIT增强属性编辑器不可以编辑高程点GC200,有ATTRIB跟随的块，只有ATTEDIT属性编辑器才可以；但是在2009中，ATTEDIT和EATTEDIT都可以编辑有ATTRIB跟随的高程GC200块
?
页:
[1]