社区 › Auto Lisp › 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

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

;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问题。。。  
在列表中放置任意数量的路径，并尝试一下。

(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)))
      )   
    )
)

vudungcom 发表于 2022-7-5 14:07:32

我仍然不能使用你的lisp，它总是选择错误的文件名，例如：我键入2222，然后它打开文件1111，
大多数情况下，它表示文件名无效，尽管这些图形存在

fuccaro 发表于 2022-7-5 14:10:09

我的错误。请试试这个：
路径不是以双反斜杠结束的！
（其他错误也已纠正）
 

marko_ribar 发表于 2022-7-5 14:15:32

我只是弱读这个主题，但我有一个子功能，从我的图书馆，可能是感兴趣的。。。
 
我希望你会发现它有用。。。
您好，M.R。

BIGAL 发表于 2022-7-5 14:18:34

我的尝试，你需要ListboxV1-2。Lee mac的lsp。com也
 
8
 
 

vudungcom 发表于 2022-7-5 14:20:48

 
谢谢@BIGAL，它现在工作得很好，我想改进的一点是：我们很少更改文件夹路径，所以可以将其设置为默认选择，当我们需要更改时，只需输入命令并更改路径。这只是一个高级功能，请随意操作，但现在对我来说已经可以了。非常感谢你。
感谢您的努力，但当我输入“1”或“4”时，它也会出错。请查看附件了解详细信息。
https://i.imgur.com/fLtdfUw.png
 

查看完整版本: Lisp用于在s中打开文件