首先通過特性查塊名,比如*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)
)
)

然后等系統會自動生成一個同名塊,在選中直接炸開就行了