CATIA V5:通知用户发生了变化
CATIA V5: inform the user a change occured
下午好,
如果组件中的衬套被更改(只有 "desired length" 参数可以选择衬套长度),我想通知用户,而用户没有意识到这种情况发生,因此它有必要通知他。
套管已参数化,设计中的长度不同 table.
我使用以下信息在 kwa 中创建了一条规则:
let OC (integer) /*(old configuration row)*/
let NC (integer) /*(new configuration row)*/
OC = Relations\Table1005c\Configuration /*reads and stores the old configuration row*/
Relations\VB Scripts\Update_Forcado .Run() /*runs VB Script that simply updates the assembly*/
NC=Relations\Table1005c\Configuration /*reads and stores the new configuration row*/
if NC-OC <> 0 /*compares the 2 configuration rows*/
{
Message ("The Bushing has been altered")/*Informs the user that the bushing has been altered*/
}
这里是 vba:
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim product1 As Product
Set product1 = productDocument1.Product
Set product1 = product1.ReferenceProduct
product1.Update
End Sub
这行不通,谁能告诉我为什么?
另外,这可以不使用 vb 脚本来完成吗?
谢谢,
如果您想在设计 table 配置更改时显示消息,请使用由配置参数触发的反应。
规则不一定会因为您更新产品而触发。
下午好,
如果组件中的衬套被更改(只有 "desired length" 参数可以选择衬套长度),我想通知用户,而用户没有意识到这种情况发生,因此它有必要通知他。 套管已参数化,设计中的长度不同 table.
我使用以下信息在 kwa 中创建了一条规则:
let OC (integer) /*(old configuration row)*/
let NC (integer) /*(new configuration row)*/
OC = Relations\Table1005c\Configuration /*reads and stores the old configuration row*/
Relations\VB Scripts\Update_Forcado .Run() /*runs VB Script that simply updates the assembly*/
NC=Relations\Table1005c\Configuration /*reads and stores the new configuration row*/
if NC-OC <> 0 /*compares the 2 configuration rows*/
{
Message ("The Bushing has been altered")/*Informs the user that the bushing has been altered*/
}
这里是 vba:
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim product1 As Product
Set product1 = productDocument1.Product
Set product1 = product1.ReferenceProduct
product1.Update
End Sub
这行不通,谁能告诉我为什么? 另外,这可以不使用 vb 脚本来完成吗?
谢谢,
如果您想在设计 table 配置更改时显示消息,请使用由配置参数触发的反应。
规则不一定会因为您更新产品而触发。