[综合讨论] 将动态块转换为常规块

;;;---------------------ToStatic.lsp--------------------------------
;;; Purpose: Converts anonymous block to named static block
;;; Version:1.0
;;; Date: 2 June 2010
;;; Author: Herman Mayfarth
;;; Copyright © 2010 by Herman Mayfarth.
;;; Provided "as is" and without warranty, express or implied.
;;; Use at your own risk.
;;;-----------------------------------------------------------------
(defun C:Static ( / obj)
  (setq obj (vlax-ename->vla-object (car (entsel "\nPick a block reference:"))))
  (vlax-invoke obj 'ConvertToStaticBlock
    (substr (vlax-get-property obj 'Name) 2))
  (princ)
);C:Static