在一个打开的cad图中插入另一个图

hdlyt11

(defun c:sz()
    (vl-load-com)
    (setq old (getvar "cmdecho")
          path (strcat (Vlax-Get (Vlax-Get-Acad-Object) 'Path) "\\Support")
          files (vl-directory-files path "*.dwg" 1)
    )
    (setvar "cmdecho" 0)
    (command "_undo" "be")
    (setq wjh "目录")
    (setq wjm (strcat path "\\" wjh ".dwg"))
    (if (member (strcat  wjh ".dwg") files)
        (progn
            (command "_insert" wjm '(0 0 0) 1 1 1)
            (command "_zoom" "e")
        )
        (alert (strcat wjm ", 不存在!"))
    )

    (command "_undo" "e")
    (setvar "cmdecho" old)
    (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;搜索目录下有：目录.dwg文件，不知道为什么总提示文件不存在，请高手指点。

jackie31986

插入文件不在支持文件搜索路径。

xinxirong

直接findfile