[编程申请]：批量插入图块

john2004 · 发表于 2003-9-2 10:40:35

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

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

×

网络上下了点洁具和家具图库,想将整个目录里的文件一次性插入,再进行整理.

陆京兰 · 发表于 2003-9-2 11:09:33

(defun c:一行插入图块( / pt delta fp bname )
  (stdinit)
  (if (findfile "insert.exe")
   (progn
      (if lastbname (startapp (findfile "insert.exe") lastbname)
                  (startapp (findfile "insert.exe"))
      )
      (setq pt (getpoint "Base point:"))
      (setq delta (getdist "The distance between items:"))
      (setq fp (open (findfile "blist.txt") "r"))
      (While (and (setq bname (Read-line fp))
                  (/= bname "")
            )
            (command "_.insert" bname)
            (command pt "1" "1" "0")
            (command ^C)
            (if bname (setq lastbname bname))
            (setq pt (list (+ delta (car pt)) (cadr pt)))
      )
      (close fp)
      (command "_.zoom" "e")
   )
   (Alert "\n 未找到insert.exe文件.\n")
)
(stdrestore)
)

chenhang1203 · 发表于 2003-9-2 12:26:10

程序不对吧？再看看？

zhqchn · 发表于 2003-9-2 12:42:10

关于批量插图论坛上已有讨论

http://www.xdcad.net/forum/showthread.php?threadid=86248

http://www.xdcad.net/forum/showt ... y=&pagenumber=1

john2004 · 发表于 2003-9-2 15:52:57

谢谢zhqchn ,不过网上有些图块插进来还要问一些属性的问题(如洁具等,见附件),这样有的图块插进来问的问题就比别的多,用excel加lisp好像不能解决呀,比如附件中的文件插进来好像总要少几个
CadAssis看着挺高级的,还没试过,那位自动插全的在这里说一声

zhiyongfan · 发表于 2003-11-19 10:07:30

5楼楼主的压缩附件不是这个讨论的主题,谁有安装程序?

蜻蜓0443 · 发表于 2003-11-19 15:31:32

wb0815 · 发表于 2003-11-25 15:23:45

我有这个程序只要输入路径那个路径下的所有dwg就能全插入到你的图例了
如果想要的话请跟我联系
我的邮箱wb0518@hotmail.com

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

[编程申请]：批量插入图块

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

相关帖子

浏览过的版块