原点建块DXMKCZ

清风明月10 · 发表于 2014-1-5 12:04:42

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;;________________________________________________________________
;;; 将所选实体转为块（指定插入点），并自动赋名（优化版）。
;;; 作者: 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))
;;;__

st788796 · 发表于 2014-1-5 12:09:55

写的不错，用 api 一个函数即可
(xdrx_block_make <"块名"> <选择集> <Pt> [转换INSERT标记])

清风明月10 · 发表于 2014-1-5 13:26:33

st788796 发表于 2014-1-5 12:09
写的不错，用 api 一个函数即可
(xdrx_block_make [转换INSERT标记])

怎么简单？谢谢

st788796 · 发表于 2014-1-5 13:57:13

本帖最后由 st788796 于 2014-1-5 14:03 编辑

清风明月10 发表于 2014-1-5 13:26
怎么简单？谢谢

当然是一个函数简单
(defun c:tt (/ ss bp) (if (and (setq ss (ssget)) (setq bp (getpoint "\nBasepoint"))) (xdrx_block_make "*" ss bp t))(princ))

HLCAD · 发表于 2014-1-5 14:34:04

楼主算是良心大大的好，不忘将原作者名字贴出来。尊重别人，实际上也是尊重自己。

HLCAD · 发表于 2014-1-5 18:17:43

所以说楼主算是良心大大的好，USER2128就是我在明经的注册名

清风明月10 · 发表于 2014-1-5 19:08:53

我在这里谢谢您了！

清风明月10 · 发表于 2014-1-8 22:13:39

st788796 发表于 2014-1-5 12:09
写的不错，用 api 一个函数即可
(xdrx_block_make [转换INSERT标记])

忘记说明，其实我为什么贴这个怎么简单的代码呢？我收集了很多高手写的新建块的代码，在我的一张图上除这个代码可以正确使用外，其它的全部出错。
其它的代码，如果你选部分图元，代码就是正确的，如果你选全部图元，则全出错，它没有将全部图元做成一个块，而是将全部图元删除掉。
基于这个事件的认识，我认为我发的上面代码是最优秀的。

吴外安放 · 发表于 2020-7-26 18:46:28

谢谢版主分享

账号		自动登录	找回密码
密码			立即注册

[每日一码] 原点建块DXMKCZ

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评