首页/文章/ 详情

不会catia二次开发,让ChatGPT帮忙写一段代码-零件下所有几何体批量重命名。

8月前浏览7338

本文摘要(由AI生成):

这篇文章主要介绍了如何使用 ChatGPT 编写一段实用的 VBA 代码,实现对 CATIA 零件文件下所有几何体的批量重命名。作者先提供了 ChatGPT 的接口地址,然后在对话栏输入相关需求,ChatGPT 给出了相应的代码。作者还对代码进行了详细解释,并将其复 制粘贴到编辑器中运行,结果证明程序完美执行。



老铁们大家好,体验一下,即便不会二次开发,如何用ChatGPT写一段实用的vba代码,比如,“给catia 零件文件下所有的几何体批量重命名”,随便从网上找一个ChatGPT的接口,比如如下地址:

https://chat18.aichatos.xyz/ (类似的网站很多,大家自行百度检索,个人感觉这个还不错,不用花钱!

在对话栏输入:请帮忙写一下CATPart下所有几何体批量重命名的代码(注意专业名词尽量用英语表达啊,有助于写出更准确的代码),GPT给出了如下的回答!

其中代码部分,复 制出来如下(有一个copy code按钮,直接复 制代码使用即可,灰常方便):

Sub RenameAllBodies()

    Dim objPartDocument As PartDocument

    Set objPartDocument = CATIA.ActiveDocument

    

    If objPartDocument Is Nothing Or objPartDocument.Part Is Nothing Then

        MsgBox "请打开一个零件文件!"

        Exit Sub

    End If

    

    Dim objPart As Part

    Set objPart = objPartDocument.Part

    

    Dim objBodies As Bodies

    Set objBodies = objPart.Bodies

    

    Dim i As Integer

    For i = 1 To objBodies.Count

        objBodies.Item(i).Name = "Body_" & i

    Next i

    

    MsgBox "所有body已经重命名完成!"

End Sub


ChatGPT还添加了额外的解释,比较人性化啊:
将上述代码复 制粘贴到CATIA的Macro编辑器中,并执行该宏。这段代码将遍历零件文件中的所有body,并按照"Body_数字"的格式进行重命名。请确保在执行此代码之前已经打开了要处理的零件文件。

我们将这一部分代码,复 制粘贴到编辑器里面并运行,发现程序完美执行。

程序执行前

程序执行后

但是对于完全的新手来说,即便给了你这样的一段程序代码,你可能都无法把他拷贝到程序编辑器中,并执行它。所以我将这段代码拷贝到了文本文件里,并稍微加了一下改动,做成了一个catscript文件,当你需要批量修改几何体名称的时候,只需要双击程序即可执行!

在人工智能的时代,程序猿真的要失业了吗???



来源:CATIA小蚂蚁
ACT二次开发CATIAUM人工智能
著作权归作者所有,欢迎分享,未经许可,不得转载
首次发布时间:2024-03-24
最近编辑:8月前
CATIA专业培训讲师
日拱一卒无有进 功不唐捐终入海
获赞 37粉丝 128文章 64课程 4
点赞
收藏
未登录
还没有评论
课程
培训
服务
行家
VIP会员 学习 福利任务 兑换礼品
下载APP
联系我们
帮助与反馈