社区 › AutoLISP/Visual LISP 编程技术 › 一键新建块，而且自动生成块名，绝对不会重复。省去复杂的建块操作，避免了重复

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)
)
——————————————————————————————————————
改了下可以设置基点了

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