块

yingxunxue

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

今晚打老虎

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

mccad

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

莫名

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

yingxunxue

各位前辈:


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


急用.


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

今晚打老虎

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

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

雪山飞狐_lzh

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

yingxunxue

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

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

今晚打老虎

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