块参照编辑设置问题

sharetow

块参照编辑：锁定不在工作集的对象lisp中怎么写？是调整变量吗。。。求教

1. (defun C:GG(/ KM dx)
   
2.   (if (= (setq KM (getvar "refeditname")) "")
   
3.     (if(= (setq dx(ssget "X" '((0 . "insert")))) nil)
   
4.       (progn
   
5.         (COMMAND "_.BCLOSE" "s")
   
6.         (command "-refedit" name "O" "A" "Y")
   
7.       )
   
8.       (if (setq dx(cadr (ssgetfirst)))
   
9.         (progn
   
10.           (command "-refedit" "O" "A" "Y")
    
11.         )
    
12.         (progn
    
13.           (setq name (cadr (entsel"\n 请选择块:")))
    
14.           (command "-refedit" name "O" "A" "Y")
    
15.         )
    
16.       )
    
17.     )
    
18.     (progn
    
19.       (COMMAND "_.REFCLOSE" "s")
    
20.       (command "_.bedit" KM)
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )

(defun C:GG(/ KM dx)<br />   (if (= (setq KM (getvar "refeditname")) "")<br />     (if(= (setq dx(ssget "X" '((0 . "insert")))) nil)<br />       (progn<br />         (COMMAND "_.BCLOSE" "s")<br />         (command "-refedit" name "O" "A" "Y")<br />       )<br />       (if (setq dx(cadr (ssgetfirst)))<br />         (progn<br />           (command "-refedit" "O" "A" "Y")<br />         )<br />         (progn<br />           (setq name (cadr (entsel"\n 请选择块:")))<br />           (command "-refedit" name "O" "A" "Y")<br />         )<br />       )<br />     )<br />     (progn<br />       (COMMAND "_.REFCLOSE" "s")<br />       (command "_.bedit" KM)<br />     )<br />   )<br />   (princ)<br /> )

[/code]

sharetow

自己顶一顶、、、

gc666666

帮顶。。。。。。。。。。。。。

gc666666

顶。。。。。。。。。。。。。。。

00放飞梦想00

顶一下

1028695446

第一次以对话框的形式启动在位编辑命令，激活某个反应器，后续就可以锁定了

zhoupeng220

顶一下，蹲个后续

qinhengda

顶一下，我最近写这个也遇到同样的问题，每次用自己写的代码前，先用原始在位编辑进去一次先

qinhengda

;;;参照编辑设置：锁定不在工作集中的对象是由什么控制的？
;;;http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7333374
;;;(出处: 明经CAD社区)

看到过论坛有这个，但是，测试过好像也是不行