明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 25936|回复: 91

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

  [复制链接]
发表于 2012-4-27 09:11:13 | 显示全部楼层 |阅读模式
在论坛上找不找,没找到一个可以同时读取一个文件中有多张图纸时,自动生成图纸目录的lisp,请高手们有空的时候出手

点评

什么限制条件都没有,程序是没办法识别图纸代号和图纸名称的。  发表于 2012-4-27 10:10
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2012-12-13 13:51:51 | 显示全部楼层
本帖最后由 gaics 于 2023-9-1 07:49 编辑
lidaxiu 发表于 2012-12-13 13:28
16楼的好强哦!!!虽然不是源码,但强烈赞一个,谢谢了,不错的程序

没那么强,初学而已!这里是源码,楼主及各位自行根据所需来修改吧。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

点评

最新版见78楼  发表于 2023-8-21 17:07
学习了谢谢老师  发表于 2020-9-16 09:20

评分

参与人数 2明经币 +2 金钱 +5 收起 理由
lee50310 + 1 赞一个!
taurus321 + 1 + 5

查看全部评分

回复 支持 2 反对 0

使用道具 举报

发表于 2012-12-13 08:11:59 | 显示全部楼层
试一试我的。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复 支持 1 反对 0

使用道具 举报

发表于 2012-4-27 13:03:31 | 显示全部楼层
做个图演示下

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复 支持 1 反对 0

使用道具 举报

发表于 2012-4-27 09:31:08 | 显示全部楼层
本帖最后由 1993063 于 2012-4-26 15:33 编辑
  1. ;;明经前辈之作
  2. (DEFUN C:DWGMULU (/ FILE PATH1 PROFIX)
  3.   (SETQ PROFIX (GETVAR "DWGPREFIX"))
  4.   (SETQ PATH1 (ACAD_STRLSORT (VL-DIRECTORY-FILES
  5.                                                  (VL-FILENAME-DIRECTORY PROFIX)
  6.                                                  "*.dwg"
  7.                              )
  8.               )
  9.   )
  10.   (SETQ FILE (OPEN "C:\\图纸日志表\\图纸目录.TXT" "w"))
  11.   (FOREACH PATH2 PATH1
  12.     (WRITE-LINE (STRCAT PROFIX PATH2) FILE)
  13.   )
  14.   (CLOSE FILE)
  15.   (PRINC "\n当前文件所在文件夹DWG文件已写在C盘->图纸日志表-图纸目录!")
  16.   (PRINC)
  17. )
复制代码

点评

简单可行的好办法!!!  发表于 2012-7-17 16:01
发表于 2012-4-27 09:58:28 | 显示全部楼层
看看高手有什么好代码
发表于 2012-4-27 10:05:31 | 显示全部楼层
楼主应把情况说明清楚点。

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

二、图签不是块的话, 可使用院长的 图纸目录 程序(不过他只提供了试用版) 建议用第一种。
发表于 2012-4-27 10:19:45 | 显示全部楼层
如果“图名”=“文件名”,也许好处理一些。这就要求一张图一个文件名。
发表于 2012-4-27 10:20:17 | 显示全部楼层
我自已编了一个自动提取图纸目录的程序,现在用下来效果还好,必须在制图设定:图纸名称公司名称,对方公司名称设定在图框层中
发表于 2012-4-27 12:52:12 | 显示全部楼层
图框要是属性块的话可以用eattext把目录提取出来,必须是CAD2006及以上版本能用这个程序
 楼主| 发表于 2012-4-30 22:42:43 | 显示全部楼层
图框是要做成属性块的,求楼上的能把程序贴出了么?院长的程序是好用,但有限制,求高人做个

点评

定制程序的,建议到威客上去求!  发表于 2012-4-30 22:53
发表于 2012-5-1 08:35:06 | 显示全部楼层
收藏此贴,持续关注
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-23 17:36 , Processed in 0.213602 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表