[求助]：[求助]：VBA下如何生成超过5000个结点的ShapeElement或LineElement

colormen

我在MSv8中用VBA获取一连串的节点坐标参数，并生成LineElement或ShapeElement，但是却发现一个问题，就是当结点数超5000的时候，CreateLineElement2()及CreateShapeElement()函数产生不可预知的错误。请教各们高手，在不减少结点数的同时，如何解决结数超过5000时生成LineElement或ShapeElement。是否有其它函数替换CreateShapeElement（）或CreateLineElement2（）函数
下面是部分伪代码

Dim VertexList() as Point3d
Dim Oelement as ShapeElement
Dim i as long

For  i = 0 to  5100
     VertexList(i).X = 外部获取的坐标
     VertexList(i).Y = 外部获取的坐标
Next

set  Oelement = CreateShapeElement1(Nothing,VertexList)

程序就在上面这行出现错误，当我将数据设为4999时则顺利生成Element。

我已找到其它解决办法。
不知是否高手们不屑解答此类问题，还是我写的不够清楚。

colormen

谢谢MicroStation迷的帮助，我已经解决此问题

herdone

基本逻辑：

判断点数是否大于5000（v7 是101）
  是的
   生成复杂元素头
     按5000点生成line或shape，知道全部点用完。
   生成复杂元素终结符
  不是的
    直接生成line或shape
结束
各步动作都有相应的函数请自己查阅手册

colormen

我就是将所有的点进行分PART，每5000点一PART，生成LINE或SHAPE，再生成复杂元素
谢谢herdone的说明，说的很详细，我对开发还不是很熟，以后还请多指教

colormen

我在VBA中已经设置线型比例子，如下句：
g_dgnscale = 2  
CadInputQueue.SendKeyin "active linestylescale= " & g_dgnscale

但是生成线型后，它的线型比例还是1。请教有何办法让每条线可以有效的设置比例。