改名或者拷贝一个匿名块的LISP和VBA代码

newer

Renaming or copying an anonymous block  

Question
How do I rename or copy an anonymous block to another name, such as TESTBLOCK?
Answer
It is possible to rename an anonymous block. For example, you can rename a block
named *T1 to TESTBLOCK. When listed, the available blocks in a drawing use
commands such as BLOCK or INSERT.  TESTBLOCK will not be listed because it is an
anonymous block (but it exists). Changing an anonymous block's name will not
make it a named block. The group code 70 decides if the block is anonymous, and
this group code cannot be edited.

For example, create an anonymous block "*T" using any_blk function, and then
execute the ren_blk function to rename it to "TESTBLOCK".

Array，本帖隐藏的内容需要发帖数高于 30 才可浏览，你当前发帖数为

Now invoke command INSERT and you will find that TESTBLOCK is not listed, but
you are allowed to type the blockname and then to insert it.
The block TESTBLOCK is not listed as it is an anonymous block.

As a workaround, you could make a copy of the anonymous block instead of
renaming it, as shown in the following sample code:

游客，如果您要查看本帖隐藏内容请回复

Here is a sample VBA code to copy an anonymous block:

Array，本帖隐藏的内容需要发帖数高于 30 才可浏览，你当前发帖数为

The version of this VBA code including full user interface and error checking
(rather an exception from standard DevCon policy) is enclosed as the dvb
attachment.

q3_2006

看帖必须回复...这个不太理解...

wzg356

看不懂，拿来能用就行

819534890

谢谢分享，留存

/db_自贡黄明儒_

q3_2006 发表于 2014-12-14 16:31
看帖必须回复...这个不太理解...

多想一下、就能明白、楼主一片热心呢！

kwok

谢谢分享!:)

xingwan2013

谢谢分享:):):):):)

yoyoho

谢谢分享!!!

qq1846687144

学习学习！！！

dnbcgrass

学习学习！

w798

谢谢分享~~~~~~~~

向嘟嘟

感谢分享。

yxpxa

还要用回复查看啊，vba 和 lisp 一起调用

brainstorm

今天试着写了一个块该名的程序 匿名块无法通过

fxf0000

等级太低，现在不能看，郁闷！