选择集 及标注公差的两个求助

夜孤城

目标：选择一个标注，然后弹出窗口，添加公差等。

Public pickedobj As AcadEntity

 If Not IsNull(ThisDrawing.SelectionSets.Item("sss")) Then
    Set sset = ThisDrawing.SelectionSets.Item("sss")
    sset.Delete
 End If
 
Set sset = ThisDrawing.SelectionSets.Add("sss")
sset.SelectOnScreen

If sset.Count > 1 Then
MsgBox "老大，您选的太多了！"
UserForm1.Hide
Exit Sub
End If

For Each pickedobj In sset    //第一个问题：选择里就一个，我不想循环就得到，咋弄涅
txtBase.Text = pickedobj.Measurement
Next

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

For Each pickedobj In sset
pickedobj.TextOverride = comBefore.Text & Left(txtBase.Text, 4)

If txtDown.Text <> "" Or txtUp.Text <> "" Then
pickedobj.ToleranceDisplay = acTolDeviation
pickedobj.TolerancePrecision = acDimPrecisionFour
pickedobj.ToleranceHeightScale = 1
pickedobj.ToleranceLowerLimit = txtDown.Text
pickedobj.ToleranceUpperLimit = txtUp.Text

End If
pickedobj.Update
Next

第二个问题：选择集里就是标注的话，pickedobj可以代表acadDimAligned吗？用它属性TextOverride可以显示出，但为啥标注后面没显示公差。

是不是要重新定义个dimAligned，让它等于pickedObj?用哪个方法？

试着弄了一天，没出来，大虾指点指点。

夜孤城

版主，大虾帮帮忙～

mccad

1.直接用sset(0)就可以。
2.你已经用TextOverride来覆盖默认标注了，所以公差就不能显示。

夜孤城

好几天没来咯，谢谢mccad，那天试了试，又生出第三个问题：改标注尺寸就不能加公差，加公差吧就不能改标注尺寸。

能不能在一个对话框里同时改尺寸和公差呢？

xujian8498

两位高手我的曲线或曲面根据高度颜色渐变问题还没解决呢，快支招啊