磁贴文件容量超过

dax · 发表于 2022-7-5 16:24:10

大家好，

如果有人在AutoCAD中遇到此类错误消息？目前我正在使用Jeffrey Sanders的BATCHLISP程序，请注意，当我选择1000多个文件时，该程序有限制。列表框是否有限制？

当做
Dax公司

rkmcswain · 发表于 2022-7-5 16:34:57

确实如此。我不记得限制是项目的数量还是项目的总字符串长度。
谷歌类似“autocad list\u box limitation”的东西-我打赌你可以找到一些过去关于它的对话。如果20多年来DCL有什么变化的话，那也不会太大。

dax · 发表于 2022-7-5 16:41:21

感谢您的回复，您能建议使用其他技术而不是DCL吗。

BIGAL · 发表于 2022-7-5 16:50:44

创建脚本等可以有超过1000行在它，我希望。我知道我已经做了超过100个，你有没有想过用其他方式创建你的脚本，比如老式的CMD DIR*。dwg>dirlst/b插入word或excel以生成脚本。障碍似乎是创建dwg名称列表。

你能描述一下你的文件目录吗？

有多种方法可以制作包括子目录在内的文件列表。我刚刚搜索了我今年的项目，找到了200多个DWG，花了大约2秒钟，我把它们放在了一个文本文件中。下一步，输入word并使用Replace生成脚本，使用^ p（行的末尾）生成脚本，在脚本之前或之后添加所需内容。例如^ p replace ^ p Open在开始时为每一行添加Open，^p replace（load“mylisp”）close Y ^ p在结束时添加。

copy


CMD you know lower left windows ball, for those on Win 10 type CMD into box.
Z: pick your drive etc
cd 2016 projects
dir *.dwg >c:\acdatemp\dirlst.txt /s /b
P:\2016 Projects\2016000\Leisure centre\Disabled.dwg
P:\2016 Projects\2016007\Design\2016007 PA.dwg
P:\2016 Projects\2016007\Design\2016007.dwg

dax · 发表于 2022-7-5 17:00:46

嗨，比格尔，

不熟悉这种方法，只是计划定制Jeffry Sanders的BATCHLISP程序，但是在检查该程序时，它不能处理超过500个文件。你有这种方法的样本路由吗？

当做
Dax公司

BIGAL · 发表于 2022-7-5 17:08:05

张贴几行你想要的脚本。我的建议得到了所有你可以做的过滤以及所有的“a*.dwg”，所以得到所有的“a”dwg的情况并不重要。我只是做了我的C：驱动器可能需要5秒钟，并返回了108页的dwg的文字。

dax · 发表于 2022-7-5 17:12:31

嗨，比格尔，

见以下代码。。假设get_tile“file”包含1000。dwg文件。

copy


(defun saveVars()
 ;;;--- Set up an empty list to hold the selected file names
 (setq fileList(list))
 
 ;;;--- Get the files attribute
 (setq selIndexes(get_tile "files")) ; files contains the list of drawings assuming 1000 .dwg files
 
 
 ;;;--- Set up a counter
 (setq cntr 1)
 ;;;--- Cycle through each item in the list
 (while (setq item (read selIndexes))
   ;;;--- Save the path and selected file name in the list
   (setq fileList (append fileList (list (strcat FilePath (nth item ListOfFils)))))
   ;;;--- Check for blank or empty selections
   (while
     (and
       (/= " " (substr selIndexes cntr 1))
       (/= ""  (substr selIndexes cntr 1))
     )
     (setq cntr (+ cntr 1))
   )
   ;;;--- Get the next item
   (setq selIndexes (substr selIndexes cntr))
 )
 ;;;--- Return the file list
 fileList
)

BIGAL · 发表于 2022-7-5 17:17:32

我不可能滚动浏览1000行dcl列表，我最多会将其分解为单个目录和子目录。我希望我们的图形命名约定能够确保我们创建一个合适的列表，按照我的方式，我只需在word中打开列表，删除我不想留下的内容，即所需的主列表。正如我在上面发布的那样，我得到了完整的路径描述，所以像块库这样的完整目录可以批量删除。同样，使用Replace可以很容易地在Word中完成脚本编写。

dax · 发表于 2022-7-5 17:28:34

嗨，比格尔，

我将其管理为选择列表框中的所有项，问题是它在选择530多个图形文件时遇到错误。

[编程交流] 磁贴文件容量超过

发表回复

精选推荐