返回
catia怎么用vba获取拓扑面的面积（CATIA二次开发VBA）
catia怎么用vba获取拓扑面的面积（CATIA二次开发VBA）
2024-07-04 04:29:03  作者:心碎了无痕  网址: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

示例：

catia怎么用vba获取拓扑面的面积（CATIA二次开发VBA）(1)

  • 上海居转户公示通过后续手续流程 上海居转户申报条件以及申报流程详解
  • 2024-07-04上海居转户公示通过后续手续流程 上海居转户申报条件以及申报流程详解其实，当你真正了解清楚上海居转户的申报条件之后，你会发现，落户上海并没有想象中的那么难，5年前，能落户上海的非富即贵，但是随着落户政策的一步步放宽，普通人也是可以轻松落户上海的，今天，王老师给大家详细。
  • 安装了心脏支架能活多少年（心脏支架是缺德害人）
  • 2024-07-04心脏支架是缺德害人“感觉装上支架后，我整个人都废掉了，能不能帮我取出来？”今年64岁的李大叔对医生说！李大叔早在20年前就查出有冠心病，冠脉狭窄的程度有80%，因为当时他没有啥症状，运动、工作都没有不舒服的感觉，也没有。
  • 总会有一个凄美的故事（她能逃过对所有人的牵绊放逐天涯海角）
  • 2024-07-04她能逃过对所有人的牵绊放逐天涯海角傅安巧站在商业大厦下面，在北风中瑟瑟发抖逃出家已经快三个小时，街上已经亮起华灯，还有一小时就是订婚宴开始的时间“喂，找到了吗？”“没呢，也不知道那丫头是怎么想的，多少人做梦都想嫁进季家，她居然逃走”…。
  • 怎样半坡起步又快又好（3分钟学会半坡起步）
  • 2024-07-043分钟学会半坡起步有很多新手朋友开手动挡车一段时间了，但是每次半坡起步都特别容易熄火溜车，刚开始时觉得没啥，但经常这样就感觉有点尴尬了，在老司机的成长路上多了一个坎，感觉特没面子我相信这个问题其实也是很多新手朋友的症结。
  • 干煸鱿鱼丝的家常做法大全（美味简单家常菜）
  • 2024-07-04美味简单家常菜大家好，我是第一美食阿飞，每天都有几道美食分享给你，关注带你领略四海八荒的舌尖美味干煸鱿鱼丝属于川菜，以鱿鱼为主食，干辣椒、花椒等辅料制作而成，鱿鱼营养价值高，含有蛋白质、钙、铁、钾等矿物元素，具有防。
  • 看了北京冬奥会的解说词（北京冬奥会开幕解说词）
  • 2024-07-04北京冬奥会开幕解说词随着2022年北京冬奥会、冬残奥会筹办备赛工作基本就绪，一处处惊艳的细节、一个个精心的设计、一次次缜密的安排不断揭晓，越来越多的中国元素在冬奥舞台上悄然绽放，讲述中国故事，展示中国魅力作为高中生的我们。
  • 刘亦菲个人资料简介身高年龄（古偶还是得看刘亦菲）
  • 2024-07-04古偶还是得看刘亦菲继年初的爆款悬疑剧《开端》后，国产剧终于迎来今年的第二部爆款剧作——《梦华录》播出三天后，《梦华录》在豆瓣开分8.3分，成为2022年国产剧豆瓣最高开分作品，截至目前平台播放量已突破10亿次从“口碑新。
  • 万界主宰全部女主（无法确定女主的作品）
  • 2024-07-04无法确定女主的作品近些年来随着环境的变好，越来越多的国产动漫涌现，尤其是企鹅一直在大力支持国漫的发展，但是企鹅平台的国漫作品数量就远在其他平台之上而在众多的国漫作品之中，有一部国漫作品却非常离奇，别的国漫作品不管怎么样。
  • 国内直飞吉隆坡有哪些机场（3家航司相继新开通）
  • 2024-07-043家航司相继新开通从成都出发，下月起飞马来西亚首都添捷径6月17日，记者从国航西南分公司获悉，7月19日起，国航将新开成都天府国际机场直飞吉隆坡往返航线，每周四班记者了解到，7月1日开始，马来西亚亚航长途、峇迪航空也将。
  • 古董局中局原著剧情详细解析（古董局中局大结局）
  • 2024-07-04古董局中局大结局热播剧《古董局中局》在昨晚也迎来了大结局，不过这个大结局也只能算是半个结局吧到底怎么回事呢？咱们一起来看看吧剧中最大的疑问有两个：1.则天明堂玉佛头的真假2.老朝奉到底是谁？先来解答第一个疑问，明堂玉。