明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3072|回复: 11

[已解答] CAD图内表格批量分割保存到文件

[复制链接]
发表于 2013-6-10 10:28 | 显示全部楼层 |阅读模式
在附近的cad中,有很多表格,表格格式统一,但是生成在同一个文件中,管理文件不方便,现在想要把这个文件的表格分割到每个文件中,命名用宗地号的数字命名,同一编号的放入一个cad编号文件中,文件生成到指定路径,请高手帮帮看怎么处理,谢谢






本帖子中包含更多资源

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

x
发表于 2018-6-9 15:52 | 显示全部楼层
Gu_xl版的程序很牛,好好学习。
发表于 2018-6-15 17:01 | 显示全部楼层
VLAX-CREATE-OBJECT
发表于 2013-6-10 13:36 | 显示全部楼层
 楼主| 发表于 2013-6-10 15:16 | 显示全部楼层
本帖最后由 8350 于 2013-6-10 15:23 编辑

我看到了,因为不太会lsp,请按我的要求帮修改一下可以吗?
我执行的结果怎么会这样,麻烦,请教高手帮我看看,辛苦了
;c:blk 批量块输出到指定文件夹文件 By Gu_xl
(defun c:blk (/ WINSHELL SHFOLDER CATCHIT PATH BLL XL K KN BL N B expert cmdecho)
  (setq expert (getvar 'expert)
        cmdecho (getvar 'cmdecho)
        )
  (setvar 'expert 5)
  (setvar 'cmdecho 0)
    (setq winshell (vlax-create-object "Shell.Application"))
  (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 "选择文件夹" 1))
  (setq
    catchit (vl-catch-all-apply
              '(lambda ()
                 (setq shFolder (vlax-get-property shFolder 'self))
                 (setq path (vlax-get-property shFolder 'path))
               )
            )
  )
  (if (not (vl-catch-all-error-p catchit))
   (progn
  (setq blL '() xl '(0 0) k 0 kn 0)
  (setq bl (tblnext "BLOCK" T))
  (setq bll (cons (cdr (assoc 2 bl)) blL))
  (while (setq bl (tblnext "block"))
         (setq bll (cons (cdr (assoc 2 bl)) blL))
     )

  (setq bll (acad_strLSort bll))
  (foreach b bll
    (command "wblock" (strcat path "\\" b) b)
    )
  )
    )
  (vlax-release-object winshell)
  (setvar 'expert expert)
  (setvar 'cmdecho cmdecho)
  (princ)
)





本帖子中包含更多资源

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

x
发表于 2013-6-10 16:02 | 显示全部楼层
加一句试试:
(defun c:blk (/ WINSHELL SHFOLDER CATCHIT PATH BLL XL K KN BL N B expert cmdecho)
  (vl-load-com)
  (setq expert (getvar 'expert)
.....
 楼主| 发表于 2013-6-10 16:25 | 显示全部楼层
唉,各位高手,不能帮我按我上传的文件帮写一个么?
首先我上传的文件是块上还镶嵌了数据,要把镶嵌的数据以及表格一起存为指定编号的文件名呀,上述程序我测试了,只能取出快呀,没有用的。

辛苦高手了,看看咋
 楼主| 发表于 2013-6-11 08:30 | 显示全部楼层
这个社区肯帮人的太少了?
发表于 2013-6-11 10:20 | 显示全部楼层
8350 发表于 2013-6-11 08:30
这个社区肯帮人的太少了?

楼主是以一种什么心态来的这个论坛的?是来学习的还只是来求程序?
楼上已给给了不少回应,自己可以学习一下,自己尝试写一下嘛!
不会写就谦虚点,何必满腹牢骚!
明经论坛历经十几年,培养了多少CAD高手,帮助了多少人解决工作中的问题,你知道吗!
要以你目前的这种心态来求程序,大家还愿意来帮你吗?

看你的要求,可能在实际工作中着急应用,给你写了一个,程序如下:

源码:

本帖子中包含更多资源

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

x
 楼主| 发表于 2013-6-11 11:01 | 显示全部楼层
首先是工作要求中需要,急死人,心情有点过,这里道歉不该在这发牢骚。

没有针对楼主的程序说说,我确实想学习lisp,但是你们给的程序基本上很少有说明,对于基础差的我们来说编写确实有点难度,我以后会虚心的。
但是你给的程序加密那我们就没有办法学习了,当然这是你的劳动成果,源码我没有明经币无法下载呀。
你的程序加密了,我根本不知怎么运行--命令
发表于 2013-6-11 11:22 | 显示全部楼层
8350 发表于 2013-6-11 11:01
首先是工作要求中需要,急死人,心情有点过,这里道歉不该在这发牢骚。

没有针对楼主的程序说说,我确实 ...

加载后命令行有提示,命令: TT
没有明经币,积分可以兑换明经币!
发表于 2014-8-3 00:38 来自手机 | 显示全部楼层
拆图程序,。。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 19:46 , Processed in 0.171665 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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