bai2000 发表于 2012-4-27 09:11:13

求一个自动生成图纸目录的lisp

在论坛上找不找，没找到一个可以同时读取一个文件中有多张图纸时，自动生成图纸目录的lisp，请高手们有空的时候出手

gaics 发表于 2012-12-13 13:51:51

本帖最后由 gaics 于 2023-9-1 07:49 编辑

lidaxiu 发表于 2012-12-13 13:28 static/image/common/back.gif
16楼的好强哦！！！虽然不是源码，但强烈赞一个，谢谢了，不错的程序
没那么强，初学而已！这里是源码，楼主及各位自行根据所需来修改吧。

gaics 发表于 2012-12-13 08:11:59

试一试我的。

lidaxiu 发表于 2012-4-27 13:03:31

做个图演示下

1993063 发表于 2012-4-27 09:31:08

本帖最后由 1993063 于 2012-4-26 15:33 编辑

;;明经前辈之作
(DEFUN C:DWGMULU (/ FILE PATH1 PROFIX)
(SETQ PROFIX (GETVAR "DWGPREFIX"))
(SETQ PATH1 (ACAD_STRLSORT (VL-DIRECTORY-FILES
                                                 (VL-FILENAME-DIRECTORY PROFIX)
                                                 "*.dwg"
                           )
            )
)
(SETQ FILE (OPEN "C:\\图纸日志表\\图纸目录.TXT" "w"))
(FOREACH PATH2 PATH1
    (WRITE-LINE (STRCAT PROFIX PATH2) FILE)
)
(CLOSE FILE)
(PRINC "\n当前文件所在文件夹DWG文件已写在C盘->图纸日志表-图纸目录!")
(PRINC)
)

fdb2007 发表于 2012-4-27 09:58:28

看看高手有什么好代码

wowan1314 发表于 2012-4-27 10:05:31

楼主应把情况说明清楚点。

一、图签是属性块。可使用属性提取。论坛上有很多属性提取的源码。

二、图签不是块的话， 可使用院长的 图纸目录 程序（不过他只提供了试用版） 建议用第一种。

自贡黄明儒 发表于 2012-4-27 10:19:45

如果“图名”=“文件名”，也许好处理一些。这就要求一张图一个文件名。

xyzjint_cn 发表于 2012-4-27 10:20:17

我自已编了一个自动提取图纸目录的程序，现在用下来效果还好，必须在制图设定：图纸名称公司名称，对方公司名称设定在图框层中

lidaxiu 发表于 2012-4-27 12:52:12

图框要是属性块的话可以用eattext把目录提取出来，必须是CAD2006及以上版本能用这个程序

bai2000 发表于 2012-4-30 22:42:43

图框是要做成属性块的，求楼上的能把程序贴出了么？院长的程序是好用，但有限制，求高人做个

注册 发表于 2012-5-1 08:35:06

收藏此贴，持续关注
页: [1] 2 3 4 5 6 7 8 9
查看完整版本: 求一个自动生成图纸目录的lisp