有关块的 许多 操作
本帖最后由 自贡黄明儒 于 2011-3-23 18:50 编辑网上下载一个有关块的许多操作，如改变插入点、块更名.....由于大量使用了vla-函数，看得不是很明白。希望有人对这些块操作函数进行注解，即增加应用示例，以方便大家理解和使用。如块图元增加，第一句就写得很明白(ax:AddObjectsToBlock (car (entsel)) (ssget))；多一点类似的示例就好了！
本帖最后由 自贡黄明儒 于 2011-3-23 18:51 编辑
;;示例(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内容很丰富，一顿大餐哟 感谢整理！vla用得好不容易啊。 加下中文注释就好理解些。 下来研究 研究。。。 VLA函数几乎一点也不熟悉。 我对VLA 也不是很想去了解 不过看来以后是大势所趋呀！ vla的用法,值得的学习,
建议楼主分步测试+vla帮助.看明白是没有问题的.
以楼主的水平,感觉,看不明白是谦虚的表现. 注释很少！！！！！！！！ 图块处理对话框：
页:
[1]
2