首先通过特性查块名,比如*U255,如是其他请替换,然后在输入的地方直接复制粘贴,接的把名字*U255替换掉
(entmake (list '(0 . "INSERT")
'(100 . "AcDbEntity")
'(100 . "AcDbBlockReference")
(cons 2 "*U255")
(cons 10 '(0 0 0))
(cons 41 1)
(cons 42 1)
(cons 50 0)
)
)
然后等系统会自动生成一个同名块,在选中直接炸开就行了
首先通过特性查块名,比如*U255,如是其他请替换,然后在输入的地方直接复制粘贴,接的把名字*U255替换掉
(entmake (list '(0 . "INSERT")
'(100 . "AcDbEntity")
'(100 . "AcDbBlockReference")
(cons 2 "*U255")
(cons 10 '(0 0 0))
(cons 41 1)
(cons 42 1)
(cons 50 0)
)
)
然后等系统会自动生成一个同名块,在选中直接炸开就行了