按网上的帖子做了个布局批量输出到模型lsp但要函数支撑，请大神帮忙处理下

jevil

这个在网上找到的一个lsp代码，主要是布局批量输出到模型的，也是咱很需要，但是需要doslib函数支持，一运行就是报错误：命令LKPT_LAYOUTS_EXPORT2MODEL
no function definition: DOS_MULTILISTno function definition: DOS_MULTILIST
我也是从知乎找到，并把代码转发上来：
;; =================================================================================
;; 批量输出Layouts到Model
;; kedora@qq.com
;; AutoLISP源代码，非商业使用，可任意修改，不限制是否注明来源。

;; Revision :
;; R0.0.1        :2013/01/25        :初始版本。
;; R0.0.2        :2013/01/28        :改进程序流程，修正 sDwgName 去除最后的".dwg" 字符。
;; R0.0.2.1        :2013/02/06        :增加 (vl-arx-import 'layoutlist) 用于编译。

(defun C:lkpt_Layouts_Export2Model ( /
                                      sDwgFolder sDwgName iLen    sTab  lsLayouts
                                      sFolder    oldvar1  oldvar2 sItem sDwgOut
                                  )
  (setq sDwgFolder (getvar "DWGPREFIX")
        sDwgName (getvar "DWGNAME")
        iLen (- (strlen sDwgName) 4)
        sDwgName (substr sDwgName 1 iLen)
        sTab (getvar "CTAB")
  )
  (vl-arx-import 'layoutlist)
  (if (and (setq lsLayouts (dos_multilist  "Layout输出到Model" "选择需要输出到Model的Layout" (layoutlist)))
           (setq sFolder   (dos_getdir "输出目的文件夹" sDwgFolder "选择输出目的文件夹" T))
      )
    (progn
      (setq oldvar1 (getvar "FILEDIA")
            oldvar2 (getvar "CMDECHO")
      )
      (setvar "FILEDIA" 0)
      (setvar "CMDECHO" 0)
      (foreach sItem lsLayouts
        (setvar "CTAB" sItem)
        (setq sDwgOut (strcat sFolder sDwgName "_" sItem))
        (vl-cmdf "_.exportlayout" sDwgOut)
      )
      (setvar "CTAB" sTab)
      (setvar "FILEDIA" oldvar1)
      (setvar "CMDECHO" oldvar2)
    );_progn
  );_fi
  (princ)
);_defun

jevil

请问下怎么使用那个doslib函数，需要安装吗？还是怎么操作法，请各位大佬帮帮忙