Lisp用于在s中打开文件

vudungcom · 发表于 2022-7-5 13:51:11

很抱歉，我已经尝试了，但似乎无法搜索图纸并打开，我已经插入了代码<strong style=“background color:#ffffffff；color:#202020；font size:14px；”>（setvar“sdi”0）正如你所说的
此外，没有选择图形路径的设置

CHLUCFENG · 发表于 2022-7-5 13:56:12

也许游戏进行得很晚，但当我打开了多个绘图，而且通常来自不同的目录，并且我需要在当前绘图所在的同一目录中打开一个绘图时，我做了以下小动作：

copy


;Explore Current Directory
(defun c:xcd ()
  (command "shell"
     (strcat "explorer "" (getvar "dwgprefix") """)
  )
  (princ)
)

vudungcom · 发表于 2022-7-5 13:59:30

但这不是我想要的

BIGAL · 发表于 2022-7-5 14:02:54

fuccaro解决了这个问题，从新网站上复制和粘贴，它带来了unicode。

fuccaro · 发表于 2022-7-5 14:04:31

很抱歉阅读您的复制/粘贴问题。请查找随附的文本文件-它与此处发布的代码相同。希望它能解决unicode问题。。。
在列表中放置任意数量的路径，并尝试一下。

copy


(defun c:FindIt()
  (setq path (list
               "C:\\Users\\miklos.fuccaro\\Documents"
               "C:\"
               "C:\\Users\\Public\"
               )
        i -1)
  (repeat (length path)
    (princ (strcat (itoa (setq i (1+ i))) "  " (nth i path) "\n"))
    )
  (textscr)
  (setq path (nth (getint "\n>>>>>> Enter path's No " ) path))
  (setq DWGlist nil)
  (dwgs path)
  (setq fn (getstring "enter file name to search for "))
  (setq matches nil i 0)
  (foreach file DWGlist
    (cond
      ((wcmatch (vl-filename-base file) fn)(princ (strcat "\n" (itoa i) "   " file)))
      )
    (setq i (1+ i))
    )
  (setq ToOpen (getint "\nenter number of file to open\n"))
  (princ "\n>>>>>>")
  (command "fileopen" "y" (nth ToOpen DWGlist))
  )
(defun DWGs(path)        ;grab all DWGs starting from PATH -including subfolders
  (setq lst (vl-directory-files path))
  (foreach l1 lst    
    (cond
      ((or (= l1 ".")(= l1 "..")) nil)
      ((vl-file-directory-p (strcat path "\" l1))(dwgs(strcat path "\" l1)))
       ((= (vl-filename-extension l1) ".dwg") (setq DWGlist (cons (strcat path "\" l1) DWGlist)))
      )    
    )
  )