cqu20104225 发表于 2022-2-16 15:48:35

vlisp操作网络映射方法分享

利用脚本的方法，配合vlisp函数，可以实现对网络映射的操作，以下是个人的方法总结，分享出来，抛砖引玉。
一、脚本方法


二、vlisp源码参考
(defun c:tt ()
(setq WshNetwork (vla-getInterfaceObject (vlax-get-acad-object) "WScript.Network"));创建WScript.Network对象
(vlax-invoke-method WshNetwork 'RemoveNetworkDrive "s:" "true" "true");删除当前映射
(vlax-invoke-method WshNetwork 'MapNetworkDrive "s:" "\\\\196.168.1.1\\test");创建新映射
(vlax-release-object WshNetwork);释放WScript.Network对象
)

CAD智能@未来 发表于 2024-7-31 09:55:27

MXS 发表于 2022-8-11 20:06
(defun c:tt ()
(setq WshNetwork (vla-getInterfaceObject (vlax-get-acad-object) "WScript.Network ...

要将"\\\\196.168.1.1\\test"修改为你电脑上的一个共享文件夹路径

Bdj 发表于 2022-2-16 20:14:01

能举个应用的例子吗？楼主

cqu20104225 发表于 2022-2-19 09:19:47

Bdj 发表于 2022-2-16 20:14
能举个应用的例子吗？楼主

参考代码就是在电脑上创建一个盘符是“s:”的网盘

MXS 发表于 2022-8-11 20:06:17

cqu20104225 发表于 2022-2-19 09:19
参考代码就是在电脑上创建一个盘符是“s:”的网盘

(defun c:tt ()
(setq WshNetwork (vla-getInterfaceObject (vlax-get-acad-object) "WScript.Network"));创建WScript.Network对象
;(vlax-invoke-method WshNetwork 'RemoveNetworkDrive "s:" "true" "true");删除当前映射
(vlax-invoke-method WshNetwork 'MapNetworkDrive "s:" "\\\\196.168.0.254\\暖通插件");创建新映射
(vlax-release-object WshNetwork);释放WScript.Network对象



想请教一下为何这样做完之后电脑直接卡死

kozmosovia 发表于 2024-7-31 10:56:03

写个bat，subst X: drv:\path1\path2
页: [1]
查看完整版本: vlisp操作网络映射方法分享