原点建块DXMKCZ

清风明月名字

;;;________________________________________________________________
;;; 将所选实体转为块（指定插入点），并自动赋名（优化版）。
;;; 作者: USER2128于bbs.mjtd.com, 20130930
(defun c:原点建块DXMKCZ (/ pt ss ent name)
  (if (and
           (princ "\n请选取要制成块的那些实体：")
           (setq ss (ssget))
                   (setq pt (LIST 0 0 ))
           )
    (progn
      (command "._copybase" "_non" pt ss "")
      (command "._PASTEBLOCK" "_non" pt)
      (command "._erase" ss "")


      (setq ent (entget (entlast))
            
            name (cdr (assoc 2 ent))
            )

        ;形成我的特殊块名

(setq new-name
(STRCAT "DXMKCZ"
         (rtos (* (getvar "CDATE") 1E8))

)
       
        )
       

       (command "_.rename" "_block" name new-name);图块改名



      (princ "\n制块成功！块名＝") (princ new-name)
      )

    (princ "\n未指定插入点或未选取实体!")
    )
  (princ))
;;;__

caibaobao

不好意思，我不会看程序，只能实践操作！先下下来用用看，谢谢楼主！

努力活着

好东西，我之前有一个原点建块，建好后竟然后有一点点移位的，不在原位了，割死我了，我是做冲压模具设计的。