hdlyt11 发表于 2018-4-28 13:31:43

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

(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 (strcatwjh ".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 发表于 2018-4-28 15:38:51

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

xinxirong 发表于 2018-4-29 11:42:25

直接findfile
页: [1]
查看完整版本: 在一个打开的cad图中插入另一个图