caoyin 发表于 2011-6-19 08:24:50

本帖最后由 caoyin 于 2011-6-19 10:46 编辑

二楼的代码完全可以简化为：
    (vlax-for i (vla-get-blocks doc)
      (if (and
            (= (vla-get-objectname i) "AcDbBlockReference")
            (= (strcase (vla-get-name i)) (strcase bn))
          )
      (vla-Delete i)
      )
    )
原因：布局也是块——特殊的块

lish 发表于 2012-11-13 12:45:09

学习了！！！！！！
页: 1 [2]
查看完整版本: 有关块的 许多 操作