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

guorui_520

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

wyj7485

用BLK.addline

tcsl9621

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

StartMe

1. 增加已有的对象可用CopyObjects拷贝对象到块中，本站有贴。

复制代码

[code][/code]

tcsl9621发表于2007-4-4 22:30:00你先取得块表对像，再增加一个块对像。再在块对像中增加你需要的对像。

能否请问tcsl9621，“取得块表对像”是什么意思？起什么作用？我都是直接增加块对象的。

wyj7485

2. Dim MyBlk As AcadBlock
3. Dim InsertPoint As Variant
4. InsertPoint = ThisDrawing.Utility.GetPoint(, "指定插入点：")
5. Set MyBlk = ThisDrawing.Blocks.Add(InsertPoint, "我的块")
6. dim LineOBJ as acadline
7. Set LineOBJ = MyBlk.Addline(.....)
8. Dim BlkObj As AcadBlockReference
9. Set BlkObj = ThisDrawing.ModelSpace.InsertBlock(InsertPoint, "我的块", 1, 1, 1, 0)

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)