选择集 及标注公差的两个求助
目标：选择一个标注，然后弹出窗口，添加公差等。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?用哪个方法？
试着弄了一天，没出来，大虾指点指点。
版主，大虾帮帮忙～ 1.直接用sset(0)就可以。
2.你已经用TextOverride来覆盖默认标注了，所以公差就不能显示。 好几天没来咯，谢谢mccad，那天试了试，又生出第三个问题：改标注尺寸就不能加公差，加公差吧就不能改标注尺寸。
能不能在一个对话框里同时改尺寸和公差呢？
两位高手我的曲线或曲面根据高度颜色渐变问题还没解决呢，快支招啊
页:
[1]