版主来指点一下~

ZZXXQQ

下面是调试过的代码（文字起点按圆的半径计算处理）。再试试。

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

无痕

块定义和块实体是不同的

mjthetuxedo

谢谢ZZXXQQ版主~~终于搞定了~！！！
这段代码有些地方看不太懂~~
能不能就IF语句后的代码简单注解一下~！
为何(if (= (cdr(assoc 0 ent1)) "CIRCLE")语句重复用了两次？？？
前后两次的分别是什么？？？
这段代码还有个小问题~
就是我在调试时发现有个别图块不能进行编号~~我把图块分解后发现这些不能编号的图块是由其它图块组成的
不知道这个能不能解决，不过问题不是很大~~
再次感谢~~~~

ZZXXQQ

分两次判断是因为ent1是从不同途径获得的，第一次是块参数中的-2组码，第二次（及其后的）是-1组码。

如果有多重块就应判断组码0是否为BLOCK，然后进行相应处理。