怎么快速创建块，不用指定基点，选择对象一键创建块
本帖最后由 277283904 于 2024-1-25 10:23 编辑怎么快速创建块，不用指定基点，选择对象一键创建块，名称可以按日期时间命名，例如2401250917（24年1月25日9点17分）
一键完成如图的操作
(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_insertss "")
(vl-cmdf "-insert" block_name block_insert "" "" "")
(princ)
) Bao_lai 发表于 2024-1-25 11:47
(defun C:TT ()
(setq block_name (rtos (* 100000000 (getvar "cdate")) 2 0))
(setq block_insert (l ...
这个挺好，我也是这么用的，把块基点放在包围盒角点，可消除楼上老黄说的问题 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?mod=redirect&goto=findpost&ptid=178210&pid=825129&fromuid=7326707 论坛有搜索功能:handshake ctrl+C选择，ctrl+shift+V建块最快，不用选择基点为，默认在0，0。使用有缺点，有时拉伸时，块不动，原来基点在无穷远处。 自贡黄明儒 发表于 2024-1-25 11:05
ctrl+C选择，ctrl+shift+V建块最快，不用选择基点为，默认在0，0。使用有缺点，有时拉伸时，块不动，原来基 ...
又多了一步了不是:P-，而且按键也挺多，还是有代码一键完成的好
这个还不是原地建块，我的需求是原地选择一键建块 lxl217114 发表于 2024-1-25 10:39
论坛有搜索功能
我有下载过这位大佬的命令，http://bbs.mjtd.com/forum.php?mod=viewthread&tid=187867&highlight=%BD%A8%BF%E9，好像要指定基点，我不怎么会用，也不需要指定基点，想直接选择对象建块，代码越简单越好
代码多了都能嫌麻烦 飞雪神光 发表于 2024-1-25 14:11
代码多了都能嫌麻烦
对于我这种菜鸟来说，有用就可以了，当然了，越简洁又能解决需求当然是最好的了;P
页:
[1]
2