求程序：将一个目录下所有文件中的图块打散

jsj_306 · 发表于 2011-2-22 23:21:41

望高手赐教，谢谢！

qcw911 · 发表于 2011-2-23 09:25:40

如何批量打印DXF格式（版主们请进 ZZXXQQ、GU_xl）
http://bbs.mjtd.com/forum.php?mo ... &fromuid=342850

将这里面得脚本改成
全选
炸开
保存
关闭
就可以了

jsj_306 · 发表于 2011-3-5 20:29:41

偶要的是只炸开图块，全选的话连尺寸都会炸开的，选中所有图块，lisp命令或脚本如何写？

ZZXXQQ · 发表于 2011-3-5 20:51:29

选中所有图块：
(setq ss (ssget "X" '((0 . "INSERT"))))

jsj_306 · 发表于 2011-3-5 22:23:24

本帖最后由 jsj_306 于 2011-3-5 22:31 编辑

回复 ZZXXQQ 的帖子

大侠好人，再帮我看看如何？我注释掉的那行是可以全部执行的（就是所有块都转换为中心线层），但是炸开那行每次只能炸开一个块，大侠看看该如何改？
(defun c:zzk(/ ss)
(setq ss (ssget "X" '((0 . "INSERT"))))
;(command "Chprop" ss "" "LA" "中心线" "C" "bylayer" "LT" "bylayer" "LW" "bylayer" "")
(command "explode" ss)
)

Andyhon · 发表于 2011-3-6 09:11:50

QaFlags
http://www.google.com/search?as_ ... +%E6%90%9C%E5%B0%8B

461045462 · 发表于 2011-3-6 09:45:34

Andyhon 发表于 2011-3-6 09:11
QaFlags
http://www.google.com/search?as_q=QAFLAGS&as_epq=explode&as_oq=&as_eq=&hl=zh-CN&num=10&lr=& ...

谢谢楼主的提供
学习到了新的思路

jsj_306 · 发表于 2011-3-6 16:22:21

回复 Andyhon 的帖子

多谢！

努力活着 · 发表于 2011-12-4 12:04:19

很好，在此引导下，又解决我一下问题

账号		自动登录	找回密码
密码			注册

[基础] 求程序：将一个目录下所有文件中的图块打散

浏览过的版块