lsp加载和卸载帮助

Lee Mac · 发表于 2022-7-6 07:59:49

好我想你早就超过我了。网络研究

BlackBox · 发表于 2022-7-6 08:04:27

你这么说真是太好了，我的朋友。

你提到这很有趣。NET，因为我刚刚为LISP编写了一个LispFunction方法“NETLOAD”，它接受一个参数，一个指向DLL的有效文件路径，作为字符串（只是为了好玩）。英雄联盟

BlackBox · 发表于 2022-7-6 08:05:18

FWIW-

我保留了32位和64位MDITAB。同一目录中的ARX文件（我刚刚将这些文件重命名为64位，如下面代码中所述），并使用此**shell过滤要在多个AutoCAD版本和操作系统中加载的文件：

**我实际上没有使用这个命令，而是使用系统变量Reactor自动执行相同的功能。

copy

[color=black]
[/color](defun c:MdiTab  (/ 64Bit-p)
   ;; © RenderMan, 2011
   (vl-load-com)
 
   (defun 64Bit-p ()
   ;; © RenderMan, 2011
   ;; Returns T if version is 64-Bit
   ;; Example: (64bit-p)
   (if (vl-string-search "64" (getenv "PROCESSOR_ARCHITECTURE"))
     T
     nil))
 
   ((lambda (key sdi / mditab flag)
      (if (and
            sdi
            (setq mditab
                   (cond
                     ((vl-string-search "17" key)                        ; 2007, 2008, 2009
                      (if (64Bit-p)
                        "mditab17x64.arx"
                        "mditab17.arx"))
                     ((vl-string-search "18" key)                        ; 2010, 2011, 2012
                      (if (64Bit-p)
                        "mditab18x64.arx"
                        "mditab18.arx"))))
            (setq flag (findfile mditab))
            (not (vl-position mditab (arx))))
        (and (arxload mditab) (princ "\rMDITAB: LOADED "))
        (cond
          (flag (and (arxunload mditab) (princ "\rMDITAB: UNLOADED ")))
          (mditabs
           (prompt (strcat "\n** "" mditab "" cannot be found ** ")))
          (sdi (prompt "\n** This AutoCAD version not supported ** "))
          ((prompt "\n** Command not allowed in SDI mode ** ")))))
     (vlax-product-key)
     (= 0 (getvar 'sdi)))
   (princ))