标注可以这样指定图层吗？

ericyu

标注可以这样指定图层吗？
Dim objDimAng1 As AcadDimAngular
Set objDimAngl = ThisDrawing.ModelSpace.AddDimAngular(ptCen, ptDim3, ptDim4, ptText2)
objDimAng1.Layer = "Rebar1"

对象变量或 With 块变量没有设置（错误 91）

wylong

可能你的图纸中不存在名称为"Rebar1"的图层。