AUTOCAD中匿名块的修改方法.docx

AUTOCAD中匿名块的修改方法各位常用AUTOCAD的人士可听说过匿名块？所谓的匿名块，AUTOCAD官方的解释是：+匿名块说明发布日期：2008年10月23日序列号：TS22401适用于:AutoCAD? 2007AutoCAD? 2006AutoCAD? 2005AutoCAD? 2004AutoCAD? 2002AutoCAD? 2000iAutoCAD? 2000AutoCAD LT? 2007AutoCAD LT? 2006AutoCAD LT? 2005AutoCAD LT? 2004AutoCAD LT? 2002AutoCAD LT? 2000iAutoCAD LT? 2000问题AutoCAD使用匿名块来支持填充图案和尺寸标注。这种类型的块也可以用AutoLISP或类似的方法来创建，但是不能在图形编辑器中创建。而且，也不能使用AutoCAD的编辑命令来修改匿名块。解决方法在为汇集数据而提取块信息时，匿名块可能会引起问题，例如从一个电子数据表中提取数据。举例而言，如果用户需要知道有多少个含有特殊对象的块被插入到图形中，而这些块曾经被AutoLISP程序变为匿名块时，统计出的块的数量会不正确。虽然用户不能创建匿名块，但知道它们的存在是很重要的。/adsk/servlet/item?siteID=1170359&id=12028171+简单点说，其实就是为了让别人找不块，也编辑不了的一种没名字的块。匿名块的名字均是*Uxxxx的格式。以下是正常定义的块与匿名块的不同之处：正常定义的块可以是除了其他符号外的任意名字，当然也是支持中文的。当我们双击CAD图中的正常块时，弹出如下块属性：确定后就可以正常编辑。而所谓的匿名块，双击后出现如下属性：AUTOCAD居然找不到这类块，虽然你知道其名字为*UXXXX,但是输入后提示找不到。好，问题就来了，当你拿到一张图纸，里面有很多LTP点，现在要改成LTD，而图里面的相关块很多时（如综合布线点上千个），如果把其炸开后再修改其文字，这工作量可真的不是一般的大，如果能直接修改块，那么一切就好办了，修改好一个块后，其余的全部就搞定。当然，搞不定的问题时，找GOOGLE，在/forum/viewthread.php?tid=245055&pid2=1079244&keywords=&searchstyle=&issearch=true中找到一位高人给出来的解决办法：写一段脚本，然后把匿名块改名，只要名字是正常的，则改名后的块跟正常定义的块是一样的。转载一下，脚本如下：(defun C:ccc (/ *APP *DOC EntNam NewNam) (vl-load-com) (setq *APP (vlax-get-acad-object) (setq *DOC (vla-get-activeDocument *APP) (if (setq EntNam (car (entsel n请选择块: ) (if (setq NewNam (getstring n请输入新块名: ) (change-block-name EntNam NewNam) (princ n你没有输入新块名!) ) (princ n你没有选择物体!) ) (princ);改块名程序(defun change-block-name (EntNam NewNam / obj blocks BlkNam block) (setq obj (vlax-ename-vla-object EntNam) (setq blocks (vla-get-blocks *DOC) (if (=(vla-get-objectname obj) AcDbBlockReference) (if (tblsearch block NewNam) (princ n和已有块名重复!) (progn (setq BlkNam (vla-get-name obj) (setq block(vla-item blocks BlkNam) (vla-put-name block NewNam) (if (= (substr BlkNam 1 2) *U) (progn (princ n这是一个匿名块.) (vla-auditinfo *Doc :vlax-true) (vla-put-name block NewNam) ) ) (princ n块名已经更改成) (princ NewNam) (princ ) ) ) (princ n所选物体不是块!) )把以上的脚本存为CCC.LSP（文件名随便），并用VISUAL LISP程序（工具-AUTOLISP-VISUAL LISP编辑器）把CCC.LSP打开，把其编译成XXX.FAS文件，然后在AUTOCAD-工具-加载程序中选中XXX.FAS，OK，这个叫CCC的命令就已经在你的AUTOCAD中了，就像“L”命令一样直接输入调用即可，以下是运行命令提示情况：命令: CCC请选择块:请输入新块名: NEW09这是一个匿名块.核查表头核查表第 1 阶段图元核查阶段 1 已核查 73700 个对象第 2 阶段图元核查阶段 2 已核查 73700 个对象核查块已核查 2784 个块共发现 0 个错误，已修复 0 个