获取箭头大小和变量

muck · 发表于 2022-7-6 17:05:13

软件使用：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间隙
末端接头

CmdrDuh · 发表于 2022-7-6 17:17:33

是的，这是可能的，你需要帮助吗？
加上这个

copy

MsgBox objDimension.ArrowheadSize
MsgBox objDimension.ExtensionLineExtend
MsgBox objDimension.ExtensionLineOffset

CmdrDuh · 发表于 2022-7-6 17:22:32

如果暂停IDE，可以在“局部变量”窗口中查看所有要查找的信息。我停顿了一下，在图片中为你突出显示了箭头大小

muck · 发表于 2022-7-6 17:28:20

现在我有了choose维度中的所有变量。我如何使用
这些变量可以改变我当前的昏暗风格？？如何使用这些变量创建新的dimstyle。

哦，是的，我在哪里找到并暂停我的IDE窗口。
非常感谢。

CmdrDuh · 发表于 2022-7-6 17:37:58

IDE是编写代码的窗口。要暂停代码，请单击要暂停的行左侧。应该会出现一个红点。

borgunit · 发表于 2022-7-6 17:43:42

维度覆盖有点棘手，但我使用的这段代码经常帮助我。。

公共子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“'--------------------------------------------------------------------------------在此处自定义>>>>>>>>>>>>>>>