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)
导致系统崩溃
页: [1]
查看完整版本: 块