获取箭头大小和变量
软件使用：AutoCAD 2000至09。是否可以修改此代码以获得暗箭头大小、变量exe&exo&dim color。
私有子命令按钮2\u Click（）
Dim objDimension作为附加尺寸
Dim varPickedPoint作为变量
Dim objDimStyle作为AcadDimStyle
将strdim样式设置为字符串
Dim strChosenDimStyle作为字符串
出错时继续下一步
我隐藏
此图纸。公用事业GetEntity objDimension，varPickedPoint_
“选择了要设置其样式的维度”
如果objDimension为Nothing，则
MsgBox“未能拾取维度对象”
出口接头
如果结束
MsgBox对象维度。text高度
MsgBox对象维度。文本样式
'MsgBox objDimension。垂直文本位置
MsgBox对象维度。text间隙
末端接头 是的，这是可能的，你需要帮助吗？
加上这个
MsgBox objDimension.ArrowheadSize
MsgBox objDimension.ExtensionLineExtend
MsgBox objDimension.ExtensionLineOffset 如果暂停IDE，可以在“局部变量”窗口中查看所有要查找的信息。我停顿了一下，在图片中为你突出显示了箭头大小
现在我有了choose维度中的所有变量。我如何使用
这些变量可以改变我当前的昏暗风格？？如何使用这些变量创建新的dimstyle。
哦，是的，我在哪里找到并暂停我的IDE窗口。
非常感谢。 IDE是编写代码的窗口。要暂停代码，请单击要暂停的行左侧。应该会出现一个红点。 维度覆盖有点棘手，但我使用的这段代码经常帮助我。。
公共子ChgDimStyleSettings（）“--------------------------------------------------------------------------------”将dimstyle设置为当前并实现覆盖“然后将当前设置从图形复制到命名集（将捕捉覆盖）。从现有dimstyle复制不会捕捉覆盖）。更改“dimstyle”后，每个使用dim的样式都会移动一点，然后返回“以强制更新”。更新未捕获dimstyle更改。”------------------------------------------------------------------------------Dim acDimStyles As ACADDIMSTYLES Dim ACDIMSTYLEDIM objEnt As ACADIDITYDIM vNewVal As VariantDim iVal As IntegerDim iDS As IntegerDim ssDim As AcadSelectionSetDim sSS As StringDim iCd（0）As IntegerDim vVal（0）As VariantDim VCD As VariantDim vVals As VariantDim dPt0（2）As DoubleDim dPt1（2）As双''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''=0到2 dPt0（iDS）=0#dPt1（iDS）=0#下一个iDSdPt1（0）=1#设置acDimStyles=此图形。DimStylessSS=“DIMUPDATE”'确保未使用selset名称。。在此处完成，因为此绘图中每个ssDim的每个添加都会被删除。选择集（如果为ssDim）。名称=sSS，然后是ssDim。删除下一个ssDim’--------------------------------------------------------------------------------将ID=0的每个Dimstyle设置为当前’--------------------------------------------------------------------------------为acDimStyles。本图计数-1。ActiveDimStyle=acDimStyles（iDS）“--------------------------------------------------------------------------------“此处的自定义设置”---------------------------------------------------------------------------“vNewVal=Chr（34）”确保alt Dim使用”作为后缀vNewVal=“STANDARD\u ISO“'--------------------------------------------------------------------------------在此处自定义>>>>>>>>>>>>>>> 暂停本地窗口的IDE效果很好。在Visual Basic或VBA中，我似乎都在寻找变量。我通常会搜索谷歌。那么对象浏览器呢。这也有帮助吗？
我仍在寻找注释性dim变量及其与
尺寸比例。有什么消息吗？
非常感谢。 您是在寻找注释的比例值还是如何将样式设置为注释性？第一个在CANNOSCALE，第二个无法完成 是否有用于Dim文字旋转的autocad变量？我在AutoCAD VBA对象中找到了对象变量，但找不到要设置的AutoCAD dim变量
调整文字旋转。有人知道autocad变量是什么吗？
非常感谢。 我在autocad中找不到，只是水平或与尺寸线对齐
页:
[1]