怎么快速创建块，不用指定基点，选择对象一键创建块

277283904

怎么快速创建块，不用指定基点，选择对象一键创建块，名称可以按日期时间命名，例如2401250917（24年1月25日9点17分）

一键完成如图的操作

lxl217114

论坛有搜索功能

自贡黄明儒

ctrl+C选择，ctrl+shift+V建块最快，不用选择基点为，默认在0，0。使用有缺点，有时拉伸时，块不动，原来基点在无穷远处。

277283904

自贡黄明儒 发表于 2024-1-25 11:05
ctrl+C选择，ctrl+shift+V建块最快，不用选择基点为，默认在0，0。使用有缺点，有时拉伸时，块不动，原来基 ...

又多了一步了不是，而且按键也挺多，还是有代码一键完成的好
这个还不是原地建块，我的需求是原地选择一键建块

277283904

lxl217114 发表于 2024-1-25 10:39
论坛有搜索功能

我有下载过这位大佬的命令，http://bbs.mjtd.com/forum.php?mo ... hlight=%BD%A8%BF%E9，好像要指定基点，我不怎么会用，也不需要指定基点，想直接选择对象建块，代码越简单越好

Bao_lai

(defun C:TT ()
        (setq block_name (rtos (* 100000000 (getvar "cdate")) 2 0))
        (setq block_insert (list 0 0 0))
        (setq ss nil)
        (princ "\n请选择需要生成块的图形：")
        (while(null(setq ss (ssget))))
        (vl-cmdf "-block" block_name block_insert  ss "")
        (vl-cmdf "-insert" block_name block_insert "" "" "")
        (princ)
)

wzg356

Bao_lai 发表于 2024-1-25 11:47
(defun C:TT ()
        (setq block_name (rtos (* 100000000 (getvar "cdate")) 2 0))
        (setq block_insert (l ...

这个挺好，我也是这么用的，把块基点放在包围盒角点，可消除楼上老黄说的问题

飞雪神光

代码多了都能嫌麻烦

lxl217114

277283904 发表于 2024-1-25 11:21
我有下载过这位大佬的命令，http://bbs.mjtd.com/forum.php?mod=viewthread&tid=187867&highlight=%BD%A8 ...

http://bbs.mjtd.com/thread-178210-1-1.html

http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7326707

277283904

飞雪神光 发表于 2024-1-25 14:11
代码多了都能嫌麻烦

对于我这种菜鸟来说，有用就可以了，当然了，越简洁又能解决需求当然是最好的了