[求助]：怎样在lisp 中插入块

mr.feng76 · 发表于 2006-5-5 11:20:45

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

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

×

怎样在lisp中插入一个存在于某路径下、某文件中的块，并且是按照一定比例的插入。我想用command命令可以实现这一操作，但是不知怎样写，谁有高招啊，还请执教

fsxm · 发表于 2006-5-5 11:52:10

我也正想问这个问题呢!~
我只知道dwg文件可当块插入~指定dwg文件中指定的块(与设计中心的功能有点像)
偶不知道也正想请教高人~

ewenhui · 发表于 2006-5-5 14:39:05

[php](command "insert" "XXX.dwg" p1（指定点） "1" "1" "")[/php]

mr.feng76 · 发表于 2006-5-6 17:26:07

多谢三楼的！不过有个问题你这是把整个文件当成一个块插入的，而且原插入点我好像不能决定。问题一：有没有什么方法将一个块时时加载在任何cad文件中，就像‘易桥工具’中的命令中折断线、楼梯一类就是已经做好的块，然后我们来插入而已。但是他有一个弊端就是折断线的比例要自己手动计算，我想在做折断线的时候比例程序自动计算。问题二：我又想想用lisp中用command调用易桥工具中的折断线命令，但是却不能调用，难道他只能调用cad自身带的命令吗？

fsxm · 发表于 2006-5-6 17:36:02

老大dwg文件可当一个块插入这个偶也知道啦1`
我是想插入dwg文件中指定的块哦！
比如我想插入c:\acad.dwg(acad.dwg中可能有很多块)中名叫zzd的块~用什么方法？
声明不能用
(command "insert" "c:\*acad.dwg" )将acad.dwg中所有块插入~

橄榄滋味 · 发表于 2006-5-8 09:57:04

这样做没必要吧，你完全可以将要插入的块做成单独dwg文件的。当然如果你一定要那么做，也不是没有办法，就是在后台打开c:\acad.dwg，将要插入的块放到剪贴板，然后在当前文件中粘贴，关闭c:\acad.dwg。这一系列肯定都是用程序执行。

fsxm · 发表于 2006-5-11 09:38:31

老兄如果用手工的办法还有必要说出来吗？可不可以写成lisp啊?

橄榄滋味 · 发表于 2006-5-11 10:46:44

我能力有限，写不出来，你最好请教版主，我只是提供一种思路供参考而已

fsxm · 发表于 2006-5-12 10:09:33

好吧!
版主快点来看看这个贴子啊!看看有好方法没有啊?

eachy · 发表于 2006-5-12 11:17:42

1 用设计中心插入块

2 用ObjectDBX 可以将其他文件中的块插入到当前图形，具体代码搜索 LUCAS 发布的帖子

madeinchina · 发表于 2006-5-13 00:49:16

搜索不到，具体在那个位子

eachy · 发表于 2006-5-13 01:09:08

先看这个 ttp://www.mjtd.com/a2/list.asp?id=314

http://www.xdcad.net/forum/showthread.php?s=&threadid=75567

fsxm · 发表于 2006-5-13 17:00:59

www.mjtd.com/a2/list.asp?id=314这个贴子还是不错的哦！
不过我在网吧装的是简化2002迷你版用这个函数老是出错！~
如:c:\drawing1.dwg中叫5的块
命令: (CopyBlock "c:\\drawing1.dwg" "5")
; 错误: Automation 错误。

命令: (CopyBlock "c:\drawing1.dwg" "5")
; 错误: Automation 错误。

命令: (CopyBlock "c:/drawing1.dwg" "5")
; 错误: Automation 错误。

aeo · 发表于 2006-5-14 17:22:24

command命令只能这样写:
先插入那个图形,插入时里面的块会带入.
(command "insert" "c:\\123.dwg" ^c) ;;这时所有块带入图形.
(command "insert" "blockname" ...)

eachy · 发表于 2006-5-14 17:33:20

最初由 fsxm 发布
[B]www.mjtd.com/a2/list.asp?id=314这个贴子还是不错的哦！
不过我在网吧装的是简化2002迷你版用这个函数老是出错！~
如:c:\drawing1.dwg中叫5的块
命令: (CopyBlock "c:\\drawing1.dwg" "5")
; 错误: ... [/B]

如果要用一些程序就不要用迷你版！安装的时候自己定制安装。

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

[求助] [求助]：怎样在lisp 中插入块

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

相关帖子

[求助] [求助]： 怎样在lisp 中插入块

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

相关帖子

[求助] [求助]：怎样在lisp 中插入块