VBA插入动态块大小

comcu · 发表于 2022-7-6 17:27:13

你好
我正在尝试创建一个vba项目，该项目将使我能够自动计算网格中的玻璃尺寸。我目前使用动态块手动执行此任务
动态块有4个属性，带有字段和2个无矩形（分成8行。一个缩放动作和一个XY参数。我使用缩放动作更改属性的大小和XY参数，以允许我拉伸块。
属性包括
1.Spec–用户输入
2.Ref–用户输入
3.宽度-根据动态块计算
4、高度——根据动态块计算
宽度和高度属性是链接到外部隐藏矩形的字段，外部隐藏矩形与可见内部矩形偏移14mm。我将可视矩形拉伸为每个网格中间隔的大小。
我想做的是，我运行项目，点击一个点，只要该点被封闭在一个矩形内，我的动态块就会被插入，而不是我手动移动夹点，使块成为闭合矩形（窗台）的大小。动态块通过编程拉伸成窗台的大小
问题是我不认为vba适用于动态块？

然后我想我可以对普通块做同样的操作，然后我可以通过vba操作块，但是当acadblock在大小上缩放时，属性也会缩放。这意味着不符合标准的文字尺寸取决于间隔尺寸，玻璃尺寸也是从14mm偏移量计算得出的。如果块在插入时缩放，那么14mm可以更改为任何值？我想在插入前去掉偏移线并用vba计算它，例如玻璃高度=块高度+28#然而，当我可能必须更改屏幕大小时，我必须删除块并重新开始？然后我想在视场内计算它，但物体长度和计算在视场窗口的不同部分，似乎不能一起使用？

规范和参考可以通过带有表单的vba实现自动化

Ref=幕墙参考值+数字+1
可以在选择点之前的表单上的文本框中键入规范。
我知道如何做到这一点，也选择点插入块等，但其余我上面提到的我不知道！！

如果有任何有益的意见，我将不胜感激，

干杯

col公司

[编程交流] VBA插入动态块大小

发表回复

精选推荐