[求助]如何用VBScript在网页上调用autocad插入带属性的块

郭旭东雪

现需要在网页上填写块的属性，然后插入块，比如标题栏。

基本代码如下

 

  <SCRIPT LANGUAGE="VBScript">
       sub button1_onclick()
             set AcadApp = createobject("AutoCAD.Application")
             AcadApp.Visible = true

             pt = AcadApp.ActiveDocument.Utility.GetPoint(,"选择插入点")
             set blockRef = AcadApp.ActiveDocument.ModelSpace.InsertBlock(pt, "e:\my_test.dwg", 1, 1, 1, 0)

             AcadAttr = blockRef.GetAttributes
    
             'set objAtt = AcadAttr(1)
             'objAtt.TextString = "asd";
             
             AcadApp.ZoomExtents
       
            Set blockRef = Nothing
            Set AcadApp = Nothing
      end sub
  </SCRIPT>

 

    现在块可插入，并取得AcadAttr属性对象数组，就是无法设定属性值（被注释的两行不执行），不知问题出在哪，请各位高手帮忙。

郭旭东雪

类型不匹配；Microsoft VBScript 运行时错误

 

不知为什么

郭旭东雪

问题应该出在vbscript对数组的处理上，不但是AcadAttr这个对象数组无法访问，就是pt这个点的double数组也不行

Heremy

我也遇到类似问题，我这边执行AcadAttr = blockRef.GetAttributes这一句都会报“不支持属性或方法：GetAttributes””的错误，问一下楼主你是怎么解决的