shell 通过传递文件名和文件夹位置将.DWG的快捷方式保存到指定文件夹

1u4esq0p 于 2023-01-31 发布在 Shell

关注(0)|答案(1)|浏览(179)

我正在寻找一个脚本（我相信），这样一个来自CAD的lisp可以将文件名和文件夹位置传递给脚本，并在指定的文件夹中保存.DWG的快捷方式。我没有脚本方面的经验。有人能告诉我如何操作吗？
我在另一个问题中发现了这个问题，但我不确定这是否是我正在寻找的问题，也不知道如何使它发挥作用。

param ( [string]$SourceExe, [string]$DestinationPath )

$WshShell = New-Object -comObject WScript.Shell
$Shortcut = $WshShell.CreateShortcut($DestinationPath)
$Shortcut.TargetPath = $SourceExe
$Shortcut.Save()`

shell

来源：https://stackoverflow.com/questions/75269461/save-a-shortcut-of-a-dwg-to-specified-folder-by-passing-file-name-and-folder-lo

1条答案

按热度按时间

6xfqseft1#

在AutoLISP中，它将是这样的：

(defun MakeShortcut ( SourceExe DestinationPath / Shell shortcut ) 
    (setq Shell (vlax-get-or-create-object "Wscript.Shell"))
    (setq shortcut(vlax-invoke-method Shell 'CreateShortcut DestinationPath ))
    (vlax-put-property shortcut 'TargetPath SourceExe)
    (vlax-invoke-method shortcut 'Save)
    (vlax-release-object Shell) 
)

您可以通过以下方式使用它：

(MakeShortcut "C:\\Path\\Drawing.dwg" "C:\\Test\\test.lnk" )

赞(0）回复(0）举报 2023-01-31

我来回答

shell 通过传递文件名和文件夹位置将.DWG的快捷方式保存到指定文件夹

1条答案

相关问题

热门标签

最新问答