guorui_520 发表于 2007-4-1 22:55:00

怎么才能将线段生成一个块

<p>我用ThisDrawing.ModelSpace.AddLine画了一些直线，用什么方法可以把这些线生成一个块？我刚刚开始学，菜的很，请大家一定要帮帮我啊，谢谢：）</p>

wyj7485 发表于 2007-4-2 10:29:00

用BLK.addline

tcsl9621 发表于 2007-4-4 22:30:00

你先取得块表对像，再增加一个块对像。再在块对像中增加你需要的对像。

StartMe 发表于 2007-4-4 23:07:00

增加已有的对象可用CopyObjects拷贝对象到块中，本站有贴。tcsl9621发表于2007-4-4 22:30:00static/image/common/back.gif你先取得块表对像，再增加一个块对像。再在块对像中增加你需要的对像。能否请问tcsl9621，“取得块表对像”是什么意思？起什么作用？我都是直接增加块对象的。

wyj7485 发表于 2007-4-5 15:23:00

Dim MyBlk As AcadBlock
Dim InsertPoint As Variant
InsertPoint = ThisDrawing.Utility.GetPoint(, "指定插入点：")
Set MyBlk = ThisDrawing.Blocks.Add(InsertPoint, "我的块")
dim LineOBJ as acadline
Set LineOBJ = MyBlk.Addline(.....)
Dim BlkObj As AcadBlockReference
Set BlkObj = ThisDrawing.ModelSpace.InsertBlock(InsertPoint, "我的块", 1, 1, 1, 0)
页: [1]
查看完整版本: 怎么才能将线段生成一个块