3、项设为0,否则过程会出错其它请参考"参数图解"第一次修改:①边框大小可由文字大小自动处理(之前,须由用户给定)②边框类型添加一项,添加矩形边框③水平段引线长度可由文字及边框大小自动处理(之前,须由用户给定) *运行宏 数变编号,加圆圈Public Sub bh()ThisDrawing.Utility.Prompt "请选择要加圆圈的文本" + vbCrLfDim sset As AcadSelectionSetDim gp(0) As IntegerDim data(0) As VariantIf ThisDrawing.