块

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

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

块

发表回复

精选推荐

浏览过的版块