块

yingxunxue · 发表于 2004-6-16 16:09:00

怎么把在硬盘中存在的图形(已作成块),直接插到图形中.用SENDCOMMAND如何实现?

今晚打老虎 · 发表于 2004-6-16 17:55:00

先不用sendcommand，用vba插入后再用sendcommand去移动生成的新块对象就有了预览效果了和在cad环境手动插入块对象很类似。。。。

mccad · 发表于 2004-6-16 20:58:00

不用SendCommand方法，而可以直接用InsertBlock方法来插入外部的图形。

莫名 · 发表于 2004-6-16 23:59:00

用形代替块可以减少文件容量、加快移屏、缩放的速度！

yingxunxue · 发表于 2004-6-17 08:33:00

各位前辈:

能不能给个具体代码看看.

急用.

还有 .我现在只是如何改变块中的属性.

今晚打老虎 · 发表于 2004-6-17 10:10:00

sub sInsertBlock(sBlockName as string) Dim objRef As AcadBlockReference Dim vPnt as variant
vPnt = ThisDrawing.Utility.GetPoint
'插入这个块
Set objRef = ThisDrawing.ModelSpace.InsertBlock(vPnt, sBlockName, 1, 1, 1, 0)
end sub

yingxunxue · 发表于 2004-6-17 12:20:00

问题:我插入的块是以前做好的.用这个程序无法识别在哪个目录下?

雪山飞狐_lzh · 发表于 2004-6-17 12:33:00

调用InsertBlock方法时，把块名的路径给全

yingxunxue · 发表于 2004-6-17 14:31:00

lzh741206发表于2004-6-17 12:33:00调用InsertBlock方法时，把块名的路径给全

Set objRef = ThisDrawing.ModelSpace.InsertBlock(vPnt, "F:\我的课题",1, 1, 1, 0) 导致系统崩溃

今晚打老虎 · 发表于 2004-6-17 14:39:00

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=6098

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