更新最后一个维度

ska67can · 发表于 2006-12-8 15:23:25

DimUpdate不&#039；t存在于vba中，我可以#039；t get SendCommand to release，那么如何更新维度？

Atook · 发表于 2006-12-8 15:42:56

让我们看看你的代码。

Cathy · 发表于 2006-12-8 15:45:58

我猜想，如果没有看到您的代码，则需要存储样式名称并选择DIM，然后重新为其分配样式名称以强制更新

Cathy · 发表于 2006-12-8 15:46:17

此图纸。SendCommand“；dim“&amp；vbCr&amp&引用；“向上”&amp；vbCr&amp&引用；l“'&amp；vbCr#039；

ska67can · 发表于 2006-12-8 15:56:43

[代码0）。更新不起作用？

Atook · 发表于 2006-12-8 16:19:41

编号

Atook · 发表于 2006-12-8 16:55:37

您是否需要更新，因为您&#039；我改变了dimstyle

copy

.....
     ThisDrawing.SetVariable "LUNITS", 2
     ThisDrawing.SetVariable "LUPREC", 2
     ThisDrawing.SetVariable "DIMLUNIT", 2
     ThisDrawing.SetVariable "DIMDEC", 2
    objDimStyle.CopyFrom ThisDrawing
    ThisDrawing.ActiveDimStyle = objDimStyle