|
|
发表于 2025-10-22 09:24:36
|
显示全部楼层
本帖最后由 zwaiwo* 于 2025-10-22 09:28 编辑
我试了一下没什么问题啊 ,大概率是你没有EDIT表达式的值,你可以加一个弹窗警告可以知道哪里有问题
Public Shared Sub Main()
'在这里开始写程序
Try
Dim filePath = "C:\Users\Administrator\Desktop\新建文件夹\盖子.prt"
Dim PartLoad As PartLoadStatus = Nothing
Dim part = theSession.Parts.OpenActiveDisplay(filePath, DisplayPartOption.AllowAdditional, PartLoad)
'Dim part = theSession.Parts.Work
Dim L As Double = 110
Dim expression As Expression = CType(part.Expressions.FindObject("L"), Expression)
part.Expressions.Edit(expression, L)
theSession.UpdateManager.DoUpdate(0)
Catch ex As Exception
theui.NXMessageBox.Show("错误", NXMessageBox.DialogType.Error, ex.Message)
End Try
End Sub |
|