明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 4071|回复: 13

求助:同一图块插入到文件夹内所有文件

  [复制链接]
发表于 2011-9-8 06:03:42 | 显示全部楼层 |阅读模式
1明经币
本帖最后由 qfkxc 于 2011-9-17 18:15 编辑

求助:指定图块插入到图形的指定位置的LISP程序
要求:1,将D盘中TK.DWG文件插入到已经打开的另一文件中(例如67.25-80.75.dwg),插入基点坐标根据文件名计算得到,如文件67.25-80.75.dwg,其插入的基点坐标为(67250,80750)。(根据文件名计算插入的基点是此程序的关键点)
       2,ZOOM   E
    3,存盘退出。

最佳答案

发表于 2011-9-8 06:03:43 | 显示全部楼层
本帖最后由 gufeng 于 2011-9-26 10:47 编辑

游客,本帖隐藏的内容需要发帖数高于 30 才可浏览,你当前发帖数只有 0


评分

参与人数 1金钱 +20 收起 理由
qfkxc + 20 很经典的程序

查看全部评分

回复

使用道具 举报

发表于 2011-9-8 09:16:20 | 显示全部楼层
用DBX方法解决
回复

使用道具 举报

 楼主| 发表于 2011-9-8 18:12:35 | 显示全部楼层
可否贴上源码,我是菜鸟。
回复

使用道具 举报

 楼主| 发表于 2011-9-10 18:10:27 | 显示全部楼层
期待高手来解决,最好用LISP程序
回复

使用道具 举报

 楼主| 发表于 2011-9-10 22:08:59 | 显示全部楼层
本帖最后由 qfkxc 于 2011-9-10 23:49 编辑

把同一图块插入到文件夹内每一个图形的左下角(插入基点:样图左下角圆圈内两线的交点位置,即文件名66.75-80.50变为66750,80500)
编程思路:1,打开文件夹内第一个文件
                  2,插入图块。选择要插入的图块,指定图块的基点为(0,0)。
                  3,计算插入的基点(根据打开的文件名计算)。
                  4,存盘退出。
                  5,循环操作1-4.

本帖子中包含更多资源

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

x
回复

使用道具 举报

发表于 2011-9-22 19:53:16 | 显示全部楼层
http://bbs.mjtd.com/thread-89419-1-1.html
  1. (princ (strcat "open "" x ""\n" "-insert tk.dwg " memredlist " 1 1 0 qsave close\n") sff)
  2. ;_ To
  3. (princ (strcat "open "" x ""\n" "-insert tk.dwg " memredlist " 1 1 0 zoom e qsave close\n") sff)
复制代码
回复

使用道具 举报

 楼主| 发表于 2011-9-24 12:52:54 | 显示全部楼层
用gufeng所写的程序需要先做一个所有文件的文本信息对吗?
回复

使用道具 举报

 楼主| 发表于 2011-9-26 12:47:39 | 显示全部楼层
现在的程序要比http://bbs.mjtd.com/thread-89419-1-1.html的更好了,剩掉了制作文本信息的步骤
回复

使用道具 举报

发表于 2011-10-27 15:11:43 | 显示全部楼层
能否实现把“插入块”改为“插入一个外部参照”?
毕竟外部参照不占空间,且作为大批量图纸的图框,修改起来比较方便
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-24 15:00 , Processed in 0.189181 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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