catia怎么用vba获取拓扑面的面积(CATIA二次开发VBA)
catia怎么用vba获取拓扑面的面积(CATIA二次开发VBA)
2024-11-05 08:02:00  作者:心碎了无痕  网址: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-06孙俪邓超将演张艺谋新电影孙俪邓超最近开始了第六次再合作,这一对逗比精分夫妇这次将出演张艺谋的电影《影》,想想俩人在《甜蜜蜜》中的精彩片段,“超级玛俪”夫妻档又出手虐狗了!两个人就是因《甜蜜蜜》这部戏生情的,其实这两个人平常微。
  • 卜算子黄州定慧院寓居作苏轼简介(黄州定慧院寓居作)
  • 2024-11-06黄州定慧院寓居作缺月挂疏桐,漏断人初静谁见幽人独往来,缥缈孤鸿影惊起却回头,有恨无人省拣尽寒枝不肯栖,寂寞沙洲冷译文:残月高挂在稀疏的梧桐上,滴漏声断了,人群开始安静谁能见幽居人独自往来徘徊?唯有那缥渺高飞的孤雁的身。
  • 哈里斯福特主演的电影
  • 2024-11-06哈里斯福特主演的电影哈里森福特主演的电影有《目击者》是由派拉蒙影业公司制作,彼得·威尔执导,哈里森·福特,凯莉·麦吉利斯等主演的剧情片,于1985年2月8日在美国上映该片主要讲述了男孩山姆目击了一宗谋杀案,警察约翰·布克。
  • 二手红色6万左右女士车型(二手法系红浪漫)
  • 2024-11-06二手法系红浪漫作者——咖加用户:MZ的大胡子提到法系车你能想到什么?山不转水转的方向盘,还是更多奇葩到反人类的设计……这可能是我开过的为数不多的法系车之一,上一台是N年前的雪铁龙世嘉车主刚刚拿证不久,买车就俩诉求:。
  • 许晴曾因撒娇被闺蜜吐槽(许晴曾为他放弃角色)
  • 2024-11-06许晴曾为他放弃角色16年最期待的一部剧莫过于《幻城》了,范冰冰,冯绍峰,马天宇,金喜善的定妆照一出,至少造型和颜值已经征服观众心了在这部颜值普遍较高的剧中,还有一个大叔级别的人出演冰王,就是邵兵虽然已经年过四十,但邵兵。
  • 信息安全业务行业分析(安全业务收入增速超70)
  • 2024-11-06安全业务收入增速超70文/张铁4月21日晚上,三六零(简称“360”)发布2021年度报告报告期内,360实现营收108.86亿元,归属于公司股东的净利润为9.02亿元过去,互联网业务是360公司“互联网安全”双轮驱动商业。
  • 孩子不能吃的8种食物(儿童饮食常见的三个误区)
  • 2024-11-06儿童饮食常见的三个误区孩子是父母的心头肉,不仅爸爸妈妈怕孩子营养不够,爷爷奶奶外公外婆也是生怕孩子营养不足,变着法给孩子做好吃的、买营养品,您有没有走入误区呢?快来对照一下吧!误区一:粗粮健康,多吃对身体好真相:粗粮虽好,。
  • 喝阴阳水对身体危害大么(阴阳水到底能不能喝)
  • 2024-11-06阴阳水到底能不能喝不知道大家有没有喝过阴阳水,其实大部分人都曾经喝过,阴阳水就是滚烫的水加上凉水,然后混合成温水这样喝起来不烫嘴,很多朋友都喜欢这样兑着喝,但是有些人认为这样喝对身体并没有什么好处,反而会对人的身体产生。
  • 速度与激情拉力战神车(速度与激情里面的美国肌肉车)
  • 2024-11-06速度与激情里面的美国肌肉车编辑:糊涂先生图片来源:网络文中车辆和价格绝非虚构,看上哪辆车了可以联系我们呦!添加微信号咨询我们:taoche6如今受制于资源、环保等原因,很多车都是用了小排量涡轮增压发动机,就连2017年沃德十佳。
  • 逆袭人生的三大技巧(她逆袭改命180斤的废柴)
  • 2024-11-06她逆袭改命180斤的废柴香港2021年叱吒乐坛流行榜在元旦当天颁奖,歌手郑欣宜将“女歌手金奖”和“我最喜爱女歌手”双双拿下要知道,叱咤乐坛歌手金奖从1988年开始设立,获奖者从张国荣、Beyond、梅艳芳、林忆莲到四大天王,。
  • 古时人们为何一斤十六两(祖先为什么定十六两为一斤)
  • 2024-11-06祖先为什么定十六两为一斤过去人们常用半斤八两来形容两个事物是一样的,为什么这么说呢?原来我们祖先使用的秤是十六两为一斤,所以半斤和八两就是一样的那么老祖囘宗为什么定十六两为一斤呢?是他们不聪明吗?不是的传说我们的先人观察到北。