用豆包生外挂，明天试结果
用豆包生外挂，明天试结果bey2008 发表于 2026-4-24 09:25
可能我没基础,没搞对,出错了,它生成的tcl文件,ug识别不了,我把代码发出,看有没有懂的大神解惑
1.CopyOperTo ...
1段是菜单文件。图标和调用对应的文件。。。2段应该是所谓的文件了完全看不懂。。。3段应该是加载菜单。。。反正是似是而非， bey2008 发表于 2026-4-24 09:25
可能我没基础,没搞对,出错了,它生成的tcl文件,ug识别不了,我把代码发出,看有没有懂的大神解惑
1.CopyOperTo ...
国产AI做NX二次开发还是算了吧 这样都能搞 让我们这些搞二次开发的还咋活 楼主试了吗？ 我猜测它完成不了，这个东西至少在手机上肯定完成不了 可能我没基础,没搞对,出错了,它生成的tcl文件,ug识别不了,我把代码发出,看有没有懂的大神解惑
1.CopyOperToSelected.dfa
VERSION 1
DIALOG TITLE "复制工序+选刀"
BUTTON "复制→粘贴到选中后+换刀"
ACTION CopyOperToSelected
2.CopyOperToSelected.tcl
# 复制前端程序组 → 粘贴到选中工序后 → 弹出选刀
proc CopyOperToSelected {} {
if {[catch {
set cam_session
set setup [$cam_session Setup]
set oper_col [$setup OperationCollection]
# 1. 获取选中的目标工序（粘贴到它后面）
set sel_ops [$oper_col SelectedOperations]
if { == 0} {
UG::MessageBox "请先选中【目标工序】！\n（复制内容会贴在它后面）"
return
}
set target_op
# 2. 获取前端 PROGRAM 下所有工序
set program_list [$setup Programs]
if { == 0} {
UG::MessageBox "未找到程序组(PROGRAM)"
return
}
set front_prog
set source_ops [$front_prog Operations]
if { == 0} {
UG::MessageBox "前端程序组中无工序可复制"
return
}
# 3. 弹出刀具选择框
set cutter
if {$cutter eq ""} {
return
}
# 4. 复制 → 粘贴到目标后 → 换刀
set count 0
foreach op $source_ops {
# 复制
set new_op [$op Copy]
# 移动到目标后面
$new_op MoveAfter $target_op
# 替换刀具
$new_op SetCuttingTool $cutter
incr count
}
UG::MessageBox "完成！\n复制 $count 个工序\n并已替换为所选刀具"
} err]} {
UG::MessageBox "错误：$err"
}
}
3.custom_dirs.dat
${UGII_CUSTOM_DIR}
AI非常厉害了！再过几年就不得了！ 简单的活可以，二次开发不行吧。AI现在还不是万能的
说不定过两年编程都不需要了 牛牛牛牛牛牛牛牛牛牛牛
页:
[1]
2