求大佬帮忙弄个小插件

amook147

ludaweb 发表于 2025-5-21 21:20
oe删除
oo不删除

感谢大佬   就是这个意思。。。   简单就行 。。。。

gowww

;********************* moe 多物体偏移&删除 ***********************
(DEFUN C:MOE(/ ENT DIST PT)
  (PRINC "\n请输入偏置距离\(")
  (PRINC (GETVAR "OFFSETDIST"))(PRINC "\):")
  (SETQ DIST (GETREAL))
  (IF (= NIL DIST) (SETQ DIST (GETVAR "OFFSETDIST")))
  (SETVAR "OFFSETDIST" DIST)
  (SETQ ENTGRP (SSGET))
  (SETQ PT (GETPOINT "方向?"))
  (COMMAND "_UNDO" "M")
  (SETQ COUNT 0)
  (REPEAT (SSLENGTH ENTGRP)
    (SETQ ENT (SSNAME ENTGRP COUNT))
    (COMMAND "_.OFFSET" DIST ENT PT "")
    (COMMAND "_.ERASE" ENT "")
    (SETQ COUNT (1+ COUNT))
  )
  (PRINC "\nOK!")(PRINC)
)

xyp1964

shirker

这个功能经常用，谢谢大师们分享

jkop

uualice2020 发表于 2025-5-21 20:55
增加原图处理

这工具好用，给力！