[求助]：如何实现批量成图

c3a139 · 发表于 2007-4-18 19:20:30

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

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

×

如何用LISP实现批量成图，如先生成图1，另存，删除，然后再生成图2。。。。

yy5heng · 发表于 2007-4-18 22:34:17

批量面图是什么东西。
问题说清楚些。

c3a139 · 发表于 2007-4-19 12:46:08

先生成图1，另存，删除，然后再生成图2，另存，删除，。。。。。。

carrot1983 · 发表于 2007-4-19 13:33:13

到VBA的版块发这个贴。。我看一定能解决，，
在这里难吧。。这个问题应该不是lsp能解决的吧。。。个人看法

c3a139 · 发表于 2007-4-19 17:24:39

我想如果获得一幅图的所有信息，然后删除这些信息，是不是就能把图给删了

carrot1983 · 发表于 2007-4-19 18:07:33

好奇怪的人，要删图，直接拉到回收站。。
我个人认为把图里面的全部信息删光了，那个图的文件应该还是存在硬盘的。。

c3a139 · 发表于 2007-4-20 12:13:31

也许是我表述不清楚，打开CAD，先生成图1，另存，为了生成第二幅图，必须清除图1，如何清除？

carrot1983 · 发表于 2007-4-20 17:38:38

有点明白。。。可是不知道楼主想干什么。。
我觉得，清除的话，有的时候会遇到清除不了的图层。那不是实现不了了？？？
想清除的话，试试下面代码
[php]
(while (command "ERASE" "all" ""))
(while (command "-PURGE" "all" "" "n"))
[/php]

c3a139 · 发表于 2007-4-24 19:24:09

谢谢carrot1983，在你的提示下，用(command "ERASE" "all" "")) ，可以实现我的想法，我不明白你用while的用途，能解释一下吗？

carrot1983 · 发表于 2007-4-25 08:29:07

最初由 c3a139 发布
[B]谢谢carrot1983，在你的提示下，用(command "ERASE" "all" "")) ，可以实现我的想法，我不明白你用while的用途，能解释一下吗？ [/B]

ERASE这段可能不用while吧。purge这边要。因为怕有些块是多重的，要不要加自己决定。呵。。。

c3a139 · 发表于 2007-4-25 18:05:18

请帮忙看看这段程序的问题在哪，提示参数过多
(defun c:delall()
  (setq ename (entnext))
  (setq elen 0)
  (if (not ename)
(princ "\ n")
(progn
   (while ename
(entdel ename)
(setq elen (1+ elen))
(setq ename (entnext))
))
(princ (list "实体个数为:" elen))
(princ)
))

yy5heng · 发表于 2007-4-25 20:26:42

语法错误过多，建议楼主你再温习一下

c3a139 · 发表于 2007-4-26 10:59:17

能说详细一点吗？

carrot1983 · 发表于 2007-4-26 13:38:46

下面是修改楼主的程序得到的。自己看一下有什么不同吧。互相学习。
[php]
(defun c:delall()
(if (setq ename (entnext))
(progn
(setq elen 0)
(while ename
(entdel ename)
(setq elen (1+ elen))
(setq ename (entnext))
)
(princ (list "实体个数为:" elen))
))
(princ)
)
[/php]

c3a139 · 发表于 2007-4-26 18:47:33

这个程序是我昨天看书时看到的，就把它照看得到搬下来了，一运行参数太多，把(setq elen 0)一句放到progn即可了，看书时也得多想想，呵。。。谢谢
(defun c:delall()
  (setq ename (entnext))
  (if (not ename)
(princ "\ n")
(progn
   (setq elen 0)
   (while ename
(entdel ename)
(setq elen (1+ elen))
(setq ename (entnext))
)
(princ (list "实体个数为:" elen))
))
(princ)
)

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

[求助] [求助]：如何实现批量成图

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

相关帖子