183017064 发表于 2025-2-14 11:34:30

拉伸复制功能合并，用DeepSeek实现

本帖最后由 183017064 于 2025-2-20 15:31 编辑


[*](defun c:ss (/ ss elist)
(setq ss (ssget)) ; 用户框选图元
(setq elist (save_entities ss)) ; 保存原始组码
(initcommandversion 5) ; 启用新版命令
(command "_.stretch" ss "" "_non" pause "_non" pause) ; 执行拉伸命令
(restore_entities elist) ; 重新生成原始图元
(princ)
)
(defun save_entities (ss / i ent data)
(setq i 0)
(repeat (sslength ss)
    (setq ent (ssname ss i))
    (setq data (cons (entget ent) data)) ; 包含实体名和所有组码
    (setq i (1+ i))
)
(reverse data)
)
(defun restore_entities (elist)
(foreach ent elist
    (entmake (vl-remove-if '(lambda (x) (member (car x) '(-1 5 330))) ent)) ; 过滤系统组码
)
)
(vl-load-com)
(princ "\n::复制拉伸 :: \n:: 输入 \"ss\" 启动程序 ::")
(princ)

jezli 发表于 2025-2-15 00:04:06

真是神器。

moranyuyan 发表于 2025-2-15 09:28:07

谢谢分享

qazxswk 发表于 2025-2-15 16:16:51

上个动图，看看其功能是怎样的效果。

wyl605 发表于 2025-2-16 07:52:23

AI写了不一定好用，要测试过的

183017064 发表于 2025-2-16 21:41:47

本帖最后由 183017064 于 2025-2-16 22:01 编辑

wyl605 发表于 2025-2-16 07:52
AI写了不一定好用，要测试过的
好用的，我发一个测试图看一下

183017064 发表于 2025-2-17 08:39:05

qazxswk 发表于 2025-2-15 16:16
上个动图，看看其功能是怎样的效果。

我还不会做动图，先发个静态的看看吧
页: [1]
查看完整版本: 拉伸复制功能合并，用DeepSeek实现