求一个另存并且替换的小程序

bingyue789

   

pweo 发表于 2025-12-18 17:15
我按照你的需求写了一个，设了快捷键Ctrl+3，你试试：

谢谢，很好用。

bingyue789

   

pweo 发表于 2025-12-18 18:05
在定义这两个函数 backupSaveAs()，ReplaceIns() 的时候要把你需要的这两个参数写到参数列表里，调用的时候 ...

能给编译一下吗？新手刚学了2天，不知道变量放在哪里合适

pweo

   

bingyue789 发表于 2025-12-18 18:09
谢谢，很好用。

不客气

pweo

   

bingyue789 发表于 2025-12-18 18:12
能给编译一下吗？新手刚学了2天，不知道变量放在哪里合适

就是你用procedure（）来定义函数的时候，可以带参数也可以不带参数，比如你这里调用自定义函数ReplaceIns()时候，需要自己选lib和新cell name，那这两个就是需要传递给这个函数ReplaceIns()的参数，在用procedure定义的时候就要把参数列表带上，格式就是：
procedure(ReplaceIns(libname  cellname)
             ;;;函数正文;;;
          )

bingyue789

   

pweo 发表于 2025-12-19 10:00
就是你用procedure（）来定义函数的时候，可以带参数也可以不带参数，比如你这里调用自定义函数ReplaceIn ...

谢谢，我试试。

我原本思路是：只调用两个函数 SaveAs 和 leReplaceAnyInstMaster ，先调用SaveAs 窗口，输入  LibName 和 CellName ，
然后把 LibName 和 CellName 传递给 leReplaceAnyInstMaster ，程序应该会很小。不知道能不能实现？


如果SaveAs不行还可以用hdbSaveAs 或者用 hdbSaveACopy

pweo

   

bingyue789 发表于 2025-12-19 10:58
谢谢，我试试。

我原本思路是：只调用两个函数 SaveAs 和 leReplaceAnyInstMaster ，先调用SaveAs 窗口， ...

你说的SaveAs窗口是指工具栏 "File"-->"Save a Copy" 调出来的窗口吗，我理解这个窗口只能将当前打开的layout cell另存一个cell，不能将当前layout 窗口中所选中的一个cell另存，如果想另存，也要先进到所选cell的层次里面才可以另存，另存之后要替换，也要先退出来再调用Properties窗口进行替换；如果你说的saveas是一个函数，目前我没有在api里面找到这个函数

bingyue789

   

pweo 发表于 2025-12-19 13:57
你说的SaveAs窗口是指工具栏 "File"-->"Save a Copy" 调出来的窗口吗，我理解这个窗口只能将当前打开的la ...

可以这样做 ：先  leHiEditInPlace 进到里，然后 geSaveAs ，再 leReturn 返回上一层就可以了
procedure(SaveAsTest()
          leHiEditInPlace()
          geSaveAs()
          leReturn()
)
上面这个小程序是可以运行的，现在还是参数怎么继承到 leReplaceAnyInstMaster 这里面来。

下面是我搞不定部分：
hiSetBindKey("Layout" "<Key>#" "SaveAsReplace()" )
procedure(SaveAsReplace()
        Inst=car(geGetSelectedSet())
        backupLib  = Inst~>libName
        backupCell = Inst~>cellName
        orgview =    Inst~>viewName

        leHiEditInPlace()
        geSaveAs(""  backupLib backupCell orgview)
       leReturn()

        leReplaceAnyInstMaster(
            Inst~>id
            backupLib
            backupCell
            Inst~>viewName
        )
)

pweo

   

bingyue789 发表于 2025-12-19 14:32
可以这样做 ：先  leHiEditInPlace 进到里，然后 geSaveAs ，再 leReturn 返回上一层就可以了
procedure( ...

调用save as窗口后，填入lib和cell名，可以用语句"geSaveAdForm->libName->value"和"geSaveAdForm->cellName->value"取出刚刚填入的参数名，就可以往下传递了

bingyue789

   

pweo 发表于 2025-12-19 16:21
调用save as窗口后，填入lib和cell名，可以用语句"geSaveAdForm->libName->value"和"geSaveAdForm->cellN ...

写好了，测试可以用

hiSetBindKey("Layout" "<Key>#" "SaveAsReplace()" )


procedure(SaveAsReplace()

        leHiEditInPlace()
        geSaveAs()
                backupLib  = geSaveAsForm->libName->value
                backupCell = geSaveAsForm->cellName->value
                backupView = geSaveAsForm->viewName->value
        leReturn()
        leReplaceAnyInstMaster(car(geGetSelectedSet()) backupLib backupCell backupView)
)

pweo

   

bingyue789 发表于 2025-12-19 17:04
写好了，测试可以用

hiSetBindKey("Layout" "#" "SaveAsReplace()" )

厉害，你这个更简洁了