清风明月名字 发表于 2014-1-5 12:03:12

原点建块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 发表于 2014-1-8 11:21:33

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

努力活着 发表于 2014-1-14 08:30:31

好东西，我之前有一个原点建块，建好后竟然后有一点点移位的，不在原位了，割死我了，我是做冲压模具设计的。
页: [1]
查看完整版本: 原点建块DXMKCZ