[求助]：有事请教柔柔长老？斑竹大人不要删除此帖？谢谢！

andyhua5240

柔柔姐姐你好呀：
  小弟，我总觉得CAD的refedit这个命令没有做好？不知道是不是我理解得有问题？看看正面的代码：
(defun c:rf()
  (princ "\n*|进入块的在位编辑→<选择非块中块的实体可以进入最上层块的编辑!>|*")
  (setq cm (getvar "cmdecho"))
  (setq *error* cd_err)
  (setvar "cmdecho" 0)
  (command "-refedit" pause "o" "a" "n")
  (setvar "cmdecho" cm)
  (princ)
)


(defun c:rs()
  (princ "\n*|保存块的在位编辑|*")
  (setq cm (getvar "cmdecho"))
  (setq *error* cd_err)
  (setvar "cmdecho" 0)
  (command "refclose" "s")
  (setvar "cmdecho" cm)
  (princ)
)


(defun c:rd()
  (princ "\n*|放弃块的在位编辑|*")
  (setq cm (getvar "cmdecho"))
  (setq *error* cd_err)
  (setvar "cmdecho" 0)
  (command "refclose" "d")
  (setvar "cmdecho" cm)
  (princ)
)


(defun c:ra()
  (princ "\n*|向在位编辑的块中添加对象|*")
  (setq cm (getvar "cmdecho"))
  (setq *error* cd_err)
  (setvar "cmdecho" 0)
  (command "refset" "a")
  (setvar "cmdecho" cm)
  (princ)
)

(defun c:rr()
  (princ "\n*|从在位编辑的块中删除对象|*")
  (setq cm (getvar "cmdecho"))
  (setq *error* cd_err)
  (setvar "cmdecho" 0)
  (command "refset" "r")
  (setvar "cmdecho" cm)
  (princ)
)

问题就出在第一个rf的lisp上面。因为我不喜欢用refedit后，还要点个确定，才能进入块的在位编辑状态，保存块和不保存块修改后，点确定退出所以就有以上面的程序。
当新开一张图后，第一次用rf，进入块的在位编辑模式，这时你可以发现块对象以外的对象也可以编辑，并且可以rs，保存退出。如果第一次你在位编辑块的话，用的是鼠标双击，或者是用命令refedit，这时块对象以外的对象是锁定的，不能编辑？真是奇怪，为什么会这样呢，命令一样呀，只不过一个是lisp，一个是命令refedit而已？还有这个rf如果选择的块中的块的话，程序就出错了，不灵了？要怎么改一下，让其能在第一次调用的时候自动的选择最上层的块，和锁定块以外的对象呢？

谢谢！问题一直存在，郁闷到现在！我怀疑是CAD本身的问题？谢谢！

柔柔

刚上线才看到，不好意思。
1，你找错人了。我不欣赏这个的，你应该知道。我所画的图纸，靠快捷键起不了作用，尽管我有时也会键入W、键入PU等，但从不刻意去追求这点快。我过去也编些程序，但这种程序我是不会去编的。
2，命令***与-***是不同的。有的除了遏制对话框，其他都一样，有的就没这么简单了。比如copy和-copy就有差别，R14的带对话框的INSERT是DDINSERT，到了2000版，用INSERT代替了DDINSERT，很明显，INSERT与-INSERT不仅仅是对话框的差异。