横竖项尺寸标注

next

自己把代码内容加入到vba中，设置好快捷，然后选择图标，运行后会标注横向竖向尺寸。 改变原物体大小，会自动调整尺寸标注。

旅途印象

这个是不是开源的那款

baruny

支持任何版本吗？

wzgzzh

这个怎么加，请教一下？

next

只要软件有vba功能，应该支持全系的版本的。
是不是开源那份我有点忘记了，里面部分代码，自己看有重叠的，那就和你一样的，没有么，就自己下载看看。
Sub 横向标注()
   ……………………
    Dim pts As SnapPoint,…………
    Dim os As ShapeRange
    ……………………
    Set os = ActiveSelectionRange
   …………………………

如何添加的话，就打开cdr软件，然后 ALT+F11，进入编辑处，把代码加入到 globalmacros 下面

fanmao

现在的版本不是有“水平或垂直度量工具”么？

next

fanmao 发表于 2025-3-18 09:59
现在的版本不是有“水平或垂直度量工具”么？

是的，新版本共这个功能，第一个图的，可以搞定，但是还是得确定起始位置，第二个图就有些麻烦
当然软件本身的功能是很完善了。借助小工具么，把重复的工作给简单化。

next

wzgzzh 发表于 2025-3-18 09:46
这个怎么加，请教一下？

大致是这样的， 半保姆式的了。

baruny

next 发表于 2025-3-18 10:21
大致是这样的， 半保姆式的了。

我的X6添加了找不到

next

baruny 发表于 2025-3-18 10:57
我的X6添加了找不到

.....不会吧，保存了没，保存好了，后面几部不会的话，ALT+F11,鼠标放到对应的功能区，然后在点击上面的绿色三角标执行。