weilu 发表于 2015-6-25 19:49 
好,我试试
如果还是不行的话,则证明你的标注样式的颜色不是by block 随块,那么必须用到样式替代
 - (entmake (list '(0 . "LEADER")
- '(100 . "AcDbEntity")
- '(100 . "AcDbLeader")
- (cons 10 (getpoint))
- (cons 10 (getpoint))
- (cons 10 (getpoint))
- (list -3 (list "ACAD" '(1000 . "DSTYLE")
- '(1002 . "{")
- '(1070 . 176)
- (cons 1070 5) ;当样式颜色不为by block时,设置颜色替代
- '(1002 . "}")
- )
- )
- )
- )
|