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

蘑菇

求助狂刀lxx大神的代码

Bao_lai

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

更新修复

蘑菇

在线求帮忙 有偿

MZ_li

这么简单

xiao1984

你不会写代码要它有何用？;偏移并删除原物体--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

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

更新修复

好一个送佛送到西

Maxwell

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

lxl217114

好像就比CAD的O多了个设置，完全不需要插件也可以实现的