refedit传参

yaojing38

2. (defun REF (E /)
   
3.     (if      
   
4.              (= (cdr (assoc 0 (entget e))) "INSERT")
   
5.         
   
6.         (progn
   
7.             (setvar "PICKFIRST" 1)
   
8.             (sssetfirst NIL (ssadd E))
   
9.             (command-s "-refedit" "o" "A" "y")
   
10.         )
    
11.     )
    
12. )
    
13. ;;

(defun REF (E /)<br />     (if       <br />              (= (cdr (assoc 0 (entget e))) "INSERT")<br />         <br />         (progn<br />             (setvar "PICKFIRST" 1)<br />             (sssetfirst NIL (ssadd E))<br />             (command-s "-refedit" "o" "A" "y")<br />         )<br />     )<br /> )<br /> ;;

你有种再说一遍

这个不太好吧,你这样就少了点击块中块编辑的能力了.

2. ;;;name:
   
3. ;;;desc:在位编辑块,或保存图块
   
4. ;;;arg:
   
5. ;;;return:
   
6. ;;;example:
   
7. (defun c:BF-Edit()
   
8.   (princ "\n****{惊惊连盒}-BF-Refedit-在位编辑块/在位保存块")
   
9.   (if (= (getvar 'blockeditor) 1);打开了块编辑器
   
10.       (*cmdf* "_.bclose")
    
11.       (if (= (getvar "refeditname") "");显示正在编辑的参照名称
    
12.         (*cmdf* "_.refedit");直接点选可以有嵌套层次
    
13.         (*cmdf* "_.refclose" "s")
    
14.       )
    
15.   )
    
16.   (princ)
    
17. )

;;;name:<br /> ;;;desc:在位编辑块,或保存图块<br /> ;;;arg:<br /> ;;;return:<br /> ;;;example:<br /> (defun c:BF-Edit()<br />   (princ "\n****{惊惊连盒}-BF-Refedit-在位编辑块/在位保存块")<br />   (if (= (getvar 'blockeditor) 1);打开了块编辑器<br />       (*cmdf* "_.bclose")<br />       (if (= (getvar "refeditname") "");显示正在编辑的参照名称<br />         (*cmdf* "_.refedit");直接点选可以有嵌套层次<br />         (*cmdf* "_.refclose" "s")<br />       )<br />   )<br />   (princ)<br /> )

qifeifei

没有看懂 但是打卡

chenlianghuai

你有种再说一遍 发表于 2025-9-1 11:04
这个不太好吧,你这样就少了点击块中块编辑的能力了.

真不错，我想了半年了也没有实现，得来还是费工夫

你有种再说一遍

chenlianghuai 发表于 2025-9-1 12:14
真不错，我想了半年了也没有实现，得来还是费工夫

劝大家学C#多了,大家就忘记我的Lisp经验也是十分老练.
压缩命令的参照面板更好玩,需要上C#和用spy++找面板.
https://www.cnblogs.com/JJBox/p/10367110.html

q469541866

(defun c:red ( / blockedit reft)
  (setq blockedit (getvar 'blockeditor))  ; 检查块编辑器状态 (0=关闭, 1=打开)
  (setq reft (getvar 'refeditname))       ; 检查参照编辑状态 (空字符串=未编辑)
  
  (cond
    ((= blockedit 1)                      ; 条件1: 块编辑器打开
      (command "bclose" "s")              ; 保存并关闭块编辑器
      (command "refedit")                 ; 启动参照编辑
    )
    ((/= reft "")                         ; 条件2: 参照编辑已打开
      (command "refclose" "s")            ; 保存并关闭参照编辑
      (command "refedit")                 ; 重新启动参照编辑
    )
    (T                                    ; 默认条件: 无编辑状态
      (command "refedit")                 ; 直接启动参照编辑
    )
  )
  (prin1)
)