catia怎么用vba获取拓扑面的面积(CATIA二次开发VBA)
catia怎么用vba获取拓扑面的面积(CATIA二次开发VBA)
2024-11-21 09:47:56  作者:心碎了无痕  网址:https://m.xinb2b.cn/tech/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成人自考学历太对于部分没有专科学历,又想拿本科学历的考生来说,最大的疑问就是“四川成人自学考试要考取本科必须先过专科吗?”当然不是!下面,查米教育就为同学们详细解读一下关于四川成人自学考试一些关注度比较高的问题首先。
  • 妹控皮肤哪个好看(个人主页成皮肤秀场)
  • 2024-11-22个人主页成皮肤秀场王者荣耀个人主页功能中可以自定义英雄和皮肤的展示,这个功能虽然用处不大,但却成为了每一个玩家秀皮肤的地方之前就有网友一直在讨论到底放哪些皮肤最能显出逼格呢?项羽的苍穹之光重做之后非常的霸气,从之前的一。
  • 东北山楂汁的做法(山楂汁炒红果黑糖山楂酱一锅出)
  • 2024-11-22山楂汁炒红果黑糖山楂酱一锅出山楂也叫红果,估计每一个人都有关于山楂的记忆,不是来自电影《山楂树之恋》,而是学校门口小卖部,山楂糕,山楂片,山楂条等都曾扮演过我们小时候零食的主角,甚至中药的山楂丸也被当过零食从小就与山楂有渊源,算。
  • 张继科他是多么渴望再回到赛场(历经起伏张继科再复出)
  • 2024-11-22历经起伏张继科再复出资料图:张继科在比赛中中新网记者李卿摄中新网客户端5月23日电(记者岳川)如果不是因为张继科,一场乒联巡回赛的资格赛难有如此高的关注度,看台上球迷不间断的助威声再次印证了“藏獒”的高人气和影响力离开乒。
  • 垃圾食品排行榜酸奶排第三(网传热门垃圾食品)
  • 2024-11-22网传热门垃圾食品汽水、奶茶、炸鸡这些高糖、高油、高盐的食品是不少小朋友、年轻朋友,甚至是中年朋友都颇为钟爱的食物,注重健康、讲究饮食营养均衡的朋友对这些食物称之为“垃圾食品”,今年网传的热门“垃圾食品”中,碳酸饮料上。
  • 新加坡为什么那么有名(冰冻三尺非一日之寒)
  • 2024-11-22冰冻三尺非一日之寒前段时间,在《红星大奖》上,一位女艺人在发表获奖感言时,激动哽咽地说:冰冻三尺,非一日之寒,我今天能有机会站在台上,要感谢很多人.....就因”冰冻三尺,非一日之寒“这一成语,一石激起千层浪关于它”褒。
  • 公关小姐主要人物特性(恶魔小姐强势安利人事公关技巧)
  • 2024-11-22恶魔小姐强势安利人事公关技巧2018年春季上线的全新日剧《恶魔小姐》,最近真是深得小哈我的偏爱!光是椿真子的形象就已经十足抓爆眼球了:杨柳细腰大长腿,樱桃小口高跟鞋,一张小脸儿还没我巴掌大关键她还眼神犀利,气场强大,动不动就过肩。
  • 你怎么看待大学生谈恋爱
  • 2024-11-22你怎么看待大学生谈恋爱支持大学生谈恋爱第一,年龄允许大学生都是成年人了,有的甚至达到结婚年龄,这种年龄谈恋爱没有什么奇怪的;第二,环境允许大学都是男女云集的地方,帅男靓女随处可见,如果在这样的环境里一点不动心,那是强人所难。
  • 暗黑2开荒符文之语(暗黑2符文之语怎么用)
  • 2024-11-22暗黑2符文之语怎么用符文之语指的是把符文按顺序镶嵌在有凹槽的白色/灰色装备里面,就会产生效果符文之语能不能做出来和游戏版本支不支持、装备类型对不对、凹槽数对不对、符文顺序对不对都有关系1.11或者更高的版本,加上大箱子补。
  • 唐国强之女唐莉谈亲情泪流满面(唐国强的女儿唐莉)
  • 2024-11-22唐国强的女儿唐莉唐国强、孙涛母别子,子别母,白日无光哭声苦1990年除夕夜,一声哭喊划破夜空,唐国强的前妻孙涛在自家的卫生间里自缢,留下年仅7岁的女儿唐莉和满头白发的父母一时间唐国强被推上舆论的风口浪尖,不管中间发生。
  • 两个字的游戏名字男(分别是什么名字)
  • 2024-11-22分别是什么名字你说,炼狱,烟火,泪别,知恩,絔离,灭世,尾戒,纯帅,星光,莣記,敷衍,魂淡,初点,哈雷,驻扎,浅唱,凌乱,狗渣,麻木心癌,蓜桷,物生,聂風,孤痞,初晴,求败,葬魂,泪枯,嗯哼,破天,灭世,似初,厌世。