【在位编辑】进入嵌套块

1028695446

起因：
原贴http://bbs.mjtd.com/forum.php?mod=viewthread&tid=181657&extra=&highlight=%CE%DE%CF%DE&page=1
发布的“无限进入嵌套块的在位编辑!“帖子，之前也很好奇，觉得有趣，但是没时间去研究
端午放假了，就宅宿舍静下心研究了下，弄好了
思路：
nentsel模式，选择块内图元，
1、获取拾取点，
2、获取父图元嵌套列表（从左往右逐渐嵌套），分析所选图元在嵌套快的第几层（n）；
3、进入在位编辑命令，按n-1个 next，则能到达嵌套层
本质上就是退出在位编辑，然后重新进入在位编辑

各个版本的都能用

Sonnenblumen

请教楼主一个问题，用cad在位编辑块的时候，默认图中选项是勾选的，就是不可以改动块外的对象。您的程序进块后，是可以修改块外对象的。如果我用cad在位编辑进去一次，再用您的程序进去，就不可以改块外对象了。请问这个原因是什么呢？图中的这个选项是系统变量在控制么？如何能让使用者自己选择这个锁定选项是否开启呢？

菜卷鱼

花了一个明经币买这个程序觉得很亏，搞这么多花里胡哨
我还以为能跳过重生成
先输入命令，再选择对象执行，跟你效果就差一下确认键
还简单
(defun c:red ( / reft)
(setq reft(getvar 'refeditname))
(if (= reft "")
(command "refedit")
(progn
(command "refclose" "s")
(command "refedit")
)
)
(prin1)
)

1028695446

USER2128 发表于 2020-6-27 16:55
程序很好！
如果说要尽善尽美的话，就要排除掉：当拾取到无名块、或拾取到块中的无名块、或者拾取到块中的 ...

谢谢您的反馈，
接下来应该有新的课题了--在位编辑无名快

1028695446

呃呃呃呃呃呃呃

wgij007

感谢楼主的分享，顶一个。

USER2128

这个不错，非常实用！

1028695446

USER2128 发表于 2020-6-27 14:28
这个不错，非常实用！

感谢您的肯定

飒路紫

不错，学习一下

USER2128

程序很好！
如果说要尽善尽美的话，就要排除掉：当拾取到无名块、或拾取到块中的无名块、或者拾取到块中的尺寸时，在位编辑器是不支持的。

1028695446

在位编辑无名快块的思路：
1、选取无名块，然后新建一个有名块，，，给无名块穿上一件有名的衣服，构建嵌套块
2、建新块的时候，新块的块基点应该与无名块的基点相同，不然会跑偏
3、在位编辑，选择嵌套块，，就可以对无名块进行在位编辑了
4、编辑完后，退出在位编辑，炸开此块就行了

cghdy

谢谢开源分享