[求助]：求教： “command”里“refedit”后的参数问题。

KLDC

想做一个一步到位的refedit命令，下面做法显然是错误的。
在(command)里，"refedit"后面的两个变量到底需要什么东西？

(defun c:ree()
  (setq ree_a (car (entsel)))
  (command "refedit" ree_a "o" ree_a "y")
)

andyhua5240

(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)
)

上面的代码是我以前写的，但是有个问题，对于块中嵌套块的情况，程序不能自动的识别最上层的块，也就是，如果你选中的是块中的块的话，程序不会自动的切换到最上层的块。而且第一次执行程序的时候，进入在位编辑状态时，在位编辑以外的对象是可以move的。所以失败了，希望有高手出招，感觉每次进入块编辑时都要点确定，好烦哦！
帮楼主顶下！
谢谢！

KLDC

非常希望得到这个答案，refedit原装命令实在不爽。

zml84

对于你的问题：在命令行中键入 (command "-refedit" )   回车后，你就知道需要什么参数了。

关于command 函数的参数：
http://www.acad.net.cn/viewthread.php?tid=421&extra=page%3D1

KLDC

楼上的朋友可以告诉我，我一楼的程序错在哪吗？

zml84

确如你所说，(command "-refedit")后的参数类型不明。
走曲线如何？

2. 
   
3. ;;acad2004下测试通过
   
4. (defun C:REE ()
   
5.     (if        (and (setq SS (entsel "\n点取参照: "))
   
6.              (= (cdr (assoc 0 (entget (car SS)))) "INSERT")
   
7.         )
   
8.         (progn
   
9.             (setvar "PICKFIRST" 1)
   
10.             (sssetfirst NIL (ssadd (car SS)))
    
11.             (command "-refedit" "o" "A" "y")
    
12.         )
    
13.     )
    
14. )
    

<br /> ;;acad2004下测试通过<br /> (defun C:REE ()<br />     (if        (and (setq SS (entsel "\n点取参照: "))<br />              (= (cdr (assoc 0 (entget (car SS)))) "INSERT")<br />         )<br />         (progn<br />             (setvar "PICKFIRST" 1)<br />             (sssetfirst NIL (ssadd (car SS)))<br />             (command "-refedit" "o" "A" "y")<br />         )<br />     )<br /> )<br />

KLDC

确实可行。
谢谢zml84

hnfsf

对嵌套块不好使，都是最外层的

日夜工作

hnfsf 发表于 2014-9-15 16:51
对嵌套块不好使，都是最外层的

这个就是我要的效果，找了半年不得其解。这个效果就是：图块直接在位编辑呀！非常好用！！！！比如设备提供的某个集水井位置压在结构的梁上，不合理，集水井是个图块（块中块，单独一个集水井是个图块，整个楼层集水井是个块，图块层次是两层。设备提资文件，块的层次不超过两层，如果多于两层，对结构没有意义，就王炸），我想移动其中一个到梁边，其余的块中块不移动，用在位编辑超级好用，直接move到梁边，不需要知道移动距离，反正移动到梁边就可以。