CAD图内表格批量分割保存到文件
在附近的cad中,有很多表格,表格格式统一,但是生成在同一个文件中,管理文件不方便,现在想要把这个文件的表格分割到每个文件中,命名用宗地号的数字命名,同一编号的放入一个cad编号文件中,文件生成到指定路径,请高手帮帮看怎么处理,谢谢Gu_xl版的程序很牛,好好学习。 VLAX-CREATE-OBJECT Gu_xl 2013-4-23 http://bbs.mjtd.com/thread-100975-1-1.html 本帖最后由 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)
)
加一句试试:
(defun c:blk (/ WINSHELL SHFOLDER CATCHIT PATH BLL XL K KN BL N B expert cmdecho)
(vl-load-com)
(setq expert (getvar 'expert)
.....
唉,各位高手,不能帮我按我上传的文件帮写一个么?
首先我上传的文件是块上还镶嵌了数据,要把镶嵌的数据以及表格一起存为指定编号的文件名呀,上述程序我测试了,只能取出快呀,没有用的。
辛苦高手了,看看咋 这个社区肯帮人的太少了? 8350 发表于 2013-6-11 08:30 static/image/common/back.gif
这个社区肯帮人的太少了?
楼主是以一种什么心态来的这个论坛的?是来学习的还只是来求程序?
楼上已给给了不少回应,自己可以学习一下,自己尝试写一下嘛!
不会写就谦虚点,何必满腹牢骚!
明经论坛历经十几年,培养了多少CAD高手,帮助了多少人解决工作中的问题,你知道吗!
要以你目前的这种心态来求程序,大家还愿意来帮你吗?
看你的要求,可能在实际工作中着急应用,给你写了一个,程序如下:
源码:
首先是工作要求中需要,急死人,心情有点过,这里道歉不该在这发牢骚。
没有针对楼主的程序说说,我确实想学习lisp,但是你们给的程序基本上很少有说明,对于基础差的我们来说编写确实有点难度,我以后会虚心的。
但是你给的程序加密那我们就没有办法学习了,当然这是你的劳动成果,源码我没有明经币无法下载呀。
你的程序加密了,我根本不知怎么运行--命令 8350 发表于 2013-6-11 11:01 static/image/common/back.gif
首先是工作要求中需要,急死人,心情有点过,这里道歉不该在这发牢骚。
没有针对楼主的程序说说,我确实 ...
加载后命令行有提示,命令: TT
没有明经币,积分可以兑换明经币! 拆图程序,。。
页:
[1]
2