ddqzmpaxlozc 发表于 2020-5-21 00:11:21

灰石Jeremy 发表于 2020-5-20 23:10
我发现只要command就可以实现。。
(defun c:yy ()
(command "refclose" "s")


按我说的步骤来做问题也不大吧

ddqzmpaxlozc 发表于 2020-5-21 08:47:41

大佬们快来啊

panliang9 发表于 2020-5-21 09:39:08

本帖最后由 panliang9 于 2020-5-21 10:11 编辑

这个也是我很想知道的，蹲守此贴，等高手出现。

这个难点应该是当块编辑命令退出后，在块里的选择就消失了，命令就结束了。必须用特殊的手段将刚才在块里的选择存到CAD外面去，然后再交回来。

下面这个是我收集的在位块编辑的命令，它的特点是不用进在位块编辑的对话框。
;;EB for Edit Block (in place)
(defun C:r(/ ent1)
;;if an edit session is running, save and close
(if (/= (getvar "REFEDITNAME") "")
(command "_REFCLOSE" "_save")
;;else edit someting
(progn
(setq ent1 (cadr (entsel)))
(command "_-REFEDIT" ent1 "ok" "_all" "_yes")
)
);;if
)

xj6019 发表于 2020-5-21 10:10:47

本帖最后由 xj6019 于 2020-5-21 10:28 编辑

我自己一直用这个最基本最简单的命令
(DEFUN C:BN ()(COMMAND "REFEDIT"))
(DEFUN C:NB ()(COMMAND "REFCLOSE""S" ))

BN:正常状态直接按选择进入任何一个嵌套块里面，不用先进入，直接就可以选择任何一个
NB：修改完后命令退出，回车一次保存一下就好
高手来之前你先用这个凑合用着吧

ddqzmpaxlozc 发表于 2020-5-28 15:04:33

无法实现无法实现无法实现

1291500406 发表于 2020-6-4 07:55:44

本帖最后由 1291500406 于 2020-6-4 09:23 编辑

我再帮你，我就是狗，屁事真多，时常有事没事发打扰信息

mahuan1279 发表于 2020-6-4 15:43:10

1291500406 发表于 2020-6-4 07:55
我再帮你，我就是狗，屁事真多，时常有事没事发打扰信息

助人为乐怎么还发起毒誓呢？有故事的人……

ferious 发表于 2023-12-16 23:36:25

唉，师道之不存久矣，00后职场整顿开始了
页: 1 [2]
查看完整版本: 如何实现嵌套块的在位编辑切换