快递关闭块程序，如果是参照块，关闭参照块，如果是普通块关闭普通块

小毛草

(defun c:ra (/ acadDoc isBlockEditor)
  ;; 获取当前文档
  (setq acadDoc (vla-get-ActiveDocument (vlax-get-acad-object)))

  ;; 检查是否处于块编辑器模式
  (setq isBlockEditor
    (and
      (= (vla-get-ActiveSpace acadDoc) acModelSpace) ; 检查是否在模型空间
      (vlax-property-available-p acadDoc 'IsDynamicBlock) ; 检查是否支持动态块
      (vla-get-IsDynamicBlock acadDoc) ; 检查是否处于动态块编辑模式
    )
  )

  ;; 根据状态执行相应操作
  (if isBlockEditor
    (progn
      (command "_bclose" "s" pause) ; 关闭块
      (princ "\n已关闭块。")
    )
    (progn
      (command "_refclose" "s") ; 关闭参照块
      (princ "\n已关闭参照块。")
    )
  )
  (princ)
)

2. (defun c:ra (/ acadDoc isBlockEditor)
   
3.   ;; 获取当前文档
   
4.   (setq acadDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
5. 
   
6.   ;; 检查是否处于块编辑器模式
   
7.   (setq isBlockEditor
   
8.     (and
   
9.       (= (vla-get-ActiveSpace acadDoc) acModelSpace) ; 检查是否在模型空间
   
10.       (vlax-property-available-p acadDoc 'IsDynamicBlock) ; 检查是否支持动态块
    
11.       (vla-get-IsDynamicBlock acadDoc) ; 检查是否处于动态块编辑模式
    
12.     )
    
13.   )
    
14. 
    
15.   ;; 根据状态执行相应操作
    
16.   (if isBlockEditor
    
17.     (progn
    
18.       (command "_bclose" "s" pause) ; 关闭块
    
19.       (princ "\n已关闭块。")
    
20.     )
    
21.     (progn
    
22.       (command "_refclose" "s") ; 关闭参照块
    
23.       (princ "\n已关闭参照块。")
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )

(defun c:ra (/ acadDoc isBlockEditor)<br />   ;; 获取当前文档<br />   (setq acadDoc (vla-get-ActiveDocument (vlax-get-acad-object)))<br /> <br />   ;; 检查是否处于块编辑器模式<br />   (setq isBlockEditor<br />     (and<br />       (= (vla-get-ActiveSpace acadDoc) acModelSpace) ; 检查是否在模型空间<br />       (vlax-property-available-p acadDoc 'IsDynamicBlock) ; 检查是否支持动态块<br />       (vla-get-IsDynamicBlock acadDoc) ; 检查是否处于动态块编辑模式<br />     )<br />   )<br /> <br />   ;; 根据状态执行相应操作<br />   (if isBlockEditor<br />     (progn<br />       (command "_bclose" "s" pause) ; 关闭块<br />       (princ "\n已关闭块。")<br />     )<br />     (progn<br />       (command "_refclose" "s") ; 关闭参照块<br />       (princ "\n已关闭参照块。")<br />     )<br />   )<br />   (princ)<br /> )

moranyuyan

谢谢分享

USER2128

;;; 感觉这个有用，重写了一下程序

1. ;;; 快速关闭块编辑器程序.
   
2. (defun c:BC ()
   
3.   (cond
   
4.     ((= 1 (getvar "BLOCKEDITOR"))   ;块编辑器.
   
5.      (command "_bclose" "s")
   
6.      (princ "\n已关闭块编辑器。")
   
7.      )
   
8.     ((/= "" (getvar "REFEDITNAME")) ;在位编辑.
   
9.      (command "_refclose" "s")
   
10.      (princ "\n已关闭在位块编辑器。")
    
11.      )
    
12.     (t (princ "\n仅用于关闭块编辑器."))
    
13.     )
    
14.   (princ)
    
15.   )
    

;;; 快速关闭块编辑器程序.<br /> (defun c:BC ()<br />   (cond<br />     ((= 1 (getvar "BLOCKEDITOR"))   ;块编辑器.<br />      (command "_bclose" "s")<br />      (princ "\n已关闭块编辑器。")<br />      )<br />     ((/= "" (getvar "REFEDITNAME")) ;在位编辑.<br />      (command "_refclose" "s")<br />      (princ "\n已关闭在位块编辑器。")<br />      )<br />     (t (princ "\n仅用于关闭块编辑器."))<br />     )<br />   (princ)<br />   )<br />