求大神给弄个批量插入块的LSP

zw6199225 · 发表于 2017-8-31 21:32:11

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

批量插入块的只要指出路径，不管有多少个块都能够查到一幅图中去。
比如有大量的（几百张）小幅分块地形，需要insert到一张CAD里面，手动只能一张一张插，费事费力，查了半天也没找到相关插件，望大神给解决啊！

“用Scripting.FileSystemObject,得到所有的文件名称，再insert插入”.---这个哪位大神给弄个？

eachy · 发表于 2017-8-31 21:53:21

script 脚本文件即可

Lisphk · 发表于 2017-8-31 23:09:50

你要插入，得给个基点的规则吧，按行排列，间距多少？
不能都插到0,0点吧。

newer · 发表于 2017-8-31 23:12:06

你搜论坛了吗？用关键字批量搜索，前几个就有。

批量插入图像那个，你修改下扩展名，和插入的命令就适合图块了。

dnbcgrass · 发表于 2017-8-31 23:45:00

插入时每幅地形图的基点都是0,0,0，不用排列和间距。

Lispboy · 发表于 2017-9-1 00:16:00

本帖最后由 newer 于 2017-9-1 12:06 编辑

按原点插入地形图
运行在XDRX API 下

(defun c:tt ()
(if (setq fns (xdrx_system_selectfile "*.dwg" ""))
(progn
(xdrx_begin)
(xdrx_sysvar_push '("NOMUTT" 1))
(setq i 0
len (length fns)
)
(mapcar '(lambda (x)
(xdrx_prompt "\r正在插入 " (setq i (1+ i)) " of " len)
(xdrx_insert_make x '(0 0 0))
(princ)
)
fns
)
(xdrx_prompt "\n成功按原点插入了 " len " 张DWG图纸.")
(xdrx_sysvar_pop)
(xdrx_end)
)
)
(princ)
)

zw6199225 · 发表于 2017-9-1 11:35:49

这个怎么使用啊，菜鸟完全不会弄啊，大神赐教

命令: ap APPLOAD 已成功加载 xdrx_system_selectfile.LSP。

命令: ; 错误: 语法错误

命令:
命令: xdrx_system_selectfile
未知命令“XDRX_SYSTEM_SELECTFILE”。按 F1 查看帮助。

加载后，在CAD对话框内输入什么命令？还有运行“命令”在程序什么位置可以看？
是这个么？‘xdrx_system_selectfile’

已安装“XDRX API 2017.09.01”最新版

newer · 发表于 2017-9-1 12:07:25

zw6199225 发表于 2017-9-1 11:35

编辑了，重新拷贝下代码。

zw6199225 · 发表于 2017-9-1 15:02:55

命令加载成功，只是这个命令怎么调用呢？名称是什么啊？

zw6199225 · 发表于 2017-9-1 15:13:36

谢谢，大神，已经完美解决了，这下省了不少心啊，

evayleung · 发表于 2017-9-2 13:28:37

这种东西论坛应该一大堆吧，只是批量运行插入命令，把基点都设为原点。搜搜就一大堆，自己改下就能用了。

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

[求助] 求大神给弄个批量插入块的LSP

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。