如何用二次开发方法定义块

ytcadtools

思路是这样的：在二次开发的程序中，对正画的实体想定义成块，如何实现呢

woaishuijia

楼主的意思是否可以这样理解：模仿CAD的“BLOCK”命令用现有实体创建块？
$ ]. l/ C0 H8 W! e4 h+ H在VBA中可以这样做：
# J2 W( l( @; h/ }: x3 X一、用对话框要求用户输入要创建的块对象的属性(包括块名称、基点等等)、原有实体的处理方法(包括保留、删除、转换为块等)
二、在用户按下“确定”按钮时判断当前空间是否有选择集，如果有则使用现有选择集；如没有则新建一个选择集并要求用户选择对象
三、如果选择集为空则删除选择集后退出；如选择集不为空则继续向下进行
8 V( @8 Y/ B2 d6 y, Y- i四、遍历选择集，把其中的实体对象赋值给一个对象类型动态数组
. G+ k) Y& p; x  I3 y# W五、删除选择集
六、按用户的设置创建块对象并修改其属性
七、用“Document”对象的“CopyObjects”方法，把动态数组中的实体对象集复制到块对象中
5 Z$ P8 A+ y/ L1 w' q% K八、按用户设置删除原有实体或删除原有实体后在原位置插入块参照或什么也不做(保留)
& T6 g0 x  X9 j/ J- P$ ]) [" p; y
" D: p( x, o. S: \  T' F' d下面的代码是一个最简单的例子

1. Dim Objs() As AcadEntity, B As AcadBlock, P(2) As Double, SS As AcadSelectionSet, I As Integer
   ; }8 A# q& _* a1 T" @
2. With ThisDrawing
   
3.     Set SS = .SelectionSets.Add("SS" ) '新建选择集
   4 Y" G1 I: j2 H" c$ I2 w
4.     SS.SelectOnScreen '由用户在屏幕上选择对象
   
5.     If SS.Count > 0 Then '如果选择集不为空
   ) c& w7 x* }: l) s- K( z( C" J" I7 R
6.         ReDim Objs(SS.Count - 1) '按选择集中元素数量重定义动态数组元素个数
   + f( b4 G; T% r8 c$ {- n3 A
7.         For I = 0 To SS.Count - 1 '把选择集中的实体赋值给数组
   5 Q! x2 e, m; i% M& K7 N( v
8.             Set Objs(I) = SS.Item(I)
     H9 t9 K' T, ]! y% `$ d& ?
9.         Next
   
10.         Set B = .Blocks.Add(P, "A" ) '创建块
    ' B$ p# L# T/ v* i7 Z
11.         .CopyObjects Objs, B '把实体复制到块中
    & I+ W* m4 x& L* A" V" }- c
12.     End If
    
13.     SS.Delete '删除选择集
    * C; I2 J# F, M8 {; n+ A
14. End With
    ) [' \4 h( q+ w0 T2 j( V

复制代码

[ 本帖最后由 woaishuijia 于 2008-10-28 11:24 编辑 ]

ytcadtools

本人找到了一个这样的例子，但改写成函数却行不通，到底问题出在什么地方呢
9 }( c7 Z1 S# Q: }9 f8 }产生“V”字型的样例：
0 X4 u0 v6 d! m- F1 l3 X- jvoid  defineBlock()
5 ~# X9 H2 t6 Q8 F{
AcDbBlockTableRecord *pBTableRec1=new AcDbBlockTableRecord();
pBTableRec1->setName("VSBlock");
AcDbBlockTable *pBTable=NULL;
acdbCurDwg()->getBlockTable(pBTable,AcDb::kForWrite);
AcDbObjectId id1;
pBTable->add(id1,pBTableRec1);
pBTable->close();
; B  J! Y8 U3 E& L AcGePoint3dArray ptArr1;
ptArr1.setLogicalLength(3);
ptArr1[0].set(-2,3,0);
ptArr1[1].set( 0,0,0);
ptArr1[2].set( 2,3,0);
AcDb2dPolyline *pPline1=new AcDb2dPolyline(AcDb::k2dSimplePoly,ptArr1,0.0,Adesk::kFalse);
; H! U' n! l( @ pBTableRec1->appendAcDbEntity(pPline1);
pBTableRec1->close();
- x6 o+ j+ E  k/ r/ K pPline1->close();
2 d! g0 N+ m4 _. n# ]. h+ D& _}

ytcadtools

改写成函数后，调试结果还未成功
7 D* k4 e9 D4 n9 U* a, KAcDbObjectId DefineBlock(char* pBlockname,AcDbObjectId EntityId,AcGePoint3d basePoint)
+ b' \1 m- h9 H{
AcDbBlockTableRecord *pBTableRec=new AcDbBlockTableRecord();
pBTableRec->setName(pBlockname);
pBTableRec->setOrigin(basePoint);
AcDbBlockTable *pBlockTable=NULL;
# x) d, w9 r, X" D. W9 V% z9 f acdbCurDwg()->getBlockTable(pBlockTable,AcDb::kForWrite);
2 z. F" K: i7 ]' o AcDbObjectId ObjId;
, H: `- F/ A/ M5 N' t6 d pBlockTable->add(ObjId,pBTableRec);
  O7 }  h& ?6 W5 U( K pBlockTable->close();
8 z) M6 A* o8 W' x7 a* O) A2 K AcDbEntity *pEntity;
acdbOpenObject(pEntity,EntityId,AcDb::kForWrite);

( k7 ~5 a8 J' J' r  Q& @ pBTableRec->appendAcDbEntity(pEntity);
pBTableRec->close();
" ?# h$ M9 ?" b/ ^ pEntity->close();
return ObjId;
% z2 E% _. [% @8 `9 N8 D}