vlisp操作网络映射方法分享

cqu20104225

利用脚本的方法，配合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智能@未来

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

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

cqu20104225

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

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

MXS

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

写个bat，subst X: drv:\path1\path2