有关块的 许多 操作

自贡黄明儒

网上下载一个有关块的许多操作，如改变插入点、块更名.....由于大量使用了vla-函数，看得不是很明白。希望有人对这些块操作函数进行注解，即增加应用示例，以方便大家理解和使用。如块图元增加，第一句就写得很明白(ax:AddObjectsToBlock (car (entsel)) (ssget))；多一点类似的示例就好了！

自贡黄明儒

;;示例(ax:AddObjectsToBlock (car (entsel)) (ssget))块图元增加

;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2006 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;;
;;; Updated: 2003-02-24
;;;

;;; (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))

;;; Erases all blocks named "revtext2"
;;; (ax:EraseBlock doc "revtext2")
(defun ax:EraseBlock (doc bn / layout i)
  (vlax-for layout (vla-get-layouts doc)
    (vlax-for i (vla-get-block layout)
      (if (and
            (= (vla-get-objectname i) "AcDbBlockReference")
            (= (strcase (vla-get-name i)) (strcase bn))
          )
        (vla-Delete i)
      )
    )
  )
)
这是一部分，上面的 块.lsp内容很丰富，一顿大餐哟

xiaxiang

感谢整理！vla用得好不容易啊。

13579

加下中文注释就好理解些。

edsion24

下来研究 研究。。。

池塘花香

VLA函数几乎一点也不熟悉。

simon8001

我对VLA 也不是很想去了解 不过看来以后是大势所趋呀！

LLXXZZ

vla的用法,值得的学习,
建议楼主分步测试+vla帮助.看明白是没有问题的.
以楼主的水平,感觉,看不明白是谦虚的表现.

xyzse11

注释很少！！！！！！！！

xyp1964

图块处理对话框：