一键新建块，而且自动生成块名，绝对不会重复。省去复杂的建块操作，避免了重复

hhh454 · 发表于 2023-5-22 19:37:45

感谢分享，我用的也是用时间命名

白色微風1991 · 发表于 2023-5-22 20:25:03

謝謝大神的分享

菜鸟初来乍到 · 发表于 2023-5-23 17:34:28

感谢楼主分享

黔北邱引 · 发表于 2023-5-23 17:37:39

谢谢楼主分享

qazxswk · 发表于 2023-5-23 21:29:29

不错，学习一个新函数。

Noangler · 发表于 2023-5-24 10:52:12

谢谢分享，支持一下

李钊伟2012 · 发表于 2023-5-24 16:01:15

本帖最后由李钊伟2012 于 2024-2-12 09:46 编辑

;快速做块,你们可以试试用CAD自带的。不过偶尔会做块失败，原因未知。只能用最基本的键盘操作复制粘贴
(defun c:bb( / pt ss)
(if(/="0"(getvar "clayer")) (PROGN(princ"当前图层: ")(princ (getvar "clayer"))))
(vl-cmdf "copybase" (setq pt(getpoint"\n指定基点")) (setq ss(ssget)) "" "pasteblock" pt)
(command"erase" ss "");(if(/="0"(getvar "clayer")) (command "layer" "m" "0" "") (PROGN(princ"当前块图层: ") (princ (getvar "clayer")) (command "change" (ssget)"" "p" "la" "0" "" ))
(princ))

hiviki · 发表于 2023-5-24 16:11:25

zxhwayne 发表于 2023-5-22 16:17
感谢分享挺好用的！G版的是用时间来命令的，我一直用的G版的，大家都很棒

G版的可以分享一下吗

jkop · 发表于 2024-1-15 16:00:37

李钊伟2012 发表于 2023-5-24 16:01
;快速做块,你们可以试试用CAD自带的。
(defun c:bb( / pt ss)
(if(/="0"(getvar "clayer")) (PROGN(princ ...

可以设置基准点，适合我使用，感谢分享。

weijiewen · 发表于 2024-2-2 09:35:02

jkop 发表于 2024-1-15 16:00
可以设置基准点，适合我使用，感谢分享。

(defun C:KSJK (/ TKname ss pt)
  (setvar "cmdecho" 0)
  (setq TKname (menucmd "M=$(edtime,$(getvar,date),YYYYMODDHHMMSS)"))
  (print "
请选择需要建块的对象：")
  (setq ss (ssget))
  (if ss
(progn
   (setq pt (getpoint "
请输入块基点坐标："))
   (command "-block" TKname "o" "c" pt ss "")
   (princ (strcat "
已完成块的新建，块名为<" TKname ">"))
)
(print "
选择的对象为空，请重新选择。")
  )
  (setvar "cmdecho" 1)
  (princ)
)
——————————————————————————————————————
改了下可以设置基点了

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

[源码] 一键新建块，而且自动生成块名，绝对不会重复。省去复杂的建块操作，避免了重复