catia怎么用vba获取拓扑面的面积(CATIA二次开发VBA)
catia怎么用vba获取拓扑面的面积(CATIA二次开发VBA)
2024-11-22 07:37:24  作者:心碎了无痕  网址:https://m.xinb2b.cn/sport/inc141858.html

主程序:RemoveInactivate

遍历程序:GetDeactived

执行程序:RemoveDeactived范围:已选择的产品或零部件及其子级

Public Sub RemoveInactivate()

CATIA.DisplayFileAlerts = False

Dim Selection1 'As Selection

Set Selection1 = CATIA.ActiveDocument.Selection

Selection1.Clear

Dim InputObjectType(0)

InputObjectType(0) = "Product"

Selection1.SelectElement2 InputObjectType, "Select a Component", False

GetDeactived Selection1.Item(1).Value

CATIA.ActiveDocument.product.Update

CATIA.DisplayFileAlerts = True

End Sub

遍历目标对象

Private Sub GetDeactived(ByVal oSubProd As product)

' On Error Resume Next

Dim jj As Integer

Dim oSubProds As products

Set oSubProds = oSubProd.products

RemoveDeactived oSubProds

For jj = 1 To oSubProds.Count

RemoveDeactived oSubProds.Item(jj).products

If Not oSubProds.Item(jj).HasAMasterShapeRepresentation() Then

Dim oSubSubProds As products

Set oSubSubProds = oSubProds.Item(jj).products

If oSubSubProds.Count > 0 Then

Call GetDeactived(oSubProds.Item(jj))

End If

End If

Next

End Sub

移除非激活的对象

Private Sub RemoveDeactived(ByVal oSubProds As products)

On Error Resume Next

Dim parameter As parameter, parameters2 As parameters

Dim i As Integer

For i = 1 To oSubProds.Count

Set parameters2 = oSubProds.Item(i).parameters.subList(oSubProds.Item(i), False)

Set parameter = parameters2.Item(1)

If parameter.ValueAsString = "false" Then

parameter.ValuateFromString "true"

oSubProds.Remove oSubProds.Item(i).Name

End If

Next

End Sub

示例:


  • 屿怎么读(屿的意思)
  • 2024-11-22屿的意思屿的读音:yǔ岛屿中的“屿”是指依附于大陆或岛周围,涨潮时和大陆或岛相离,落潮时和大陆或岛相连,就像上下牙齿分合,又像母亲身边的孩子,时而离开母亲身边,时而回到怀抱山为本体,与为喻体,借“与”声来完善。
  • 宾夕法尼亚大学留学详细流程(指南者留学分享)
  • 2024-11-22指南者留学分享今天,我们再接着来了解一所美国的老牌藤校——宾夕法尼亚大学宾夕法尼亚大学(UniversityofPennsylvania),简称宾大(UPenn),坐落于宾夕法尼亚州最大城市——费城由本杰明·富兰克。
  • 喜欢赵丽颖的人都有哪些(追星把自己追成了明星)
  • 2024-11-22追星把自己追成了明星大家好,这里是娱乐小橙子八卦,每天给大家聊八卦人生,喜欢的小伙伴请多多关注哦~话说不知道大家追星吗,即使你不追星你身边肯定会有一个追求的朋友,有很多人将偶像当做自己激励自己的动力,让自己变得更加优秀,。
  • 一条街的老人看着温馨更是心酸(这群大爷手中的风筝)
  • 2024-11-22这群大爷手中的风筝几乎每天,家住天府广场附近的李大爷都会骑20多分钟电瓶车、带着自己用塑料袋作的风筝,到主城二环边一个神秘的所在消磨时间李大爷说,在这个地方放风筝的并不只有他一个,而是一堆大爷,总共一二十个人,有的住驷。
  • 爱读书的名言和诗句(关于爱读书的名言诗句精选)
  • 2024-11-22关于爱读书的名言诗句精选书是益友臧克家说:读过一本好书,像交了一个益友书是阶梯高尔基说:“书是人类进步的阶梯”书山有路勤为径,学海无涯苦作舟读书无疑者须教有疑,有疑者却要无疑,到这里方是长进善读者日攻,日扫攻则直透重围,扫则。
  • 熊童子扦插多久才能出根(熊童子的扦插繁殖技巧)
  • 2024-11-22熊童子的扦插繁殖技巧熊童子是一种非常可爱的多肉植物,比较多的多肉植物爱好者都有养殖熊童子,尤其是长出红色的“小爪子”的时候,是非常萌的,很多的之前不喜欢多肉植物的人在看一眼熊童子之后就会改变对多肉植物的看法虽然说熊童子大。
  • 优秀硕博生(南开教授自嘲式简历火上热搜)
  • 2024-11-22南开教授自嘲式简历火上热搜昨天,话题#南开胡金牛教授简历太好笑了#,一度冲上热搜第二又一位“互联网冲浪十级”教授火了!一个不愿透露姓名的老师表示:“官网上的个人介绍都是教授自己写的,校方不会干涉”看来胡金牛教授真是位乐在其中的。
  • 5部被低估的华语电影(华语影坛再无巅峰)
  • 2024-11-22华语影坛再无巅峰​“婊子无情,戏子无义婊子,合该在床上有情;戏子,只能在台上有义”李碧华所写《霸王别姬》原作,开篇便是这两句文里的故事,便成了这样:“床上台上才作真,床下台下再作真便落得个粉身碎骨的下场”婊子也好,戏。
  • 小瓜水饺做法(小瓜水饺怎么做)
  • 2024-11-22小瓜水饺怎么做准备面粉,五花肉洗净面粉放入少许盐,和适量的清水活成一个光滑的面团准备肉馅,小瓜擦丝切碎把五花肉躲碎肉馅放入盆子,分三次加入花椒水(花椒提前用温水浸泡一会,大约30分钟)再放入花生油,味极鲜,葱碎,姜。
  • rna甲基化测序分析流程(装四个甲基升级)
  • 2024-11-22装四个甲基升级本文来自微信公众号:X-MOLNews副标题:自动化迭代构建Csp3-C键合成一个分子从来都不是一项轻松的任务,能否顺利拿到目标产物需要专业知识、技巧、经验甚至一些运气如果能有合适的设备帮助人们,实现。
  • 庆余年好看吗值得追吗 豆瓣7.9分爽剧庆余年
  • 2024-11-22庆余年好看吗值得追吗 豆瓣7.9分爽剧庆余年《庆余年》这个年度网爽剧,不仅有大票老戏骨加持,还有让人心痒得关不上app的剧情有讳莫如深的套路让你悬起心来,又有猝不及防的外挂让你舒展开爽有沙雕欢乐的人设,还有甜出老夫们少女心的爱情真.让人上头,欲。
  • 大话西游手游官网免费(大话西游手游将携乐队空降CJ)
  • 2024-11-22大话西游手游将携乐队空降CJ坐拥网易最强西游IP,《大话西游手游》确认将于7月30日空降2015ChinaJoy网易展区,完美诠释“手游年轻派回合新经典”献声大话奇翼果推CJ处子秀作为网易旗舰级端游《大话2》同名手游,《大话西游。