next 发表于 2025-3-18 08:47:57

横竖项尺寸标注

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

旅途印象 发表于 2025-3-18 09:39:00

这个是不是开源的那款

baruny 发表于 2025-3-18 09:45:24

支持任何版本吗？

wzgzzh 发表于 2025-3-18 09:46:22

这个怎么加，请教一下？

next 发表于 2025-3-18 09:59:26

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

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

fanmao 发表于 2025-3-18 09:59:41

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

next 发表于 2025-3-18 10:08:02

本帖最后由 next 于 2025-3-18 10:09 编辑

fanmao 发表于 2025-3-18 09:59
现在的版本不是有“水平或垂直度量工具”么？
是的，新版本共这个功能，第一个图的，可以搞定，但是还是得确定起始位置，第二个图就有些麻烦
当然软件本身的功能是很完善了。借助小工具么，把重复的工作给简单化。

next 发表于 2025-3-18 10:21:33

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

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

baruny 发表于 2025-3-18 10:57:54

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

我的X6添加了找不到:'(

next 发表于 2025-3-18 11:29:20

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

.....不会吧，保存了没，保存好了，后面几部不会的话，ALT+F11,鼠标放到对应的功能区，然后在点击上面的绿色三角标执行。
页: [1] 2
查看完整版本: 横竖项尺寸标注