蘑菇 发表于 2024-7-20 13:00:36

求狂刀lxx大神的ffe命令偏移代码 v1.1版本的 有代码照片 不会自己写 帮忙有偿

求助狂刀lxx大神的代码

Bao_lai 发表于 2024-7-20 16:41:01

本帖最后由 Bao_lai 于 2024-7-20 17:33 编辑

送佛送到西，下载附件，直接拖入CAD，输入命令 ffe 即可食用。

更新修复

蘑菇 发表于 2024-7-20 13:06:19

在线求帮忙 有偿

MZ_li 发表于 2024-7-20 14:20:32

这么简单:lol

xiao1984 发表于 2024-7-20 14:51:07

本帖最后由 xiao1984 于 2024-7-20 14:52 编辑

你不会写代码要它有何用？;偏移并删除原物体--v1.1------1xx.2002.11ffe
;偏移并询问是否删除原物体
(princ "\n ffe----偏移并删除原物体--v1.1------1xx.2002.11\n")
(defun c:ff(/ offd el pt er new)
      (princ "n ffe----偏移并删除原物体--v1.1------1xx.2002.11")
      (setq offd (getdist "\n 偏移距离:"))
      (while
                (setq el (entsel "\n选择偏移物体:")
                        pt (getpcint (cadr el) "\n偏移方向:")
                )
                (command ". offset" offd el pt c)
                (Command "_. select" "1" "")
                (setq new (ssget "p" ))
                (COMMAND "._change" new "" "p" "c" "red ")
                (Setq er (getstring "\n 删除?任意字符-------否/<是>:"))
                (if (= "" er)
                        (entdel (car el))
                )
      )
      (command)
      (princ)
)

tranque 发表于 2024-7-20 19:54:35

Bao_lai 发表于 2024-7-20 16:41
送佛送到西，下载附件，直接拖入CAD，输入命令 ffe 即可食用。

更新修复

好一个送佛送到西

Maxwell 发表于 2024-7-20 22:44:40

这个和移动有啥区别呢，非要这么复杂吗？:lol

lxl217114 发表于 2024-7-21 13:12:42

好像就比CAD的O多了个设置，完全不需要插件也可以实现的
页: [1]
查看完整版本: 求狂刀lxx大神的ffe命令偏移代码 v1.1版本的 有代码照片 不会自己写 帮忙有偿